in reply to Inheritance- Sub class instance variables
package DeviceEventHandler; use base qw( EventHandler ); sub new { my $self = shift->SUPER::new(@_); $self->{DeviceReset} = undef; return $self; }
You have to worry about parent and child classes stomping on each other's instance vars, but that's the basic idiom for hash-based objects.
In Section
Seekers of Perl Wisdom