File Coverage

blib/lib/PPI/Transform/Sequence.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	8	8	100.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	3	3	100.0
total	50	52	96.1

package PPI::Transform::Sequence;

use strict;
use warnings;

# ABSTRACT: Tiny binder to combine multiple PPI::Transform objects
our $VERSION = 'v0.0.3'; # VERSION

use parent qw(PPI::Transform);

use Carp;

sub new
{
    my ($self, @args) = @_;
    croak 'Odd number of arguments are specified' if @args % 2 == 1;
    my $class = ref($self) || $self;
    $self = bless [], $class;
    while(@args) {
        my ($name, $arg) = splice @args, 0, 2;
        croak 'The latter of pairs SHOULD be an array reference' if ref($arg) ne 'ARRAY';
        eval "require $name";
        croak "$name can't be loaded: $@" if $@;
        croak 'The former of pairs SHOULD be a name of PPI::Transform subclass: $name' if ! $name->isa('PPI::Transform');
        push @$self, $name->new(@$arg);
    }
    return $self;
}

sub idx
{
    my ($self, $idx) = @_;
    return $self->[$idx];
}

sub document
{
    my ($self, $doc) = @_;
    my $count = 0;
    foreach my $trans (@$self) {
        $count += $trans->document($doc);
    }
    return $count;
}

1;

__END__