File Coverage

blib/lib/Sub/Iterator.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch	2	4	50.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	28	37	75.6

package Sub::Iterator;

our $DATE = '2015-01-17'; # DATE
our $VERSION = '0.01'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       gen_array_iterator
                       gen_fh_iterator
               );

sub gen_array_iterator {
    my $array = shift;
    my $i = 0;
    return sub {
        if ($i >= @$array) { undef } else { $array->[$i++] }
    };
}

sub gen_fh_iterator {
    my $fh = shift;
    return sub {
        if (eof($fh)) { undef } else { ~~<$fh> }
    };
}

1;
# ABSTRACT: Generate iterator coderefs

__END__