Bio::EnsEMBL::ExternalData::Mole BlackList
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::ExternalData::Mole::DBSQL::BlackListAdaptor
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
entry_id
No description
Code
new
No description
Code
rating
No description
Code
reason
No description
Code
submission_date
No description
Code
submitter
No description
Code
Methods description
None available.
Methods code
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, $entry_id, $adaptor, 
      $rating, $reason,
      $submitter, $submission_date) =  
	  rearrange([qw(DBID
	                ENTRY_ID 
                        ADAPTOR
                        RATING
                        REASON 
                        SUBMITTER
                        SUBMISSION_DATE
			)],@_);
  $self->dbID            ( $dbid );
  $self->entry_id        ( $entry_id );
  $self->adaptor         ( $adaptor );
  $self->rating          ( $rating );
  $self->reason          ( $reason );
  $self->submitter       ( $submitter );
  $self->submission_date ( $submission_date ); 
  return $self; # success - we hope!
}
ratingdescriptionprevnextTop
sub rating {
  my $self = shift;
  $self->{'rating'} = shift if ( @_ );
  return $self->{'rating'};
}
reasondescriptionprevnextTop
sub reason {
  my $self = shift;
  $self->{'reason'} = shift if ( @_ );
  return $self->{'reason'};
}
submission_datedescriptionprevnextTop
sub submission_date {
  my $self = shift;
  $self->{'submission_date'} = shift if ( @_ );
  return $self->{'submission_date'};
}

1;
}
submitterdescriptionprevnextTop
sub submitter {
  my $self = shift;
  $self->{'submitter'} = shift if ( @_ );
  return $self->{'submitter'};
}
General documentation
No general documentation available.