File Coverage

blib/lib/Pegex/Tree/Wrap.pm
Criterion Covered Total %
statement 9 9 100.0
branch 4 4 100.0
condition n/a
subroutine 3 3 100.0
pod 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Pegex::Tree::Wrap;
2 6     6   1025 use Pegex::Base;
  6         12  
  6         33  
3             extends 'Pegex::Receiver';
4              
5             sub gotrule {
6 13     13 1 24 my $self = shift;
7 13 100       44 @_ || return ();
8 5         23 return {$self->{parser}{rule} => $_[0]}
9             }
10              
11             sub final {
12 6     6 1 15 my $self = shift;
13 6 100       22 return(shift) if @_;
14 2         9 return {$self->{parser}{rule} => []}
15             }
16              
17             1;