← Back to branch summary

~ubuntu-branches/ubuntu/precise/bioperl/precise

« back to all changes in this revision

Viewing changes to Bio/DB/SeqFeature/Store/DBI/Iterator.pm

  • Committer: Bazaar Package Importer
  • Author(s): Ilya Barygin
  • Date: 2010-01-27 22:48:22 UTC
  • mfrom: (3.1.4 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100127224822-ebot4qbrjxcv38au
Tags: 1.6.1-1ubuntu1
* Merge from Debian testing, remaining changes:
  - disable tests, they produce a FTBFS trying to access the network 
    during run.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Bio/DB/SeqFeature/Store/DBI/Iterator.pm
1
1
package Bio::DB::SeqFeature::Store::DBI::Iterator;
2
2
 
3
 
# $Id: Iterator.pm 10476 2006-09-20 16:15:36Z cjfields $
 
3
# $Id: Iterator.pm 15635 2009-04-14 19:11:13Z cjfields $
4
4
 
5
5
=head1 NAME
6
6
 
7
 
Bio::DB::SeqFeature::Store::DBI::Iterator
 
7
Bio::DB::SeqFeature::Store::DBI::Iterator - utility methods for creating and iterating over SeqFeature records
8
8
 
9
9
=cut
10
10
 
22
22
  my $store = $self->{store} or return;
23
23
  my $obj   = $store->_sth2obj($sth);
24
24
  if (!$obj) {
 
25
    $self->{sth}->finish;
25
26
    undef $self->{sth};
26
27
    undef $self->{store};
27
28
    return;