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

##</code><code>##

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