http://qs321.pair.com?node_id=791686


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.