File Coverage

inc/Pegex/Tree.pm
Criterion Covered Total %
statement 9 10 90.0
branch 5 6 83.3
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             package Pegex::Tree;
2 1     1   6 use Pegex::Base;
  1         1  
  1         7  
3             extends 'Pegex::Receiver';
4              
5             sub gotrule {
6 110     110 0 92 my $self = shift;
7 110 100       272 @_ || return ();
8 61 100       149 return {$self->{parser}{rule} => $_[0]}
9             if $self->{parser}{parent}{-wrap};
10 59         172 return $_[0];
11             }
12              
13             sub final {
14 2     2 0 3 my $self = shift;
15 2 50       11 return(shift) if @_;
16 0           return [];
17             }
18              
19             1;