File Coverage

blib/lib/Role/TinyCommons/Iterator/Resettable.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	41	42	97.6

package Role::TinyCommons::Iterator::Resettable;

use strict;
use Role::Tiny;
use Role::Tiny::With;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-10-07'; # DATE
our $DIST = 'RoleBundle-TinyCommons-Iterator'; # DIST
our $VERSION = '0.004'; # VERSION

with 'Role::TinyCommons::Iterator::Basic';

### required

requires 'reset_iterator';

### provided

sub get_all_items {
    my $self = shift;

    $self->reset_iterator;
    my @items;
    while ($self->has_next_item) {
        push @items, $self->get_next_item;
    }
    @items;
}

sub get_item_count {
    my $self = shift;

    $self->reset_iterator;
    my $count = 0;
    while ($self->has_next_item) {
        $self->get_next_item;
        $count++;
    }
    $count;
}

sub each_item {
    my ($self, $coderef) = @_;

    $self->reset_iterator;
    my $pos = 0;
    while ($self->has_next_item) {
        my $item = $self->get_next_item;
        my $res = $coderef->($item, $self, $pos);
        return 0 unless $res;
        $pos++;
    }
    return 1;
}

1;
# ABSTRACT: A resettable iterator

__END__