sub get_attr { $_[0]->{'attr'} } sub set_attr { $_[0]->{'attr'} = $_[1] }