Inheritance based on input

cbanker has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to set up a general wrapper for multiple hardware devices that can interface with different device drivers based on the name specified in the new() call. For example, calling DeviceClass->new("Device1") from the main program would use a device with driver module Device1 and DeviceClass->new("Device2") would use a device with driver module Device2.

What seems to be complicating this is the fact that the Device# driver modules (Device1 and Device2 in this example) are shared components that are not mine and are not object-oriented (my modules such as DeviceClass are OO though). I'd prefer to keep these files as they are so as not to affect other scripts that use them.

I tried the following but haven't had any luck, probably because the device modules are not object oriented.

    ...
    if ('Device1' eq $device){
        use Device1;
        @ISA = qw(Device1);
    }
    elsif ('Device2' eq $device){
        use Device2;
        @ISA = qw(Device2);    
    }
    ...
[download]

I also looked at the aliased module, but that doesn't seem to be an option for working with non-OO modules.

Given these constraints, is there any way for DeviceClass to have access to all of the functions in Device# and to call those functions from within the functions in DeviceClass?

Back to Seekers of Perl Wisdom