BEGIN
{
  for my $opt ( qw< a b c d e f g > )
  {
    no strict 'refs';
    my $sub = "get_$opt";
    *$sub = sub { $self=shift; return $self->{$opt}; };
  }
}