Branch Coverage

blib/lib/List/Regexp.pm
Criterion Covered Total %
branch 67 86 77.9


line true false branch
54 6 13 if $l + 1 > $#{$$aref[$i];} or $aref->[$i][$l + 1] ne $c
88 0 17 if $#t == -1
91 23 8 if (not $res[0]) { }
0 8 elsif ($res[0] == 0) { }
94 2 21 if ($res[0]) { }
100 2 3 if ($sfxlen == $#r) { }
119 3 22 if ($pfxlen == $#r) { }
128 17 14 if $res[0] == $#t
191 10 21 if (ref $elt eq 'ARRAY') { }
15 6 elsif (length $elt == 1) { }
200 6 11 if ($#cclass == 0) { }
2 9 elsif ($#cclass >= 0) { }
205 2 13 if ($a eq '[') { }
2 11 elsif ($b eq '[') { }
2 9 elsif ($a eq ']') { }
0 9 elsif ($b eq ']') { }
3 6 elsif ($a eq '-') { }
1 5 elsif ($b eq '-') { }
206 1 1 if ($b eq ']') { }
212 0 2 if ($b eq ']') { }
233 2 5 if (defined $end) { }
1 4 elsif (ord($c) - ord($start) == 1) { }
234 1 1 if (ord($c) - ord($end) == 1) { }
237 1 0 if (ord($end) - ord($start) > 1) { }
249 0 4 if defined $end
255 2 0 if (defined $start)
257 0 2 if (defined $end)
258 0 0 if (ord($end) - ord($start) > 1) { }
270 6 11 if ($#alternations > 0) { }
6 5 elsif (not $set and length $alternations[0] > 1) { }
282 5 12 if $opt
304 7 10 if ($type == 0) { }
8 2 elsif ($type == 1) { }
2 0 elsif ($type == 2) { }
411 7 0 if ref $_[0] eq 'HASH'
413 7 0 if (exists $opts->{'type'}) { }
415 0 7 unless exists $transtab{$opts->{'type'}}
425 0 7 if $opts->{'debug'}
428 7 0 if (exists $opts->{'match'})
429 6 1 if ($opts->{'match'} eq 'word') { }
0 1 elsif ($opts->{'match'} eq 'exact') { }
0 1 elsif ($opts->{'match'} ne 'default') { }
438 0 7 if $opts->{'group'}