File Coverage

blib/lib/ESPPlus/Storage/Reader/Tie.pm

Criterion	Covered	Total	%
statement	19	28	67.8
branch	1	2	50.0
condition			n/a
subroutine	6	10	60.0
pod			n/a
total	26	40	65.0

package ESPPlus::Storage::Reader::Tie;
use strict;
use warnings;
use ESPPlus::Storage;

use base 'Tie::Handle';

sub TIEHANDLE {
    my $class = shift;
    my $self = {};
    $self->{'storage'} = ESPPlus::Storage->new( shift );
    $self->{'reader'}  = $self->{'storage'}->reader;
    # writer?

    bless $self, $class;
}

#sub READ { read shift()->{'reader'}->handle(), shift, shift, shift }
sub SEEK { seek shift()->{'reader'}->handle(), shift, shift }
sub TELL { tell shift()->{'reader'}->handle }
sub EOF { eof shift()->{'reader'}->handle }
sub READLINE {
    my $rd = shift()->{'reader'};

    return $rd->next_record_body unless wantarray;

    local $_;
    my @o;
    while (my $rec = $rd->next_record_body) {
	push @o, $rec;
    }
    return @o;
}
sub CLOSE { close shift()->{'reader'}->handle }

1;

__END__