File Coverage

blib/lib/Data/Enumerator/Repeat.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	26	27	96.3

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

sub iterator {
    my ($self) = @_;
    my $object_iterator = $self->object->iterator;
    my $repeated_iterator;
    $repeated_iterator = sub {
        my $value = $object_iterator->();
        if ( $self->is_last($value) ) {
            $object_iterator = $self->object->iterator;
            return $repeated_iterator->();
        }
        return $value;
    };
    return $repeated_iterator;
}
1;