package <>;
our $scalarMethods;
@{ $scalarMethods } = qw( name );

foreach my $attributeScalar ( @{ $scalarMethods } ) {
  no strict "refs";

  *$attributeScalar = sub {
    my $subName = $package . "::$attributeScalar";
    if ($VRB)   { print "    $subName \n"; }
    my ($self) = shift;
    if (@_) { $self->{$attributeScalar} = shift; }
    return $self->{$attributeScalar};
  }
}