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