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