File Coverage

blib/lib/Data/Enumerator/File.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	32	34	94.1

package Data::Enumerator::File;
use strict;
use warnings;
use IO::File;
use base qw/Data::Enumerator::Base/;

sub new {
    my ( $class, $file ) = @_;
    bless {
        file => $file,
    }, $class;
}

sub iterator {
    my ($self) = @_;
    my $file   = $self->{file};
    my $fh = IO::File->new;
    $fh->open( $file, 'r' );
    return sub {
        my $line = <$fh>;
        return $line if( defined $line );
        $fh->close;
        return $self->LAST;
    }
}
1;