File Coverage

blib/lib/Data/Enumerator/Limit.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	30	31	96.7

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


sub iterator {
    my ( $self ) = @_;
    my ( $object, $offset, $limit ) = @{ $self->object };
    my $object_iterator = $object->iterator;
    my $current_offset  = 0;
    my $current_limit   = 0;
    return sub {
        while (1) {
            my $value = $object_iterator->();
            next if ( $current_offset++ < $offset );
            return $self->LAST if ( $current_limit++ >= $limit );
            return $value;
        }
    };
}

1;