package Alter; use Class::Std; my %ref_of :ATTR; sub ego { my $self = shift; if ( @_ ) { $ref_of{ident $self} = shift; } return $ref_of{ident $self}; }