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

##</code><code>##

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

##</code><code>##

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