File Coverage

blib/lib/Data/Enumerator/File.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	34	47.0

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;