Bio::EnsEMBL::ExternalData::Mole DBXref
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::ExternalData::Mole::DBSQL::DBXrefAdaptor
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
database_id
No description
Code
entry_id
No description
Code
new
No description
Code
primary_id
No description
Code
quaternary_id
No description
Code
secondary_id
No description
Code
tertiary_id
No description
Code
Methods description
None available.
Methods code
database_iddescriptionprevnextTop
sub database_id {
  my $self = shift;
  $self->{'database_id'} = shift if ( @_ );
  return $self->{'database_id'};
}
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, $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!
}
primary_iddescriptionprevnextTop
sub primary_id {
  my $self = shift;
  $self->{'primary_id'} = shift if ( @_ );
  return $self->{'primary_id'};
}
quaternary_iddescriptionprevnextTop
sub quaternary_id {
  my $self = shift;
  $self->{'quaternary_id'} = shift if ( @_ );
  return $self->{'quaternary_id'};
}
1;
}
secondary_iddescriptionprevnextTop
sub secondary_id {
  my $self = shift;
  $self->{'secondary_id'} = shift if ( @_ );
  return $self->{'secondary_id'};
}
tertiary_iddescriptionprevnextTop
sub tertiary_id {
  my $self = shift;
  $self->{'tertiary_id'} = shift if ( @_ );
  return $self->{'tertiary_id'};
}
General documentation
No general documentation available.