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

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

1;

  my $caller = shift;

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

  my ($dbid, $entry_id, $adaptor, 
      $keyword) =  
	  rearrange([qw(DBID
	                ENTRY_ID 
                        ADAPTOR
                        KEYWORD
			)],@_);
  $self->dbID     ( $dbid );
  $self->entry_id ( $entry_id );
  $self->adaptor  ( $adaptor );
  $self->keyword  ( $keyword );
  return $self; # success - we hope!