Select Code to Download

my $result1 = $Person->name('Homer');
my $result2 = $result1->job('safety inspector');
my $result3 = $result2->wife('Marge');
$result3->fav_food('Duff');

sub name {
    my ($self, $value) = @_;
    
...

    return $self->{name}; # else return the name
}