| line |
!l |
l&&!r |
l&&r |
condition |
|
277
|
0 |
0 |
0 |
$self and length $self < 200
|
|
792
|
562 |
0 |
0 |
$self->[10] && $self->[9]
|
|
815
|
0 |
0 |
0 |
$maxle >= 0 and $level_diff > $maxle
|
|
833
|
561 |
1 |
0 |
$rOpts_look_for_hash_bang and not $self->[30]
|
|
918
|
562 |
0 |
0 |
$maxue > 0 and $ue_count > $maxue
|
|
1170
|
47 |
0 |
0 |
$input_line =~ /^\#\!.*perl\b/ and not $self->[5]
|
|
1218
|
1 |
0 |
0 |
$input_line =~ /^=(\w+)\b/ and $1 ne "cut"
|
|
1237
|
42 |
0 |
6 |
$input_line =~ /^=(\w+)\b/ and $1 ne "cut"
|
|
1253
|
548 |
6974 |
15 |
not $self->[30] and substr($input_line, 0, 2) eq "#!"
|
|
|
7522 |
0 |
15 |
not $self->[30] and substr($input_line, 0, 2) eq "#!" and $input_line =~ /^\#\!.*perl\b/
|
|
1268
|
2 |
0 |
0 |
$last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN'
|
|
|
13 |
0 |
2 |
$input_line_number > 1 and not $last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN'
|
|
|
13 |
1 |
1 |
$input_line_number > 1 and not $last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN' and not $rOpts_look_for_hash_bang
|
|
|
1 |
0 |
1 |
$input_line_number > 1 and not $last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN' and not $rOpts_look_for_hash_bang and $input_line =~ /^\#\!(\s+)?(\S+)?perl/
|
|
1317
|
7517 |
1 |
5 |
$rOpts_look_for_hash_bang and not $self->[30]
|
|
1326
|
6972 |
546 |
0 |
$input_line_number == 1 and $input_line =~ /^\s*\:\s*\#/
|
|
1464
|
7311 |
135 |
49 |
$self->[14] and $self->[16] < 0
|
|
|
7263 |
135 |
48 |
$self->[16] >= 0 and not $self->[14]
|
|
1522
|
314 |
544 |
13 |
$i == 1 and $line =~ /^\#\!/
|
|
1530
|
0 |
296 |
0 |
$rOpts_code_skipping and $line =~ /$code_skipping_pattern_begin/
|
|
1589
|
543 |
0 |
1 |
$3 and $rOpts_outdent_labels
|
|
1975
|
0 |
0 |
8 |
$pretoken and length $pretoken > $numc
|
|
|
0 |
0 |
8 |
$pretoken and length $pretoken > $numc and substr($pretoken, $numc) =~ /^(\d*)(.*)$/
|
|
2267
|
0 |
0 |
3 |
$i > 0 and $$rtokens[$i - 1] eq "^"
|
|
|
0 |
0 |
3 |
$i > 0 and $$rtokens[$i - 1] eq "^" and $self->split_pretoken(1)
|
|
2333
|
0 |
4 |
4783 |
not $id_scan_state and $i_plus_1 <= $max_token_index
|
|
|
4 |
4783 |
0 |
not $id_scan_state and $i_plus_1 <= $max_token_index and $fast_scan_context{$tok}
|
|
|
107 |
0 |
0 |
$tok eq "->" and $i < $max_token_index
|
|
|
107 |
0 |
0 |
$tok eq "->" and $i < $max_token_index and $rtokens->[$i_plus_1] eq '{' || $rtokens->[$i_plus_1] eq '['
|
|
2347
|
226 |
62 |
0 |
$rtoken_type->[$i_plus_1] eq "{" and $tok_begin eq '@' || $tok_begin eq '%'
|
|
2351
|
2566 |
2 |
1708 |
$rtoken_type->[$i_next] eq "b" and $i_next < $max_token_index
|
|
2358
|
100 |
8 |
4284 |
$pretype_next ne ":" and $pretype_next ne "'"
|
|
2638
|
1934 |
0 |
343 |
$typ_d ne "d" and $typ_d eq '+' || $typ_d eq '-'
|
|
|
0 |
0 |
343 |
$typ_d ne "d" and $typ_d eq '+' || $typ_d eq '-' and $i_d < $max_token_index
|
|
2649
|
301 |
48 |
1928 |
$typ_d eq "d" and $i_d == $max_token_index || $i_d < $max_token_index && $$rtoken_type[$i_d + 1] ne '.' && $$rtoken_type[$i_d + 1] ne 'w'
|
|
2793
|
4002 |
0 |
36 |
$is_indirect_object_taker{$last_nonblank_token} and $last_nonblank_type eq "k"
|
|
|
3214 |
771 |
17 |
$last_nonblank_token eq "(" and $is_indirect_object_taker{$rparen_type->[$paren_depth]}
|
|
2837
|
1322 |
547 |
3 |
$expecting == 1 and not $last_nonblank_token =~ /^(?:[\]\}\)\&]|\-\>)/
|
|
2867
|
3 |
0 |
0 |
$next_nonblank_token ne ")" and $next_nonblank_token ne "#"
|
|
2879
|
0 |
0 |
0 |
$i_tok > 0 and $last_nonblank_token =~ /^\$/
|
|
2976
|
0 |
0 |
2126 |
$type_lp and $type_lp eq "{"
|
|
2992
|
52 |
17 |
0 |
$num_sc > 0 and $num_sc != 2
|
|
3006
|
3065 |
0 |
0 |
$last_nonblank_token eq "(" and $last_nonblank_type eq "{"
|
|
3043
|
1 |
0 |
34 |
$brace_depth == $rdepth_array->[2][0][$paren_depth] and $square_bracket_depth == $rdepth_array->[2][1][$paren_depth]
|
|
3103
|
195 |
12 |
0 |
$last_nonblank_type eq "k" and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}
|
|
3166
|
1594 |
38 |
0 |
$statement_type eq 'case' || $statement_type eq 'when' and $statement_type eq $last_nonblank_token
|
|
|
1390 |
0 |
0 |
$last_nonblank_token eq "qw" and $is_for_foreach{$want_paren}
|
|
3263
|
367 |
0 |
0 |
$statement_type eq "when" and $last_nonblank_type eq "i"
|
|
|
367 |
0 |
0 |
$statement_type eq "when" and $last_nonblank_type eq "i" and $last_last_nonblank_type eq "k"
|
|
|
0 |
0 |
0 |
$statement_type eq "when" and $last_nonblank_type eq "i" and $last_last_nonblank_type eq "k" and $i_tok == 0 || $$rtoken_type[$i_tok - 1] eq 'b'
|
|
3283
|
333 |
936 |
34 |
$block_type and $last_nonblank_type eq "w"
|
|
|
1269 |
0 |
34 |
$block_type and $last_nonblank_type eq "w" and $last_nonblank_i >= 0
|
|
3412
|
186 |
0 |
1 |
$last_nonblank_type eq "k" and $is_keyword_rejecting_question_as_pattern_delimiter{$last_nonblank_token}
|
|
3465
|
226 |
12 |
0 |
$expecting == 0 and $last_nonblank_type eq "Z"
|
|
3466
|
0 |
0 |
0 |
$next_type ne "b" and $next_type ne "("
|
|
|
0 |
0 |
0 |
$next_type ne "b" and $next_type ne "(" and $next_type ne "#"
|
|
3525
|
262 |
9 |
0 |
$input_line_number == 1 and $last_nonblank_i == -1
|
|
|
248 |
0 |
1 |
$rparen_type->[$paren_depth] =~ /^sub\b/ and not is_balanced_closing_container(3)
|
|
|
233 |
0 |
15 |
$is_my_our_state{$statement_type} and $rcurrent_depth->[3] == 0
|
|
|
187 |
0 |
46 |
$is_case_default{$statement_type} and not is_balanced_closing_container(3)
|
|
3621
|
0 |
0 |
0 |
$next_type ne "b" and $next_type ne "("
|
|
3681
|
97 |
334 |
10 |
$expecting != 1 and $is_file_test_operator{$next_tok}
|
|
3725
|
0 |
0 |
5 |
$last_nonblank_token eq "{" and not $next_tok =~ /^\d/
|
|
|
0 |
0 |
5 |
$last_nonblank_token eq "{" and not $next_tok =~ /^\d/ and $next_tok =~ /^\w/
|
|
3748
|
5 |
0 |
0 |
$last_last_nonblank_type ne "t" and $last_last_nonblank_type ne "Z"
|
|
|
5 |
0 |
0 |
$last_last_nonblank_type ne "t" and $last_last_nonblank_type ne "Z" and $last_last_nonblank_token ne "\$#"
|
|
3993
|
58 |
0 |
0 |
$expecting == -1 and $last_nonblank_token ne ","
|
|
4003
|
66 |
0 |
8 |
$expecting == -1 and $last_nonblank_token ne ","
|
|
4144
|
769 |
0 |
3 |
$expecting == 1 and substr($tok, 0, 1) eq "x"
|
|
|
769 |
0 |
3 |
$expecting == 1 and substr($tok, 0, 1) eq "x" and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/
|
|
4263
|
2 |
27 |
0 |
$last_nonblank_token ne ";" and not $is_if_elsif_unless{$last_nonblank_block_type}
|
|
4277
|
0 |
43 |
1 |
$last_nonblank_token ne ";" and not $is_if_elsif_unless_case_when{$last_nonblank_block_type}
|
|
|
43 |
1 |
0 |
$last_nonblank_token ne ";" and not $is_if_elsif_unless_case_when{$last_nonblank_block_type} and not $is_if_elsif_unless_case_when{$statement_type}
|
|
4343
|
0 |
0 |
0 |
$tok eq 'qw' && ($last_nonblank_token =~ /^([\]\}\&]|\-\>)/ || $is_for_foreach{$want_paren})
|
|
4356
|
83 |
0 |
119 |
$tok eq 'qw' && $rOpts_trim_qw
|
|
4370
|
848 |
2 |
108 |
$statement_type eq "use" and $last_nonblank_token eq "use"
|
|
4387
|
0 |
0 |
0 |
$rsaw_use_module->{$current_package}{'RPerl'} and $tok =~ /^sse_(mul|div|add|sub)$/
|
|
4434
|
276 |
0 |
0 |
$tok eq "x" and $last_nonblank_type eq "w"
|
|
4446
|
929 |
4 |
0 |
$tok eq "_" and $last_nonblank_type eq "F"
|
|
4452
|
933 |
0 |
0 |
$tok eq "case" and $rbrace_type->[$brace_depth] eq "switch"
|
|
|
933 |
0 |
0 |
$tok eq "when" and $rbrace_type->[$brace_depth] eq "given"
|
|
4468
|
241 |
0 |
0 |
$tok eq "x" and $last_nonblank_type eq "w"
|
|
4494
|
32 |
0 |
3 |
$is_sub{$tok_kw} and $expecting != 1
|
|
|
32 |
0 |
3 |
$is_sub{$tok_kw} and $expecting != 1 and $next_nonblank_token eq ":"
|
|
4504
|
1 |
0 |
2 |
$nn_nonblank_token =~ /^\w/ && !($nn_nonblank_token =~ /^\d/) && !$is_keyword{$nn_nonblank_token}
|
|
4524
|
5539 |
33 |
266 |
$$rtokens[$i + 1] eq ":" and $$rtokens[$i + 2] eq ":"
|
|
4555
|
4332 |
10 |
787 |
$next_nonblank_token eq "=" and $$rtokens[$i_next + 1] eq ">"
|
|
|
786 |
0 |
1 |
defined $is_END_DATA{$tok_kw} && $input_line =~ /^\s*__(?:END|DATA)__\s*$/
|
|
|
4342 |
1 |
786 |
$next_nonblank_token eq "=" and $$rtokens[$i_next + 1] eq ">" and not defined $is_END_DATA{$tok_kw} && $input_line =~ /^\s*__(?:END|DATA)__\s*$/
|
|
|
4218 |
125 |
0 |
$next_nonblank_token eq "}" and $last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L'
|
|
|
3948 |
278 |
17 |
$expecting == 1 and substr($tok, 0, 1) eq "x"
|
|
|
4226 |
17 |
0 |
$expecting == 1 and substr($tok, 0, 1) eq "x" and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/
|
|
|
4207 |
2 |
14 |
$tok eq "strict" and $last_nonblank_token eq "use"
|
|
|
4200 |
2 |
7 |
$tok eq "warnings" and $last_nonblank_token eq "use"
|
|
|
4202 |
0 |
0 |
$tok eq "AutoLoader" and $self->[26]
|
|
|
0 |
0 |
0 |
$tok eq "AutoLoader" and $self->[26] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+AutoLoader\b/ || $input_line =~ /\bISA\s*=.*\bAutoLoader\b/
|
|
|
4202 |
0 |
0 |
$tok eq "SelfLoader" and $self->[27]
|
|
|
0 |
0 |
0 |
$tok eq "SelfLoader" and $self->[27] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+SelfLoader\b/ || $input_line =~ /\bISA\s*=.*\bSelfLoader\b/
|
|
|
4186 |
0 |
16 |
$tok eq "constant" and $last_nonblank_token eq "use"
|
|
|
3679 |
267 |
38 |
$next_nonblank_token eq ":" and $$rtokens[$i_next + 1] ne ":"
|
|
|
3946 |
3 |
35 |
$next_nonblank_token eq ":" and $$rtokens[$i_next + 1] ne ":" and $i_next <= $max_token_index
|
|
|
270 |
2 |
33 |
$next_nonblank_token eq ":" and $$rtokens[$i_next + 1] ne ":" and $i_next <= $max_token_index and not $self->sub_attribute_ok_here($tok_kw, $next_nonblank_token, $i_next)
|
|
|
5 |
0 |
33 |
$next_nonblank_token eq ":" and $$rtokens[$i_next + 1] ne ":" and $i_next <= $max_token_index and not $self->sub_attribute_ok_here($tok_kw, $next_nonblank_token, $i_next) and new_statement_ok()
|
|
|
3617 |
0 |
1 |
$tok_kw eq "format" and new_statement_ok()
|
|
|
736 |
230 |
0 |
$last_nonblank_type eq "k" and $is_redo_last_next_goto{$last_nonblank_token}
|
|
4694
|
291 |
2 |
10 |
$tok_kw eq "method" and $guess_if_method
|
|
4851
|
29 |
1 |
0 |
$saw_modifier_e and $i_tok >= 0
|
|
5103
|
7504 |
0 |
14 |
substr($untrimmed_input_line, 0, 1) eq "=" and $untrimmed_input_line =~ /^=[A-Za-z_]/
|
|
5110
|
0 |
0 |
14 |
not $in_quote and $self->operator_expected("=", "b", $blank_after_Z) == -1
|
|
5126
|
7320 |
137 |
47 |
$in_quote and $quote_type eq "Q"
|
|
5149
|
3334 |
0 |
213 |
ord substr($untrimmed_input_line, 0, 1) == 9 and $untrimmed_input_line =~ /^(\t+)/
|
|
5187
|
786 |
0 |
2 |
substr($input_line, 0, 4) eq '#<<V' || $rOpts_code_skipping_begin and $rOpts_code_skipping
|
|
|
786 |
0 |
2 |
substr($input_line, 0, 4) eq '#<<V' || $rOpts_code_skipping_begin and $rOpts_code_skipping and $input_line =~ /$code_skipping_pattern_begin/
|
|
5292
|
15220 |
3 |
35304 |
$type ne "b" and $type ne "CORE::"
|
|
5295
|
33318 |
394 |
1592 |
$type eq "n" and $tok ne 0
|
|
5321
|
29176 |
355 |
1 |
$type eq "R" and $last_nonblank_type eq "Z"
|
|
5440
|
29141 |
130 |
5553 |
$can_start_digraph{$tok} and $i < $max_token_index
|
|
|
29271 |
2992 |
2561 |
$can_start_digraph{$tok} and $i < $max_token_index and $is_digraph{$tok . $$rtokens[$i + 1]}
|
|
5460
|
2545 |
0 |
16 |
$test_tok eq "//" and $last_nonblank_type ne "Z"
|
|
5478
|
41 |
0 |
2520 |
$combine_ok and $test_tok ne "/="
|
|
|
41 |
0 |
2520 |
$combine_ok and $test_tok ne "/=" and $test_tok ne "x="
|
|
|
0 |
0 |
2520 |
$combine_ok and $test_tok ne "/=" and $test_tok ne "x=" and $test_tok ne "*="
|
|
5527
|
8357 |
27 |
13 |
$last_nonblank_type eq 'Z' && ($i == 0 || $$rtoken_type[$i - 1] eq 'b')
|
|
5589
|
145 |
328 |
5437 |
$type ne "b" and $type ne "#"
|
|
5756
|
307 |
179 |
8 |
$type_i eq ":" and $routput_indent_flag->[$i] < 0
|
|
6025
|
2527 |
11 |
3 |
$tok eq "/" and $next_type eq "/"
|
|
|
2538 |
2 |
1 |
$tok eq "/" and $next_type eq "/" and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}
|
|
|
2539 |
1 |
0 |
$tok eq "?" and $last_nonblank_token eq "split"
|
|
6101
|
1368 |
0 |
0 |
$tok eq "/" and $next_type eq "/"
|
|
|
1368 |
0 |
0 |
$tok eq "/" and $next_type eq "/" and $last_nonblank_token eq "]"
|
|
6162
|
38 |
0 |
0 |
$tok eq "x" and $next_type =~ /^[\(\$\@\%]$/
|
|
|
26 |
8 |
0 |
$blank_after_Z and $next_type ne "b"
|
|
6250
|
278 |
0 |
99 |
$last_nonblank_token eq "}" and $last_nonblank_type eq $last_nonblank_token
|
|
6298
|
1213 |
0 |
90 |
$last_nonblank_token eq "{" and $last_nonblank_type eq $last_nonblank_token
|
|
|
1156 |
0 |
9 |
$last_nonblank_token eq "}" and $last_nonblank_type eq $last_nonblank_token
|
|
|
346 |
0 |
152 |
$last_nonblank_type eq "t" and substr($last_nonblank_token, 0, 3) eq "sub"
|
|
6368
|
244 |
237 |
0 |
$last_nonblank_type eq "k" and $last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless'
|
|
6421
|
0 |
80 |
1 |
$paren_type and $is_sort_map_grep{$paren_type}
|
|
6503
|
8 |
0 |
155 |
defined $rpre_types and @{$rpre_types;}
|
|
6521
|
83 |
0 |
0 |
$pre_types[$j] eq "-" and $pre_types[++$j] eq "w"
|
|
6550
|
80 |
0 |
0 |
$pre_types[$j] eq "," and not $is_q_qq_qx_qr_s_y_tr_m{$pre_tokens[$jbeg]}
|
|
|
62 |
0 |
18 |
$pre_types[$j] eq "=" and $pre_types[++$j] eq ">"
|
|
6598
|
0 |
0 |
0 |
$i_tok > 0 and $last_nonblank_i >= 0
|
|
6818
|
2908 |
1669 |
1 |
$aa == 0 and $saved_type eq "Z"
|
|
|
4577 |
0 |
1 |
$aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w"
|
|
|
1669 |
0 |
1 |
$aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w" and $rbrace_structural_type->[$brace_depth] eq "L"
|
|
6836
|
0 |
0 |
0 |
$saw_brace_error <= 6 and $diff > 0 || $saw_brace_error <= 0
|
|
7127
|
0 |
0 |
0 |
$i > 1 && !($next_token =~ /^\s/) && $$rtokens[$i - 2] =~ /^\s/
|
|
7345
|
269 |
5 |
0 |
not $sub_name and substr($package, -1, 1) eq "'"
|
|
7357
|
1362 |
38 |
0 |
$is_keyword{$tok} and $last_nonblank_type ne "->"
|
|
7363
|
0 |
670 |
1004 |
$type eq "w" and $last_nonblank_type ne "->"
|
|
7367
|
989 |
0 |
1 |
$last_nonblank_token eq "sort" and $last_nonblank_type eq "k"
|
|
|
280 |
703 |
0 |
not $input_line =~ /\G\(/cg and $is_indirect_object_taker{$last_nonblank_token} || $last_nonblank_token eq '(' && $is_indirect_object_taker{$rparen_type->[$paren_depth]}
|
|
7610
|
0 |
0 |
10 |
defined $type && $type
|
|
|
322 |
10 |
0 |
$id_scan_state and not defined $type && $type
|
|
7700
|
0 |
0 |
26 |
defined $1 && $1
|
|
7828
|
269 |
204 |
13 |
$container_type && $container_type =~ /^sub\b/
|
|
7848
|
188 |
26 |
0 |
$tok =~ /^[\@\%\&\*]$/ and $identifier =~ /\-\>$/
|
|
|
214 |
0 |
0 |
$tok eq "'" and $allow_tick
|
|
7892
|
4 |
0 |
95 |
not $last_tok_is_blank || $in_prototype_or_signature and $identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/
|
|
|
0 |
0 |
95 |
not $last_tok_is_blank || $in_prototype_or_signature and $identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/ and not $is_punct_var
|
|
7931
|
6 |
0 |
32 |
$identifier eq '$' || $identifier eq '@' || $identifier eq '$#' and $i + 2 <= $max_token_index
|
|
|
6 |
22 |
10 |
$identifier eq '$' || $identifier eq '@' || $identifier eq '$#' and $i + 2 <= $max_token_index and $$rtokens[$i + 2] eq "}"
|
|
|
22 |
9 |
1 |
$identifier eq '$' || $identifier eq '@' || $identifier eq '$#' and $i + 2 <= $max_token_index and $$rtokens[$i + 2] eq "}" and not $$rtokens[$i + 1] =~ /[\s\w]/
|
|
8056
|
43 |
0 |
3 |
$in_prototype_or_signature and $tok =~ /^[\),=#]/
|
|
|
2 |
0 |
6 |
$tok eq "*" and $identifier =~ /\-\>([\@\%\$\*\&]|\$\#)$/
|
|
8077
|
0 |
2 |
0 |
$id_scan_state eq $scan_state_SIGIL and $tok eq "#"
|
|
8148
|
13 |
0 |
0 |
$tok eq "'" and $allow_tick
|
|
|
7 |
6 |
0 |
$tok_is_blank and $identifier =~ /^sub /
|
|
|
13 |
0 |
0 |
$tok eq "(" and $identifier =~ /^sub /
|
|
8181
|
305 |
0 |
12 |
$tok eq "'" and $allow_tick
|
|
|
184 |
121 |
0 |
$tok_is_blank and $identifier =~ /^sub /
|
|
|
276 |
29 |
0 |
$tok eq "(" and $identifier =~ /^sub /
|
|
8264
|
17 |
0 |
0 |
$tok eq "'" and $allow_tick
|
|
8278
|
0 |
0 |
2 |
length $identifier == 1 and $i == $max_token_index
|
|
8343
|
0 |
0 |
0 |
$identifier eq "&" and $expecting
|
|
|
0 |
0 |
0 |
$identifier eq "&" and $expecting and $tok ne "#"
|
|
8479
|
17 |
77 |
1169 |
$i < $max_token_index and $id_scan_state
|
|
8513
|
1049 |
4 |
113 |
$tok eq ":" and $$rtokens[$i + 1] eq ":"
|
|
8560
|
53 |
0 |
0 |
$identifier =~ /\$$/ && $tok eq '{'
|
|
|
51 |
0 |
53 |
length $identifier > 1 and not $identifier =~ /\$$/ && $tok eq '{'
|
|
|
51 |
0 |
53 |
length $identifier > 1 and not $identifier =~ /\$$/ && $tok eq '{' and $identifier ne "sub "
|
|
|
0 |
0 |
53 |
length $identifier > 1 and not $identifier =~ /\$$/ && $tok eq '{' and $identifier ne "sub " and $identifier ne "package "
|
|
8565
|
348 |
0 |
0 |
$identifier =~ /^->/ and $last_nonblank_type eq "w"
|
|
|
348 |
0 |
0 |
$identifier =~ /^->/ and $last_nonblank_type eq "w" and substr($identifier, 2, 1) =~ /^\w/
|
|
8601
|
0 |
0 |
5 |
$id_scan_state_begin and $identifier =~ /^([\$\%\@\*\&]|->)/
|
|
8741
|
7 |
172 |
123 |
$call_type == 1 and $input_line =~ /\G\s*
|
|
8752
|
123 |
0 |
0 |
$last_nonblank_type eq 'k' && $last_nonblank_token eq 'my'
|
|
8754
|
123 |
0 |
0 |
$is_lexical_sub and $1
|
|
8778
|
0 |
117 |
6 |
defined $1 && $1
|
|
8812
|
0 |
290 |
12 |
$input_line =~ /\G(\s*\([^\)\(\}\{\,#A-Za-z]*\))? # PROTO
|
|
8825
|
11 |
10 |
24 |
$proto and $match || $call_type == 3
|
|
8844
|
34 |
9 |
2 |
$tok eq "sub" and not $proto
|
|
8859
|
135 |
2 |
1 |
$pos == $pos_beg and $tok eq ":"
|
|
8880
|
135 |
0 |
2 |
$type eq "k" and $attrs
|
|
|
135 |
0 |
2 |
$type eq "k" and $attrs and $i > $i_entry
|
|
|
0 |
0 |
2 |
$type eq "k" and $attrs and $i > $i_entry and substr($rtokens->[$i], 0, 1) =~ /\s/
|
|
8898
|
0 |
0 |
7 |
defined $rpre_tokens and @{$rpre_tokens;}
|
|
8913
|
96 |
0 |
0 |
$rsaw_function_definition->{$subname}{$package} and not $subname =~ /^[A-Z]+$/
|
|
8973
|
0 |
0 |
0 |
$rinput_hash->{'tok'} eq "method" and $call_type == 1
|
|
9023
|
5598 |
559 |
9 |
$i == $max_token_index - 1 and $rtokens->[$max_token_index] =~ /^\s+$/
|
|
9037
|
0 |
0 |
6166 |
defined $next_nonblank_token and length $next_nonblank_token
|
|
9043
|
3813 |
0 |
2353 |
$ord >= 33 and $ord <= 126
|
|
9086
|
0 |
0 |
98 |
$next_nonblank_token and $next_nonblank_token ne " "
|
|
|
0 |
0 |
98 |
$next_nonblank_token and $next_nonblank_token ne " " and defined $$rtokens[$i_next + 1]
|
|
9335
|
7 |
0 |
0 |
$i_beg == 0 && $self->[19] == 1
|
|
9339
|
7 |
0 |
0 |
$str =~ /^<\?xml\s.*\?>$/i and $is_first_string
|
|
9543
|
504 |
16 |
37 |
substr($input_line, $pos - 1, 1) eq "." and substr($input_line, $pos, 1) eq "."
|
|
9556
|
310 |
16 |
0 |
$number =~ /^(.*)[eE]/ and not $1 =~ /\d/
|
|
9632
|
3 |
0 |
0 |
$next_token =~ /^\s*$/ and $expecting == -1
|
|
9665
|
6 |
0 |
0 |
$tokj eq "\\" and $j < $i - 1
|
|
|
6 |
0 |
0 |
$tokj eq "\\" and $j < $i - 1 and $$rtokens[$j + 1] eq $here_quote_character
|
|
9708
|
0 |
9 |
0 |
$found_target and $backslash
|
|
9839
|
2629 |
2 |
0 |
$tok eq "#" and $allow_quote_comments
|
|
9951
|
7 |
1 |
368 |
$tok ne $end_tok and $tok ne $beginning_tok
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
789
|
0 |
0 |
562 |
$self->[7] || $self->[8]
|
|
792
|
0 |
0 |
562 |
$severe_error ||= $self->[10] && $self->[9]
|
|
854
|
0 |
0 |
0 |
$self->[32] or $self->[31]
|
|
1363
|
0 |
0 |
0 |
$self->[32] or $self->[31]
|
|
1447
|
6607 |
20 |
868 |
$self->[34] or $input_line =~ /^\s*$/
|
|
|
20 |
310 |
558 |
$self->[34] or $input_line =~ /^\s*$/ or $input_line =~ /^\s*#/
|
|
2333
|
0 |
0 |
0 |
$rtokens->[$i_plus_1] eq '{' || $rtokens->[$i_plus_1] eq '['
|
|
2347
|
18 |
12 |
32 |
$tok_begin eq '@' || $tok_begin eq '%'
|
|
2490
|
1 |
0 |
5 |
not $next_char or $next_char eq "#"
|
|
2566
|
1 |
0 |
5 |
not $next_char or $next_char eq "#"
|
|
2638
|
13 |
330 |
0 |
$typ_d eq '+' || $typ_d eq '-'
|
|
2649
|
27 |
1904 |
45 |
$i_d == $max_token_index || $i_d < $max_token_index && $$rtoken_type[$i_d + 1] ne '.' && $$rtoken_type[$i_d + 1] ne 'w'
|
|
2663
|
333 |
1325 |
57 |
$tok_d eq 0 or substr($tok_d, 0, 1) ne 0
|
|
2793
|
36 |
17 |
3985 |
$is_indirect_object_taker{$last_nonblank_token} and $last_nonblank_type eq "k" or $last_nonblank_token eq "(" and $is_indirect_object_taker{$rparen_type->[$paren_depth]}
|
|
|
45 |
0 |
3940 |
$last_nonblank_type eq "w" or $last_nonblank_type eq "U"
|
|
|
17 |
0 |
3985 |
$is_indirect_object_taker{$last_nonblank_token} and $last_nonblank_type eq "k" or $last_nonblank_token eq "(" and $is_indirect_object_taker{$rparen_type->[$paren_depth]} or ($last_nonblank_type eq "w" or $last_nonblank_type eq "U")
|
|
3166
|
33 |
5 |
1594 |
$statement_type eq 'case' || $statement_type eq 'when'
|
|
3263
|
0 |
0 |
0 |
$i_tok == 0 || $$rtoken_type[$i_tok - 1] eq 'b'
|
|
3295
|
33 |
5 |
1265 |
$statement_type eq "case" or $statement_type eq "when"
|
|
3298
|
4 |
0 |
34 |
not $block_type or $block_type eq "}"
|
|
3368
|
104 |
0 |
3 |
$expecting == -1 or $next_type ne "b"
|
|
4144
|
0 |
3 |
0 |
length $tok == 1 || substr($tok, 1, 1) =~ /^\d/
|
|
4248
|
4 |
52 |
1711 |
$tok eq "when" or $tok eq "case"
|
|
|
56 |
0 |
1711 |
$tok eq "when" or $tok eq "case" or $tok eq "default"
|
|
4452
|
0 |
0 |
933 |
$tok eq "case" and $rbrace_type->[$brace_depth] eq "switch" or $tok eq "when" and $rbrace_type->[$brace_depth] eq "given"
|
|
4468
|
0 |
0 |
241 |
$tok eq "switch" or $tok eq "given"
|
|
4555
|
98 |
0 |
27 |
$last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L'
|
|
|
15 |
2 |
0 |
length $tok == 1 || substr($tok, 1, 1) =~ /^\d/
|
|
|
0 |
0 |
0 |
$last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+AutoLoader\b/ || $input_line =~ /\bISA\s*=.*\bAutoLoader\b/
|
|
|
0 |
0 |
0 |
$last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+SelfLoader\b/ || $input_line =~ /\bISA\s*=.*\bSelfLoader\b/
|
|
4695
|
0 |
4 |
6 |
$expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/
|
|
|
4 |
3 |
3 |
$expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->method_ok_here
|
|
4723
|
0 |
2 |
6 |
$expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/
|
|
|
2 |
2 |
4 |
$expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->class_ok_here
|
|
4841
|
0 |
1 |
46 |
$saw_modifier_e ||= $char eq "e"
|
|
5187
|
2 |
0 |
786 |
substr($input_line, 0, 4) eq '#<<V' || $rOpts_code_skipping_begin
|
|
5289
|
183 |
116 |
2469 |
$in_quote or $i > $max_token_index
|
|
5333
|
0 |
675 |
211 |
$last_nonblank_type eq "w" or $last_nonblank_type eq "i"
|
|
5395
|
10 |
0 |
7 |
$is_sub{$id_scan_state} or $is_package{$id_scan_state}
|
|
5421
|
3 |
6 |
7 |
$i > 0 or $type
|
|
5728
|
3717 |
367 |
307 |
$type_i eq "{" or $type_i eq "L"
|
|
5756
|
3717 |
367 |
494 |
$type_i eq "}" or $type_i eq "R"
|
|
|
4084 |
8 |
486 |
$type_i eq "}" or $type_i eq "R" or $type_i eq ":" and $routput_indent_flag->[$i] < 0
|
|
6069
|
2123 |
0 |
1388 |
$is_paren_dollar{substr $last_nonblank_token, 0, 1} or substr($last_nonblank_token, 0, 2) eq "->"
|
|
6277
|
149 |
42 |
87 |
$last_nonblank_type eq ';' || $last_nonblank_type eq 'J'
|
|
6298
|
476 |
0 |
646 |
$is_code_block_token{$last_nonblank_token} or $is_grep_alias{$last_nonblank_token}
|
|
|
4 |
139 |
498 |
$last_nonblank_type eq "P" or $last_nonblank_type eq "S"
|
|
|
143 |
0 |
498 |
$last_nonblank_type eq "P" or $last_nonblank_type eq "S" or $last_nonblank_type eq "t" and substr($last_nonblank_token, 0, 3) eq "sub"
|
|
6368
|
0 |
0 |
237 |
$last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless'
|
|
6550
|
0 |
23 |
57 |
$pre_types[$j] eq "," and not $is_q_qq_qx_qr_s_y_tr_m{$pre_tokens[$jbeg]} or $pre_types[$j] eq "=" and $pre_types[++$j] eq ">"
|
|
6671
|
643 |
0 |
1622 |
$is_sigil_or_paren{substr $last_nonblank_token, 0, 1} || substr($last_nonblank_token, 0, 2) eq '->' || $is_R_closing_sb{$last_nonblank_type}
|
|
6836
|
0 |
0 |
0 |
$diff > 0 || $saw_brace_error <= 0
|
|
6851
|
0 |
0 |
0 |
$diff == 1 or $diff == -1
|
|
7052
|
0 |
0 |
0 |
$s_quote % 2 or $d_quote % 2
|
|
|
0 |
0 |
0 |
$s_quote % 2 or $d_quote % 2 or $colons
|
|
7367
|
4 |
0 |
699 |
$is_indirect_object_taker{$last_nonblank_token} || $last_nonblank_token eq '(' && $is_indirect_object_taker{$rparen_type->[$paren_depth]}
|
|
7448
|
0 |
4 |
0 |
pos $input_line == length $input_line or $input_line =~ /\G[;\s]/cg
|
|
7892
|
4 |
0 |
95 |
$last_tok_is_blank || $in_prototype_or_signature
|
|
|
94 |
1 |
0 |
$identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/
|
|
7931
|
26 |
6 |
6 |
$identifier eq '$' || $identifier eq '@' || $identifier eq '$#'
|
|
7955
|
26 |
0 |
11 |
$identifier eq "\$" or $i == 0
|
|
8288
|
15 |
0 |
0 |
$identifier eq "&" or $i == 0
|
|
8412
|
287 |
6 |
180 |
$tok eq "\$" or $tok eq "*"
|
|
|
25 |
52 |
103 |
$tok eq "%" or $tok eq "\@"
|
|
|
0 |
0 |
0 |
$tok eq "sub" or $tok eq "package"
|
|
8812
|
34 |
11 |
257 |
$1 || $2
|
|
8825
|
22 |
2 |
10 |
$match || $call_type == 3
|
|
9043
|
3813 |
0 |
0 |
$ord == 32 or $ord == 9
|
|
9184
|
0 |
0 |
0 |
$next_nonblank_token =~ /^\s*$/ or $next_nonblank_token eq "#"
|
|
9294
|
1 |
0 |
0 |
substr($last_nonblank_token, 0, 1) =~ /[A-Za-z_]/ or substr($str, 1, 1) =~ /[A-Za-z_]/
|
|
9410
|
0 |
0 |
0 |
$br or $sb
|
|
|
0 |
0 |
0 |
$br or $sb or $pr
|
|
9556
|
303 |
0 |
326 |
not $number =~ /\d/ or $number =~ /^(.*)[eE]/ and not $1 =~ /\d/
|
|
9886
|
3 |
0 |
1 |
$quote_pos == 0 or $i < 0
|
|
10076
|
0 |
0 |
0 |
$pos < 0 or $pos > length $underline
|