| Summary | Package variables | General documentation | Methods |
| new | No description | Code |
| next_seq | No description | Code |
| new | description | prev | next | Top |
my $class = shift; my ($sth,$store) = @_; return bless {sth => $sth, store => $store },ref($class) || $class;}
| next_seq | description | prev | next | Top |
my $self = shift; my $sth = $self->{sth} or return; my $store = $self->{store} or return; my $obj = $store->_sth2obj($sth); if (!$obj) { $self->{sth}->finish; undef $self->{sth}; undef $self->{store}; return; } return $obj; } 1;}