File Coverage

blib/lib/HashData/Test/Source/Iterator.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition	2	4	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	36	39	92.3

package HashData::Test::Source::Iterator;

use strict;
use 5.010001;
use strict;
use warnings;
use Role::Tiny::With;
with 'HashDataRole::Source::Iterator';

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-11-04'; # DATE
our $DIST = 'HashDataRoles-Standard'; # DIST
our $VERSION = '0.005'; # VERSION

sub new {
    my ($class, %args) = @_;
    $args{num_pairs} //= 10;
    $args{random}    //= 0;

    $class->_new(
        gen_iterator => sub {
            my $i = 0;
            sub {
                $i++;
                return () if $i > $args{num_pairs}; ## no critic: Subroutines::ProhibitExplicitReturnUndef
                return $args{random} ? ($i, int(rand()*$args{num_pairs} + 1)) : ($i, $i);
            };
        },
    );
}

1;
# ABSTRACT: A test HashData module

__END__