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