sub foo {
    my $self = shift;
    @_ or return $self -> {foo};
    $self ->{foo} = shift;
    $self;
}