## Accessors

sub fields_hash  { $_[0]->{_fields_hash};  }
sub fields       { $_[0]->{_fields};       }


##</code><code>##

  push @{$self->fields()}, $field;
  $self->fields_hash->{$field->fullname()} = $field;