Select Code to Download

sub show_person {
   my $self = shift;
   return $self->name();
}

package Person;
use Moose;
...

my $person = Person->new(name => "Bob");
print $person->show_person(), "\n";