File Coverage

blib/lib/Data/Enumerator.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch			n/a
condition			n/a
subroutine	12	14	85.7
pod	2	6	33.3
total	45	54	83.3

package Data::Enumerator;
use strict;
use warnings;
use Exporter qw/import/;
use Data::Enumerator::Base;
use Data::Enumerator::Array;
use Data::Enumerator::Deeply;
use Data::Enumerator::Range;
use Data::Enumerator::File;
our @EXPORT_OK = qw/
    generator
    pattern
    range
    independ
    readfile
    EACH_LAST
    /;

our $VERSION = '0.03';

sub EACH_LAST {
    Data::Enumerator::Base->LAST;
}

sub pattern {
    return Data::Enumerator::Array->new( \@_ );
}

sub independ {
    my ($target) = @_;
    return Data::Enumerator::Deeply::independ($target);
}

sub generator {
    my ($target) = @_;
    return Data::Enumerator::Deeply->compose($target);
}

sub readfile {
    my ($filename) = @_;
    return Data::Enumerator::File->new($filename);
}

sub range {
    my ( $start, $end, $succ ) = @_;
    return Data::Enumerator::Range->new( $start, $end, $succ );
}
1;
__END__