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 4     4   23 use Pegex::Base;
  4         4  
  4         33  
3             extends 'Pegex::Receiver';
4              
5             sub gotrule {
6 163     163 0 184 my $self = shift;
7 163 100       472 @_ || return ();
8 95 100       313 return {$self->{parser}{rule} => $_[0]}
9             if $self->{parser}{parent}{-wrap};
10 87         338 return $_[0];
11             }
12              
13             sub final {
14 8     8 0 14 my $self = shift;
15 8 50       73 return(shift) if @_;
16 0           return [];
17             }
18              
19             1;