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