File Coverage

blib/lib/Data/Enumerator.pm

Criterion	Covered	Total	%
statement	21	30	70.0
branch			n/a
condition			n/a
subroutine	7	13	53.8
pod	2	6	33.3
total	30	49	61.2

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;
our @EXPORT_OK = qw/
    generator
    pattern
    range
    independ
    EACH_LAST
    EACH_NEXT
/;

our $VERSION = '0.02_1';

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

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 range {
    my ( $start,$end,$succ) = @_;
    return Data::Enumerator::Range->new($start,$end,$succ);
}
1;
__END__