Branch Coverage

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


line true false branch
54 5 13 if $l + 1 > $#{$$aref[$i];} or $aref->[$i][$l + 1] ne $c
88 0 14 if $#t == -1
91 20 7 if (not $res[0]) { }
0 7 elsif ($res[0] == 0) { }
94 1 19 if ($res[0]) { }
100 1 2 if ($sfxlen == $#r) { }
119 3 19 if ($pfxlen == $#r) { }
128 14 13 if $res[0] == $#t
191 8 19 if (ref $elt eq 'ARRAY') { }
13 6 elsif (length $elt == 1) { }
200 4 10 if ($#cclass == 0) { }
2 8 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 5 9 if ($#alternations > 0) { }
5 4 elsif (not $set and length $alternations[0] > 1) { }
282 4 10 if $opt
304 6 8 if ($type == 0) { }
7 1 elsif ($type == 1) { }
1 0 elsif ($type == 2) { }
403 6 0 if ref $_[0] eq 'HASH'
405 6 0 if (exists $opts->{'type'}) { }
407 0 6 unless exists $transtab{$opts->{'type'}}
417 0 6 if $opts->{'debug'}
420 6 0 if (exists $opts->{'match'})
421 5 1 if ($opts->{'match'} eq 'word') { }
0 1 elsif ($opts->{'match'} eq 'exact') { }
0 1 elsif ($opts->{'match'} ne 'default') { }
430 0 6 if $opts->{'group'}