File Coverage

blib/lib/Pegex/Tree.pm

Criterion	Covered	Total	%
statement	9	10	90.0
branch	4	6	66.6
condition			n/a
subroutine	3	3	100.0
pod	2	2	100.0
total	18	21	85.7

package Pegex::Tree;
use Pegex::Base;
extends 'Pegex::Receiver';

sub gotrule {
    my $self = shift;
    @_ || return ();
    return {$self->{parser}{rule} => $_[0]}
        if $self->{parser}{parent}{-wrap};
    return $_[0];
}

sub final {
    my $self = shift;
    return(shift) if @_;
    return [];
}

1;