my $name = 'foo';
my $package = {
    getter => sub ( $self ) { return $self->{$name} },
    setter => sub ( $self, $value ) { return $self->{$name} = $value },
}