File Coverage

blib/lib/Bootylicious/ArticleByTagIterator.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	32	33	96.9

package Bootylicious::ArticleByTagIterator;

use strict;
use warnings;

use base 'Bootylicious::Decorator';

__PACKAGE__->attr('tag');

use Bootylicious::IteratorSearchable;

sub new {
    my $self = shift->SUPER::new(@_);

    return $self->build;
}

sub build {
    my $self = shift;

    my $tag = $self->tag;

    return Bootylicious::IteratorSearchable->new($self->object)->find_all(
        sub {
            my ($iterator, $elem) = @_;

            return unless scalar grep { $_ eq $tag } @{$elem->tags};

            return $elem;
        }
    );
}

1;