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

  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, $entry_id, $adaptor, 
      $accession, $qualifier) =  
	  rearrange([qw(DBID
	                ENTRY_ID 
                        ADAPTOR
                        ACCESSION
                        QUALIFIER 
			)],@_);
  $self->dbID              ( $dbid );
  $self->entry_id          ( $entry_id );
  $self->adaptor           ( $adaptor );
  $self->accession         ( $accession );
  $self->qualifier         ( $qualifier );
  return $self; # success - we hope!

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

1;