File Coverage

blib/lib/Bootylicious/IteratorSearchable.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	33	35	94.2

package Bootylicious::IteratorSearchable;

use strict;
use warnings;

use base 'Bootylicious::Decorator';

sub find_first {
    my $self = shift;
    my $cb   = shift;

    $self->rewind;

    while (my $el = $self->next) {
        if (my $res = $cb->($self->object, $el)) {
            return $res;
        }
    }

    return;
}

sub find_all {
    my $self = shift;
    my $cb = shift;

    $self->rewind;

    my @found_elements;
    while (my $el = $self->next) {
        if (my $res = $cb->($self->object, $el)) {
            push @found_elements, $res;
        }
    }

    return Bootylicious::Iterator->new(elements => [@found_elements]);
}

1;