Bio::EnsEMBL::Compara Taxon
SummaryIncluded librariesPackage variablesSynopsisDescriptionGeneral documentationMethods
Toolbar
WebCvsRaw content
Summary
Taxon - DESCRIPTION of Object
Package variables
No package variables defined.
Included modules
Bio::Species
Inherit
Bio::Species
Synopsis
Description
Methods
adaptorDescriptionCode
dbIDDescriptionCode
ncbi_taxidDescriptionCode
taxon_idDescriptionCode
validate_species_nameDescriptionCode
Methods description
adaptorcode    nextTop
 Title   : adaptor
 Usage   :
 Function: give the adaptor if known
 Example :
 Returns :
 Args    :
dbIDcodeprevnextTop
 Title   : dbID
 Usage   : 
 Function: get/set the dbID (taxon_id) of the taxon
 Example :
 Returns : 
 Args    :
ncbi_taxidcodeprevnextTop
 Title   : ncbi_taxid
 Usage   : 
 Function: get/set the ncbi_taxid of the taxon
 Example :
 Returns : An integer 
 Args    :
taxon_idcodeprevnextTop
 Title   : taxon_id
 Usage   : 
 Function: get/set the taxon_id of the taxon
 Example :
 Returns : An integer 
 Args    :
validate_species_namecodeprevnextTop
 Title   : validate_species_name
 Usage   :
 Function: override the inherited method to disable all
           species name checking since some swissprot species
           are not valid by the Bioperl definition
           e.g. SWISSPROT:APV1_DRONO has species novae-hollandiae
           and the - causes this function to throw an exception
 Example :
 Returns : 1
 Args    :
Methods code
adaptordescriptionprevnextTop
sub adaptor {
   my ($self, $value) = @_;

   if (defined $value) {
      $self->{'_adaptor'} = $value;
   }

   return $self->{'_adaptor'};
}
dbIDdescriptionprevnextTop
sub dbID {
  my ($self,$value) = @_;

  return $self->ncbi_taxid($value);
}
ncbi_taxiddescriptionprevnextTop
sub ncbi_taxid {
  my ($self,$value) = @_;
  
  # tricks for bioperl-07/bioperl-1-0-0 compliancy
  
  bless $self, "Bio::Species";
  
  if ($self->can("ncbi_taxid")) { # when using bioperl-1-0-0 and later
    if (defined $value) {
      $self->ncbi_taxid($value);
      $self->{'_ncbi_taxid'} = $self->ncbi_taxid;
    }
  } else {  # when using bioperl-07
    if (defined $value) {
      $self->{'_ncbi_taxid'} = $value;
    }
  }

  bless $self, "Bio::EnsEMBL::Compara::Taxon";
  return $self->{'_ncbi_taxid'};
}
taxon_iddescriptionprevnextTop
sub taxon_id {
  my ($self,$value) = @_;
  
  $self->warn("Taxon->taxon_id is a deprecated method!
Calling Taxon->ncbi_taxid instead!");

  if (defined $value) {
    return $self->ncbi_taxid($value);
  }

  return $self->ncbi_taxid;
}
validate_species_namedescriptionprevnextTop
sub validate_species_name {
  my( $self, $string ) = @_;
  return 1;
}
1;
}
General documentation
CONTACTTop
 Abel Ureta-Vidal <abel@ebi.ac.uk>
APPENDIXTop
The rest of the documentation details each of the object methods. Internal methods are usually preceded with a _