| line |
!l |
l&&!r |
l&&r |
condition |
|
290
|
696 |
0 |
1 |
@{$c->{'stack'};} and not $c->{'quick'} |
|
309
|
0 |
0 |
0 |
not $saw_moose and $match =~ /^use\s+(?:Mo(?:o|(?:[ou]se))?X?|MooseX::Declare)\b/ |
|
371
|
49 |
7 |
1 |
$c2 eq "_" and $$rstr =~ /\G(__(?:DATA|END)__\b)(?!\s*=>)/cg |
|
393
|
3580 |
0 |
2 |
$c2 eq "*" and $prev_token_type eq "ARROW" |
|
432
|
2 |
0 |
0 |
$prev_token_type eq "KEYWORD" and $c->token_expects_fh_or_block_list($prev_token) |
|
473
|
194 |
5 |
118 |
$c2 eq "_" and $$rstr =~ /\G\@_\b/cg |
|
606
|
0 |
0 |
0 |
$prev_token eq "KEYWORD" and $c->token_expects_fh_or_block_list($prev_token) |
|
757
|
44 |
3 |
20 |
$prev_token_type eq "KEYWORD" and $regexp_may_follow{$prev_token} |
|
767
|
47 |
0 |
0 |
not $current_scope & 512 and $prev_token_type eq "WORD" |
|
|
44 |
0 |
3 |
$prev_token_type eq "KEYWORD" and @keywords |
|
|
44 |
0 |
3 |
$prev_token_type eq "KEYWORD" and @keywords and $prev_token eq $keywords[-1] |
|
|
0 |
3 |
0 |
$prev_token_type eq "KEYWORD" and @keywords and $prev_token eq $keywords[-1] and $regexp_may_follow{$prev_token} |
|
812
|
16 |
3 |
15 |
$prev_token_type eq "KEYWORD" and $c->token_expects_fh_or_block_list($prev_token) |
|
817
|
3 |
9 |
70 |
@keywords and $c->token_expects_block($keywords[0]) |
|
820
|
14 |
53 |
3 |
$c->token_defines_sub($first_token) and $c->has_callback_for("sub", $first_token) |
|
843
|
624 |
1 |
47 |
@tokens and $c->token_defines_sub($keyword) |
|
|
625 |
7 |
40 |
@tokens and $c->token_defines_sub($keyword) and $c->has_callback_for("sub", $keyword) |
|
877
|
980 |
103 |
403 |
$waiting_for_a_block and @keywords |
|
|
1083 |
300 |
103 |
$waiting_for_a_block and @keywords and $c->token_defines_sub($keywords[-1]) |
|
|
403 |
2 |
101 |
$waiting_for_a_block and @keywords and $c->token_defines_sub($keywords[-1]) and $$rstr =~ /$prototype_re/cg |
|
888
|
212 |
4 |
79 |
$prev_token_type eq "KEYWORD" and @keywords |
|
|
216 |
0 |
79 |
$prev_token_type eq "KEYWORD" and @keywords and $keywords[-1] eq $prev_token |
|
|
4 |
25 |
54 |
$prev_token_type eq "KEYWORD" and @keywords and $keywords[-1] eq $prev_token and not $c->token_expects_expr_block($prev_token) |
|
1007
|
154 |
2 |
50 |
$waiting_for_a_block and @keywords |
|
|
156 |
6 |
44 |
$waiting_for_a_block and @keywords and $c->token_defines_sub($keywords[-1]) |
|
1050
|
452 |
129 |
19 |
@keywords and $prev_token_type eq "KEYWORD" |
|
|
581 |
0 |
19 |
@keywords and $prev_token_type eq "KEYWORD" and $keywords[-1] eq $prev_token |
|
1052
|
13 |
5 |
1 |
not @keywords and $current_scope & 1 |
|
1259
|
0 |
0 |
2 |
@tokens and $tokens[-1][0] eq $prepend |
|
1260
|
2 |
0 |
0 |
@scope_tokens and $scope_tokens[-1][0] eq $prepend |
|
1265
|
521 |
4769 |
1715 |
$prev_token_type ne "ARROW" and $prev_token_type ne 'KEYWORD' || !$c->token_expects_word($prev_token) |
|
1355
|
1936 |
3528 |
0 |
$c->token_is_keyword($token) and $prev_token_type ne 'KEYWORD' || !$c->token_expects_word($prev_token) || $prev_token eq 'sub' && $token eq 'BEGIN' |
|
1376
|
1906 |
45 |
5 |
$c1 eq "v" and $token =~ /^v(?:0|[1-9][0-9]*)$/ |
|
1387
|
39 |
0 |
10 |
@tokens and $tokens[-1][0] eq $prepend |
|
1388
|
10 |
0 |
39 |
@scope_tokens and $scope_tokens[-1][0] eq $prepend |
|
1430
|
0 |
20640 |
0 |
$current_scope & 512 and $current_scope & 256 || $ends_expr{$token} && $token_type eq 'KEYWORD' && $prev_token ne ',' && $prev_token ne '=>' |
|
1451
|
3156 |
22428 |
984 |
not $current_scope & 1 and exists $c->{'callback'}{$token} || exists $c->{'keyword'}{$token} || exists $c->{'sub'}{$token} |
|
|
22428 |
1 |
983 |
not $current_scope & 1 and exists $c->{'callback'}{$token} || exists $c->{'keyword'}{$token} || exists $c->{'sub'}{$token} and $token_type ne "METHOD" |
|
|
22429 |
1 |
982 |
not $current_scope & 1 and exists $c->{'callback'}{$token} || exists $c->{'keyword'}{$token} || exists $c->{'sub'}{$token} and $token_type ne "METHOD" and not $c->token_expects_word($prev_token) |
|
1457
|
26353 |
129 |
28 |
$parent_scope & 2 and !@{$c->{'stack'};} || $c->{'stack'}[-1][0] ne '{' |
|
1461
|
0 |
0 |
20 |
defined $eval_string and $eval_string ne "" |
|
1478
|
0 |
0 |
1 |
defined $eval_string and $eval_string ne "" |
|
1507
|
3089 |
1038 |
11 |
$token_type eq "KEYWORD" and $has_sideff{$token} |
|
1515
|
1383 |
635 |
271 |
$token eq "{" and $is_conditional{$stack->[2]} |
|
1521
|
1383 |
890 |
16 |
$token eq "{" and $current_scope & 2 |
|
1535
|
1199 |
588 |
502 |
$stack->[0] eq "(" and $prev_token_type eq "KEYWORD" |
|
|
1787 |
13 |
489 |
$stack->[0] eq "(" and $prev_token_type eq "KEYWORD" and @keywords |
|
|
601 |
0 |
489 |
$stack->[0] eq "(" and $prev_token_type eq "KEYWORD" and @keywords and $keywords[-1] eq $prev_token |
|
|
13 |
187 |
302 |
$stack->[0] eq "(" and $prev_token_type eq "KEYWORD" and @keywords and $keywords[-1] eq $prev_token and not $c->token_expects_expr_block($prev_token) |
|
1539
|
1383 |
193 |
713 |
$stack->[0] eq "{" and @keywords |
|
|
1576 |
76 |
637 |
$stack->[0] eq "{" and @keywords and $c->token_expects_block($keywords[0]) |
|
|
269 |
26 |
611 |
$stack->[0] eq "{" and @keywords and $c->token_expects_block($keywords[0]) and not $c->token_expects_block_list($keywords[-1]) |
|
1540
|
611 |
0 |
0 |
@tokens and $c->token_defines_sub($keywords[-1]) || $keywords[-1] eq 'eval' |
|
1545
|
3329 |
0 |
947 |
$current_scope & 1 and @tokens |
|
1561
|
716 |
0 |
0 |
$c->{'found_unsupported_package'} and not $c->{'quick'} |
|
1574
|
929 |
0 |
18 |
exists $c->{'method'}{$first_token} and $caller_package |
|
1600
|
11 |
0 |
0 |
exists $c->{'method'}{$first_token} and $caller_package |
|
1616
|
24353 |
22 |
2193 |
$unstack and @{$c->{'stack'};} |
|
1619
|
1186 |
1007 |
0 |
$unstack eq "}" and $stacked_type ne "{" |
|
|
2097 |
96 |
0 |
$unstack eq "]" and $stacked_type ne "[" |
|
|
1103 |
1090 |
0 |
$unstack eq ")" and $stacked_type ne "(" |
|
1635
|
24197 |
0 |
0 |
$c->{'last_found_by_skimming'} and $c->{'last_found_by_skimming'} < pos $$rstr |
|
1640
|
43243 |
0 |
0 |
@{$c->{'errors'};} and not $parent_scope & 4 |
|
1726
|
95 |
1 |
1 |
$re =~ /\n/s and not $mod =~ /x/ |
|
1778
|
1 |
29 |
23 |
$ldel1 ne "\\" and $$rstr =~ /\G$re_shortcut/cgs |
|
1905
|
3941 |
1 |
144 |
$c1 eq "#" and $rdel ne "#" |
|
1906
|
19 |
31 |
94 |
$multiline and $$rstr =~ /\G(#[^\Q$rdel\E]*?)\n/cgs |
|
1916
|
3525 |
1 |
416 |
$c1 eq "\\" and $rdel ne "\\" |
|
1974
|
0 |
2 |
28 |
$multiline and $saw_sharp |
|
1992
|
68 |
141 |
12 |
$multiline && $saw_sharp |
|
|
186 |
12 |
209 |
$c2 eq "?" and not $multiline && $saw_sharp |
|
2019
|
2711 |
184 |
3 |
$c1 eq "\$" and substr($$rstr, $p + 1, 1) eq "{" |
|
2027
|
0 |
4 |
393 |
@nesting and $nesting[-1] eq "(" |
|
2039
|
0 |
86 |
1 |
$outer_opening_delimiter and $c1 eq $outer_opening_delimiter |
|
2045
|
0 |
84 |
2 |
$outer_closing_delimiter and $c1 eq $outer_closing_delimiter |
|
2046
|
0 |
1 |
1 |
@nesting and $nesting[-1] eq $outer_opening_delimiter |
|
2162
|
6 |
600 |
34 |
$maybe_version_token_desc and $maybe_version_token_desc eq 'NUMBER' || $maybe_version_token_desc eq 'VERSION_STRING' |
|
2271
|
0 |
26 |
3 |
$maybe_version_token_desc and $maybe_version_token_desc eq 'NUMBER' || $maybe_version_token_desc eq 'VERSION_STRING' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
110
|
1 |
296 |
0 |
$ReStrInDelims{$delim} ||= do {
if ($delim eq "\\") {
qr/(?:[^\\]*(?:(?:\\\\)[^\\]*)*)/s;
}
else {
$delim = quotemeta $delim;
qr/(?:[^\\$delim]*(?:\\.[^\\$delim]*)*)/s;
}
} |
|
127
|
63 |
33 |
0 |
$ReStrInDelimsWithEndDelim{$delim} ||= do {
my $re = _gen_re_str_in_delims($delim);
qr/$re\Q$delim\E/
} |
|
136
|
121 |
37 |
0 |
$RdelSkip{$ldel} ||= do {
(my $rdel = $ldel) =~ tr/(<[{/)>]}/;
my $re_skip = qr/[^\Q$ldel$rdel\E\\]+/;
[$rdel, $re_skip]
} |
|
146
|
170 |
28 |
0 |
$RegexpShortcut{$ldel} ||= do {
$ldel = quotemeta $ldel;
$rdel = $rdel ? quotemeta $rdel : $ldel;
qr/(?:[^\\\(\)\{\}\[\]<>$ldel$rdel]*(?:\\.[^\\\(\)\[\]\{\}<>$ldel$rdel]*)*)$rdel/
} |
|
176
|
72251 |
45932 |
2086 |
$type eq 'use' || $type eq 'no' |
|
393
|
1 |
1 |
3578 |
$c2 eq "+" or $c2 eq "-" |
|
438
|
0 |
0 |
0 |
$token eq "\${^CAPTURE}" or $token eq "\${^CAPTURE_ALL}" |
|
473
|
1 |
1 |
111 |
$c2 eq "+" or $c2 eq "-" |
|
479
|
0 |
0 |
0 |
$token eq "\@{^CAPTURE}" or $token eq "\@{^CAPTURE_ALL}" |
|
484
|
2 |
0 |
0 |
$token eq "\@{^CAPTURE}" or $token eq "\@{^CAPTURE_ALL}" |
|
540
|
0 |
4 |
8 |
$prev_token_type eq "VARIABLE" or $prev_token_type eq "EXPR" |
|
|
1 |
1 |
0 |
$c2 eq "+" or $c2 eq "-" |
|
545
|
1 |
1 |
0 |
$token eq "%{^CAPTURE}" or $token eq "%{^CAPTURE_ALL}" |
|
720
|
39 |
12 |
1052 |
$prev_token_type eq "WORD" or $prev_token_type eq "KEYWORD" |
|
757
|
25 |
52 |
67 |
$prev_token_type eq "" or $prev_token_type eq "OP" |
|
|
77 |
52 |
15 |
$prev_token_type eq "" or $prev_token_type eq "OP" or $prev_token_type eq "KEYWORD" and $regexp_may_follow{$prev_token} |
|
767
|
1 |
0 |
47 |
$prev_token_type eq "" or not $current_scope & 512 and $prev_token_type eq "WORD" |
|
|
0 |
0 |
47 |
$prev_token_type eq "" or not $current_scope & 512 and $prev_token_type eq "WORD" or $prev_token_type eq "KEYWORD" and @keywords and $prev_token eq $keywords[-1] and $regexp_may_follow{$prev_token} |
|
812
|
488 |
267 |
116 |
$prev_token_type eq "ARROW" or $prev_token_type eq "VARIABLE" |
|
857
|
7 |
28 |
809 |
$prev_token_type eq "ARROW" or $prev_token_type eq "VARIABLE" |
|
1242
|
0 |
0 |
641 |
$n1 eq "E" or $n1 eq "e" |
|
1265
|
5175 |
250 |
1059 |
$prev_token_type ne 'KEYWORD' || !$c->token_expects_word($prev_token) |
|
1266
|
163 |
167 |
5095 |
$prev_token_type eq "EXPR" or $prev_token_type eq "VARIABLE" |
|
1355
|
3502 |
0 |
26 |
$prev_token_type ne 'KEYWORD' || !$c->token_expects_word($prev_token) || $prev_token eq 'sub' && $token eq 'BEGIN' |
|
1430
|
3120 |
0 |
17520 |
$current_scope & 256 || $ends_expr{$token} && $token_type eq 'KEYWORD' && $prev_token ne ',' && $prev_token ne '=>' |
|
1447
|
39 |
0 |
802 |
$token eq "-" or $token eq "+" |
|
1451
|
209 |
29 |
22428 |
exists $c->{'callback'}{$token} || exists $c->{'keyword'}{$token} || exists $c->{'sub'}{$token} |
|
1457
|
62 |
14 |
81 |
!@{$c->{'stack'};} || $c->{'stack'}[-1][0] ne '{' |
|
|
58 |
282 |
26228 |
$current_scope & 2 or $parent_scope & 2 and !@{$c->{'stack'};} || $c->{'stack'}[-1][0] ne '{' |
|
1504
|
11 |
1 |
4126 |
$token eq "-" or $token eq "+" |
|
1540
|
0 |
0 |
0 |
$c->token_defines_sub($keywords[-1]) || $keywords[-1] eq 'eval' |
|
1551
|
1 |
0 |
45 |
$first_token eq "use" or $first_token eq "no" |
|
1619
|
0 |
0 |
2193 |
$unstack eq "}" and $stacked_type ne "{" or $unstack eq "]" and $stacked_type ne "[" |
|
|
0 |
0 |
2193 |
$unstack eq "}" and $stacked_type ne "{" or $unstack eq "]" and $stacked_type ne "[" or $unstack eq ")" and $stacked_type ne "(" |
|
1717
|
47 |
50 |
1 |
$$rstr =~ /\G$re_shortcut/cgs or defined $self->_scan_re($c, $rstr, "/", "/", $token_type ? "m" : "") |
|
1750
|
2 |
45 |
0 |
$$rstr =~ /\G$re_shortcut/cgs or defined $self->_scan_re($c, $rstr, $ldel, $rdel, "m/qr") |
|
1778
|
23 |
30 |
0 |
$ldel1 ne "\\" and $$rstr =~ /\G$re_shortcut/cgs or defined $self->_scan_re($c, $rstr, $ldel1, $rdel1, "s") |
|
1900
|
696 |
0 |
4086 |
$c1 eq " " or $c1 eq "\t" |
|
2128
|
0 |
0 |
644 |
not defined $name or ref $name |
|
|
0 |
0 |
644 |
not defined $name or ref $name or $name eq "" |
|
2162
|
34 |
0 |
600 |
$maybe_version_token_desc eq 'NUMBER' || $maybe_version_token_desc eq 'VERSION_STRING' |
|
2212
|
0 |
0 |
67 |
not defined $name or $name eq "" |
|
2245
|
0 |
0 |
31 |
not defined $name or ref $name |
|
|
0 |
0 |
31 |
not defined $name or ref $name or $name eq "" |
|
2271
|
3 |
0 |
26 |
$maybe_version_token_desc eq 'NUMBER' || $maybe_version_token_desc eq 'VERSION_STRING' |