view release on metacpan or  search on metacpan

lib/Bio/DOOP/Sequence.pm  view on Meta::CPAN

=head2 get_db_id

Returns the full sequence ID, described at the new_from_dbid method.

Return type: string

  my $id = $seq->get_db_id;

=cut

sub get_db_id {
  my $self                 = shift;
  return($self->{DB_ID});
}

=head2 get_length

Returns the length of the sequence.

Return type: string

  my $length = $seq->get_length;

=cut

sub get_length {
  my $self                 = shift;
  return($self->{LENGTH});
}

=head2 get_date

Returns the last modification date of the MySQL record.

Return type: string

  my $date = $seq->get_date;

=cut

sub get_date {
  my $self                 = shift;
  return($self->{DATE});
}

=head2 get_ver

Returns the version of the sequence.

Return type: string

  my $version = $seq->get_ver;

=cut

sub get_ver {
  my $self                 = shift;
  return($self->{VERSION});
}

=head2 get_annot_id

Returns the sequence annotation primary id. This is the internal ID from the MySQL database.

Return type: string

  my $annotation_id = $seq->get_annot_id;

=cut

sub get_annot_id {
  my $self                 = shift;
  return($self->{ANNOT});
}

=head2 get_orig_id

This method is not yet implemented.

=cut

sub get_orig_id {
  my $self                 = shift;
  return($self->{ORIG});
}

=head2 get_data_id

Returns the sequence data primary id. This is the internal ID from the MySQL database.
  
Return type: string

  my $data_id = $seq->get_data_id;

=cut

sub get_data_id {
  my $self                 = shift;
  return($self->{DATA});
}

=head2 get_taxon_id

Returns the taxon annotation primary id. This is the internal ID from the MySQL database.
  
Return type: string

  my $taxon_id = $seq->get_taxon_id;

=cut

sub get_taxon_id {
  my $self                 = shift;
  return($self->{TAXON});
}

=head2 get_data_main_db_id

Returns the sequence annotation primary id. This is the internal ID from the MySQL database.

Return type: string

  my $annotation_id = $seq->get_data_main_db_id;

=cut

sub get_data_main_db_id {
  my $self                 = shift;
  return($self->{MAINDBID});
}