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   10 use Pegex::Base;
  2         2  
  2         8  
3             extends 'Pegex::Tree';
4              
5             sub got_row {
6 16     16 0 1673 my ($self, $got) = @_;
7 16         68 $self->flatten($got);
8             }
9              
10             sub got_value {
11 42     42 0 8464 $_[1] =~ s/(?:^"|"$)//g;
12 42         72 $_[1] =~ s/""/"/g;
13 42         104 return $_[1];
14             }
15              
16             1;