None available.
sub new
{ my ($class, $store, $ids) = @_;
return bless {store => $store,
ids => $ids},ref($class) || $class;} |
sub next_seq
{ my $self = shift;
my $store = $self->{store} or return;
my $id = shift @{$self->{ids}};
defined $id or return;
return $store->fetch($id);
}
1;
__END__} |
This is an early version, so there are certainly some bugs. Please
use the BioPerl bug tracking system to report bugs.
Lincoln Stein <lstein@cshl.org>.
Copyright (c) 2006 Cold Spring Harbor Laboratory.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.