sub new
  {
  my $proto = shift @_;
  my $self = { @atom_fields, @_ };
  $self = bless ($self, ref($proto) || $proto);
  ...