File Coverage

blib/lib/Pegex/CSV/LoL.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 11 13 84.6


line stmt bran cond sub pod time code
1             package Pegex::CSV::LoL;
2 2     2   12 use Pegex::Base;
  2         3  
  2         10  
3             extends 'Pegex::Tree';
4              
5             sub got_row {
6 16     16 0 2421 my ($self, $got) = @_;
7 16         69 $self->flatten($got);
8             }
9              
10             sub got_value {
11 42     42 0 11555 $_[1] =~ s/(?:^"|"$)//g;
12 42         80 $_[1] =~ s/""/"/g;
13 42         159 return $_[1];
14             }
15              
16             1;