Other packages in the module: Bio::DB::Qual Bio::Seq::PrimaryQual::Qual

Toolbar

Package variables

Inherit

Bio::DB::SeqI Tie::Handle

Synopsis

No synopsis!

Description

No description!

Methods

Methods description

None available.

Methods code

sub new {

    my ($class, $db) = @_;
    my $key = $db->FIRSTKEY;
    return bless {
        db  => $db,
        key => $key
    }, $class;

}

sub next_seq {

    my $self = shift;
    my ($key, $db) = @{$self}{'key', 'db'};
    while ($key =~ /^__/) {
        $key = $db->NEXTKEY($key);
        return unless defined $key;
    }
    my $value = $db->get_Qual_by_id($key);
    $self->{key} = $db->NEXTKEY($key);
    $value;

}

sub TIEHANDLE {

    my ($class, $db) = @_;
    return $class->new($db);

}

sub READLINE {

    my $self = shift;
    $self->next_seq;
}

1;

__END__

}

General documentation