File Coverage

blib/lib/TableDataRole/Util/GetRowByPos.pm

Criterion	Covered	Total	%
statement	11	35	31.4
branch	0	6	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	15	51	29.4

package TableDataRole::Util::GetRowByPos;

use 5.010001;
use strict;
use warnings;

use Role::Tiny;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-05-14'; # DATE
our $DIST = 'TableDataRoles-Standard'; # DIST
our $VERSION = '0.025'; # VERSION

requires 'reset_iterator';
requires 'has_next_item';
requires 'get_next_item';
requires 'get_next_row_hashref';
with 'TableDataRole::Spec::GetRowByPos';

sub has_item_at_pos {
    my ($self, $index) = @_;
    $self->reset_iterator;
    my $i = 0;
    # XXX implement caching?
    while ($i < $index) {
        die "StopIteration" unless $self->has_next_item;
        $self->get_next_item;
        $i++;
    }
    $self->has_next_item;
}

sub get_item_at_pos {
    my ($self, $index) = @_;
    $self->reset_iterator;
    my $i = 0;
    # XXX implement caching?
    while ($i < $index) {
        die "StopIteration" unless $self->has_next_item;
        $self->get_next_item;
        $i++;
    }
    $self->get_next_item;
}

sub get_row_at_pos_hashref {
    my ($self, $index) = @_;
    $self->reset_iterator;
    my $i = 0;
    # XXX implement caching?
    while ($i < $index) {
        die "StopIteration" unless $self->has_next_item;
        $self->get_next_item;
        $i++;
    }
    $self->get_next_row_hashref;
}

1;
# ABSTRACT: Provide TableDataRole::Spec::GetRowByPos methods using iteration

__END__