package Child; use base 'Parent'; use attribute sub { my $self = shift; my $name = shift; # object is arrayref, and the attributes are stored in element 0 return \$self->[0]->{"_$name"}; };