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 2     2   11 use Pegex::Base;
  2         3  
  2         21  
3             extends 'Pegex::Receiver';
4              
5             sub gotrule {
6 235     235 0 268 my $self = shift;
7 235 100       730 @_ || return ();
8 137 100       407 return {$self->{parser}{rule} => $_[0]}
9             if $self->{parser}{parent}{-wrap};
10 133         619 return $_[0];
11             }
12              
13             sub final {
14 4     4 0 8 my $self = shift;
15 4 50       18 return(shift) if @_;
16 0           return [];
17             }
18              
19             1;