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   826 use Pegex::Base;
  6         9  
  6         31  
3             extends 'Pegex::Receiver';
4              
5             sub gotrule {
6 13     13 1 20 my $self = shift;
7 13 100       34 @_ || return ();
8 5         19 return {$self->{parser}{rule} => $_[0]}
9             }
10              
11             sub final {
12 6     6 1 11 my $self = shift;
13 6 100       25 return(shift) if @_;
14 2         7 return {$self->{parser}{rule} => []}
15             }
16              
17             1;