| line |
true |
false |
branch |
|
38
|
32 |
169 |
if ($token_type == 187 or $token_type == 156) |
|
40
|
29 |
3 |
if (my(@captures) = $regex =~ / (\\)* \[ (\^?) (.+) ] /gx) |
|
46
|
1 |
28 |
if ($backslashes and length($backslashes) % 2 != 0) |
|
53
|
2 |
0 |
if (my $chr = $ordinals{oct $oct}) |
|
60
|
4 |
1 |
if (my $chr = $ordinals{hex $hex}) |
|
67
|
26 |
88 |
if (&List::Util::all(sub {
exists $parts{$_};
}
, @{$patterns[$j];})) |
|
69
|
13 |
13 |
if ($is_negate) |
|
73
|
4 |
22 |
if ($is_negate and not defined $patterns[$j + 1][0]) |
|
76
|
0 |
4 |
if 1 != scalar keys %parts |
|
79
|
13 |
13 |
$is_negate ? : |
|
80
|
24 |
2 |
if (defined(my $improvement = $patterns[$j + 1][$index])) |