File Coverage

blib/lib/Tables/Test/Dynamic.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition	2	4	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	32	35	91.4

package Tables::Test::Dynamic;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-11-10'; # DATE
our $DIST = 'TablesRoles-Standard'; # DIST
our $VERSION = '0.006'; # VERSION

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

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

    $class->_new(
        gen_iterator => sub {
            my $i = 0;
            sub {
                $i++;
                return undef if $i > $args{num_rows};
                return {i=>$args{random} ? int(rand()*$args{num_rows} + 1) : $i};
            };
        },
    );
}

1;
# ABSTRACT: A dynamic table

__END__