Bio::EnsEMBL::ExternalData::Mole Comment
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::ExternalData::Mole::DBSQL::CommentAdaptor
Bio::EnsEMBL::Storable
Bio::EnsEMBL::Utils::Argument qw ( rearrange )
Bio::EnsEMBL::Utils::Exception qw ( throw )
Inherit
Bio::EnsEMBL::Storable
Synopsis
No synopsis!
Description
No description!
Methods
comment_key
No description
Code
comment_value
No description
Code
entry_id
No description
Code
new
No description
Code
Methods description
None available.
Methods code
comment_keydescriptionprevnextTop
sub comment_key {
  my $self = shift;
  $self->{'comment_key'} = shift if ( @_ );
  return $self->{'comment_key'};
}
comment_valuedescriptionprevnextTop
sub comment_value {
  my $self = shift;
  $self->{'comment_value'} = shift if ( @_ );
  return $self->{'comment_value'};
}

1;
}
entry_iddescriptionprevnextTop
sub entry_id {
  my $self = shift;
  $self->{'entry_id'} = shift if ( @_ );
  return $self->{'entry_id'};
}
newdescriptionprevnextTop
sub new {
  my $caller = shift;

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

  my ($dbid, $adaptor, $entry_id, 
      $comment_key, $comment_value ) = 
      rearrange([qw(DBID
                    ADAPTOR
                    ENTRY_ID
                    COMMENT_KEY
                    COMMENT_VALUE 
                )],@_); 

  $self->dbID              ( $dbid );
  $self->adaptor           ( $adaptor );
  $self->entry_id          ( $entry_id ); 
  $self->comment_key       ( $comment_key ) if (defined $comment_key);
  $self->comment_value     ( $comment_value )  if (defined $comment_value);
  return $self; # success - we hope!
}
General documentation
No general documentation available.