|Perl: the Markov chain saw|
Inheritance based on inputby cbanker (Beadle)
|on Oct 06, 2010 at 19:21 UTC||Need Help??|
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.
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?