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