sub foo {
  my($self) = @_;
  return $self->{foo};
}