{aliases} = [];return $self;}sub name {my Person $self = shift;$self->{name} =">