File Coverage

lib/Pegex/Chess/Data.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 9 10 90.0


line stmt bran cond sub pod time code
1             package Pegex::Chess::Data;
2 1     1   4 use Pegex::Base;
  1         1  
  1         5  
3             extends 'Pegex::Tree';
4              
5             sub got_row {
6 8     8 0 4640 my ($self, $got) = @_;
7 8         13 [ map { s/ /_/; $_ } @$got ];
  64         83  
  64         135  
8             }
9              
10             1;