| line |
!l |
l&&!r |
l&&r |
condition |
|
30
|
1 |
2 |
0 |
@_ > 1 and $_[1] eq 'noimport' |
|
86
|
226 |
225 |
15 |
$Perl5 and $source =~ /case|switch/ |
|
|
225 |
215 |
11 |
$Perl6 and $source =~ /when|given|default/ |
|
102
|
52 |
0 |
6 |
substr($source, $pos[4], $pos[5]) eq '/' and substr($source, $pos[2], $pos[3]) eq '' |
|
|
52 |
0 |
6 |
substr($source, $pos[4], $pos[5]) eq '/' and substr($source, $pos[2], $pos[3]) eq '' and index(substr($source, $pos[16], $pos[17]), 'x') == -1 |
|
|
0 |
0 |
6 |
substr($source, $pos[4], $pos[5]) eq '/' and substr($source, $pos[2], $pos[3]) eq '' and index(substr($source, $pos[16], $pos[17]), 'x') == -1 and ($iEol = index($source, "\n", $pos[4])) > 0 |
|
|
0 |
6 |
0 |
substr($source, $pos[4], $pos[5]) eq '/' and substr($source, $pos[2], $pos[3]) eq '' and index(substr($source, $pos[16], $pos[17]), 'x') == -1 and ($iEol = index($source, "\n", $pos[4])) > 0 and $iEol < $pos[8] |
|
127
|
1151 |
1169 |
11 |
$Perl5 and $source =~ /\G(\n*)(\s*)(switch)\b(?=\s*[(])/cg |
|
|
1169 |
1143 |
8 |
$Perl6 and $source =~ /\G(\n*)(\s*)(given)\b(?=\s*[(])/cg |
|
|
1169 |
1142 |
1 |
$Perl6 and $source =~ /\G(\n*)(\s*)(given)\b(.*)(?=\{)/cg |
|
|
1142 |
1061 |
108 |
$Perl5 and $source =~ /\G(\s*)(case\b)(?!\s*=>)/cg |
|
|
1061 |
1038 |
104 |
$Perl6 and $source =~ /\G(\s*)(when\b)(?!\s*=>)/cg |
|
|
1061 |
1038 |
0 |
$Perl6 and $source =~ /\G(\s*)(default\b)(?=\s*\{)/cg |
|
163
|
12 |
11 |
0 |
$Perl6 and do {
@pos = &Text::Balanced::_match_variable(\$source, qr/\s*/)
} |
|
|
10 |
0 |
9 |
$Perl5 and $source =~ /\G\s*(([^\$\@{])[^\$\@{]*)(?=\s*{)/cg |
|
|
0 |
0 |
10 |
$Perl6 and $source =~ /\G\s*([^;{]*)()/cg |
|
246
|
433 |
54 |
471 |
$numx and $numy[$j] |
|
|
487 |
443 |
28 |
$numx and $numy[$j] and $nextx == $nexty |
|
256
|
0 |
0 |
0 |
@_ == 1 && ref $_[0] eq 'HASH' |
|
262
|
0 |
0 |
0 |
@_ == 1 && ref $_[0] eq 'HASH' |
|
271
|
21 |
0 |
26 |
$s_ref eq '' and defined $s_val |
|
|
21 |
8 |
18 |
$s_ref eq '' and defined $s_val and (~$s_val & $s_val) eq 0 |
|
285
|
101 |
0 |
69 |
$c_ref eq '' and defined $c_val |
|
|
101 |
24 |
45 |
$c_ref eq '' and defined $c_val and (~$c_val & $c_val) eq 0 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
39
|
0 |
2 |
1 |
grep /Perl\s*5/i, @_ or not grep(/Perl\s*6/i, @_) |
|
86
|
15 |
0 |
451 |
$Perl5 and $source =~ /case|switch/ or $Perl6 and $source =~ /when|given|default/ |
|
127
|
11 |
0 |
2320 |
$Perl5 and $source =~ /\G(\n*)(\s*)(switch)\b(?=\s*[(])/cg or $Perl6 and $source =~ /\G(\n*)(\s*)(given)\b(?=\s*[(])/cg |
|
|
8 |
0 |
2312 |
$Perl5 and $source =~ /\G(\n*)(\s*)(switch)\b(?=\s*[(])/cg or $Perl6 and $source =~ /\G(\n*)(\s*)(given)\b(?=\s*[(])/cg or $Perl6 and $source =~ /\G(\n*)(\s*)(given)\b(.*)(?=\{)/cg |
|
|
108 |
0 |
2203 |
$Perl5 and $source =~ /\G(\s*)(case\b)(?!\s*=>)/cg or $Perl6 and $source =~ /\G(\s*)(when\b)(?!\s*=>)/cg |
|
|
104 |
0 |
2099 |
$Perl5 and $source =~ /\G(\s*)(case\b)(?!\s*=>)/cg or $Perl6 and $source =~ /\G(\s*)(when\b)(?!\s*=>)/cg or $Perl6 and $source =~ /\G(\s*)(default\b)(?=\s*\{)/cg |
|
141
|
0 |
0 |
20 |
$arg =~ s/^\s*[(]\s*%/ ( \\%/ or $arg =~ s/^\s*[(]\s*m\b/ ( qr/ |
|
|
0 |
0 |
20 |
$arg =~ s/^\s*[(]\s*%/ ( \\%/ or $arg =~ s/^\s*[(]\s*m\b/ ( qr/ or $arg =~ s[^\s*[(]\s*/][ ( qr/] |
|
163
|
9 |
0 |
10 |
$Perl5 and $source =~ /\G\s*(([^\$\@{])[^\$\@{]*)(?=\s*{)/cg or $Perl6 and $source =~ /\G\s*([^;{]*)()/cg |
|
174
|
0 |
0 |
155 |
$code =~ s/^\s*[(]\s*%/ ( \\%/ or $code =~ s/^\s*[(]\s*m\b/ ( qr/ |
|
|
0 |
0 |
155 |
$code =~ s/^\s*[(]\s*%/ ( \\%/ or $code =~ s/^\s*[(]\s*m\b/ ( qr/ or $code =~ s[^\s*[(]\s*/][ ( qr/] |
|
191
|
0 |
0 |
4 |
$code =~ s/^\s*m/ qr/ or $code =~ s[^\s*/][ qr/] |
|
207
|
108 |
104 |
0 |
not $Perl6 or $source =~ /\G(\s*)(?=;|\{)/cg |
|
240
|
0 |
0 |
153 |
ref $nextx || defined $nextx && (~$nextx & $nextx) eq 0 |
|
244
|
0 |
0 |
550 |
ref $nexty || defined $nexty && (~$nexty & $nexty) eq 0 |
|
246
|
28 |
13 |
917 |
$numx and $numy[$j] and $nextx == $nexty or $nextx eq $nexty |