package DeviceEventHandler;
use base qw( EventHandler );

sub new {
    my $self = shift->SUPER::new(@_);
    $self->{DeviceReset} = undef;
    return $self;
}
[download]

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.