| Included libraries | Package variables | General documentation | Methods |
| new | No description | Code |
| next_seq | No description | Code |
| TIEHANDLE | No description | Code |
| READLINE | No description | Code |
| new | description | prev | next | Top |
my $class = shift; my $db = shift; my $key = $db->FIRSTKEY; return bless { db=>$db,key=>$key },$class;}
| next_seq | description | prev | next | Top |
my $self = shift; my ($key,$db) = @{$self}{'key','db'}; my $value = $db->get_Seq_by_id($key); $self->{key} = $db->NEXTKEY($key); $value;}
| TIEHANDLE | description | prev | next | Top |
my $class = shift; my $db = shift; return $class->new($db);}
| READLINE | description | prev | next | Top |
my $self = shift; $self->next_seq;}