my $self = shift;
  $self->{'database_id'} = shift if ( @_ );
  return $self->{'database_id'};

  my $self = shift;
  $self->{'entry_id'} = shift if ( @_ );
  return $self->{'entry_id'};

  my $caller = shift;

  my $class = ref($caller) || $caller;
  my $self = $class->SUPER::new(@_);

  my ($dbid, $adaptor, $entry_id, $database_id,
      $primary_id, $secondary_id, $tertiary_id,
      $quaternary_id ) = 
	  rearrange([qw(DBID
                        ADAPTOR
                        ENTRY_ID
                        DATABASE_ID
                        PRIMARY_ID
                        SECONDARY_ID
                        TERTIARY_ID
                        QUATERNARY_ID      
			)],@_); 

  $self->dbID              ( $dbid );
  $self->adaptor           ( $adaptor );
  $self->entry_id          ( $entry_id ); 
  $self->database_id       ( $database_id );
  $self->primary_id        ( $primary_id );
  $self->secondary_id      ( $secondary_id )  if (defined $secondary_id);
  $self->tertiary_id       ( $tertiary_id )   if (defined $tertiary_id);
  $self->quaternary_id     ( $quaternary_id ) if (defined $quaternary_id);
  return $self; # success - we hope!

  my $self = shift;
  $self->{'primary_id'} = shift if ( @_ );
  return $self->{'primary_id'};

  my $self = shift;
  $self->{'quaternary_id'} = shift if ( @_ );
  return $self->{'quaternary_id'};
}
1;

  my $self = shift;
  $self->{'secondary_id'} = shift if ( @_ );
  return $self->{'secondary_id'};

  my $self = shift;
  $self->{'tertiary_id'} = shift if ( @_ );
  return $self->{'tertiary_id'};