for my $property (qw(several members defined public)) {
  no strict 'refs';
  *{"get_$property"} = sub { (shift)->{$property} };
  *{"set_$property"} = sub { (shift)->{$property} = $_[0] };
}