# my imaginary method sub get_name { my $self = shift; $self->author or return; return "Your name is ".$self->author ". Hope you like it. "; } # my synonym sub name { my $self = shift; return $self->get_name; }