Bio::EnsEMBL::ExternalData::Mole::DBSQL LocationAdaptor
Included librariesPackage variablesGeneral documentationMethods
Toolbar
WebCvsRaw content
Package variables
No package variables defined.
Included modules
Bio::EnsEMBL::DBSQL::BaseAdaptor
Bio::EnsEMBL::ExternalData::Mole::DBSQL::DBAdaptor
Bio::EnsEMBL::ExternalData::Mole::Location
Bio::EnsEMBL::Utils::Argument qw ( rearrange )
Bio::EnsEMBL::Utils::Exception qw ( deprecate throw warning stack_trace_dump )
Inherit
Bio::EnsEMBL::DBSQL::BaseAdaptor
Synopsis
No synopsis!
Description
No description!
Methods
_columns
No description
Code
_objs_from_sth
No description
Code
_tables
No description
Code
fetch_by_Entry
No description
Code
fetch_by_blastdbtracking_id
No description
Code
fetch_by_entry_id
No description
Code
fetch_by_flat_file
No description
Code
Methods description
None available.
Methods code
_columnsdescriptionprevnextTop
sub _columns {
  my $self = shift;
  return ( 'lcn.entry_id', 'lcn.flat_file',
           'lcn.file_offset', 'lcn.blastdbtracking_id');
}
_objs_from_sthdescriptionprevnextTop
sub _objs_from_sth {
  my ($self, $sth) = @_;

  my @out;
  my ( $entry_id, $flat_file, $file_offset, $blastdbtracking_id );
  $sth->bind_columns(\$ entry_id,\$ flat_file,\$ file_offset,\$ blastdbtracking_id );

  while($sth->fetch()) {
    push @out, Bio::EnsEMBL::ExternalData::Mole::Location->new(
              -entry_id           => $entry_id,
              -adaptor            => $self,
              -flat_file          => $flat_file,
              -file_offset        => $file_offset,
              -blastdbtracking_id => $blastdbtracking_id,
              );
  }
  return\@ out;
}


1;
}
_tablesdescriptionprevnextTop
sub _tables {
  my $self = shift;
  return (['location' , 'lcn']);
}
fetch_by_EntrydescriptionprevnextTop
sub fetch_by_Entry {
  my $self = shift;
  my $entry = shift;

  my $location_object = $self->fetch_by_entry_id($entry->dbID);
  return $location_object;
}
fetch_by_blastdbtracking_iddescriptionprevnextTop
sub fetch_by_blastdbtracking_id {
  my ($self, $blastdbtracking_id) = @_;
  my $constraint = "lcn.blastdbtracking_id = '$blastdbtracking_id'";
  my ($location_obj) = @{ $self->generic_fetch($constraint) };
  return $location_obj;
}
fetch_by_entry_iddescriptionprevnextTop
sub fetch_by_entry_id {
  my ($self, $entry_id) = @_;
  my $constraint = "lcn.entry_id = '$entry_id'";
  my ($location_obj) = @{ $self->generic_fetch($constraint) };
  return $location_obj;
}
fetch_by_flat_filedescriptionprevnextTop
sub fetch_by_flat_file {
  my ($self, $flat_file) = @_;
  my $constraint = "lcn.flat_file = '$flat_file'";
  my ($location_obj) = @{ $self->generic_fetch($constraint) };
  return $location_obj;
}
General documentation
No general documentation available.