File Coverage

blib/lib/Pegex/Receiver.pm

Criterion	Covered	Total	%
statement	10	11	90.9
branch	2	4	50.0
condition	2	3	66.6
subroutine	2	3	66.6
pod	1	2	50.0
total	17	23	73.9

package Pegex::Receiver;
use Pegex::Base;

has parser => (); # The parser object.

sub rule { $_[0]->{parser}{rule} }

# Flatten a structure of nested arrays into a single array in place.
sub flatten {
    my ($self, $array, $times) = @_;
    $times = -1
        unless defined $times;
    while ($times-- and grep {ref($_) eq 'ARRAY'} @$array) {
        @$array = map {
            (ref($_) eq 'ARRAY') ? @$_ : $_
        } @$array;
    }
    return $array;
}

1;