Select Code to Download

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

sub foo {
    my $self = shift;
    print $self->name;
}

sub foo {
    my $self = shift;
    print $self->{name};
}