sub adaptor
{ my ($self, $value) = @_;
if (defined $value) {
$self->{'_adaptor'} = $value;
}
return $self->{'_adaptor'}; } |
sub dbID
{ my ($self,$value) = @_;
return $self->taxon_id($value); } |
sub ncbi_taxid
{ my ($self,$value) = @_;
bless $self, "Bio::Species";
if ($self->can("ncbi_taxid")) { if (defined $value) {
$self->ncbi_taxid($value);
$self->{'_ncbi_taxid'} = $self->ncbi_taxid;
}
} else { if (defined $value) {
$self->{'_ncbi_taxid'} = $value;
}
}
bless $self, "Bio::EnsEMBL::ExternalData::Family::Taxon";
return $self->{'_ncbi_taxid'};
}
1; } |
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; } |
The rest of the documentation details each of the object methods. Internal methods are usually preceded with a _