#
# Getter Setter for member field foo
sub foo {
    my $self = shift; 
    if ( defined $_[0] ) {
      $self->{foo} = $_[0];
    }
    return $self->{foo};
}