File Coverage

blib/lib/Bio/SFF/Reader/Sequential.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	6	8	75.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	37	41	90.2

package Bio::SFF::Reader::Sequential;
{
  $Bio::SFF::Reader::Sequential::VERSION = '0.007';
}

use Moo;

with 'Bio::SFF::Reader';

use Carp qw/croak/;
use Const::Fast;
use Fcntl qw/SEEK_SET SEEK_CUR/;

has _current_read => (
	is => 'rw',
	init_arg => undef,
	default => sub { 0 },
);

sub next_entry {
	my $self = shift;
	return if $self->_current_read >= $self->_number_of_reads;
	$self->_fh->seek($self->_index_length, SEEK_CUR), if $self->_fh->tell == $self->_index_offset;
	my $ret = $self->_read_entry;
	$self->_current_read($self->_current_read + 1) if defined $ret;
	return $ret;
}

sub _has_index {
	return 0;
}

sub reset {
	my $self = shift;
	$self->header;
	$self->_fh->seek($self->header->header_length, SEEK_SET) or croak "Couldn't seek: $!";
	$self->_current_read(0);
	return;
};

1;

#ABSTRACT: Sequential SFF reader

__END__