| line |
!l |
l&&!r |
l&&r |
condition |
|
270
|
0 |
0 |
0 |
$self and length $self < 200
|
|
525
|
556 |
0 |
0 |
$rOpts->{'experimental'} and $rOpts->{'experimental'} =~ /\bci(\d+)\b/
|
|
709
|
556 |
0 |
0 |
$self->[10] && $self->[9]
|
|
732
|
0 |
0 |
0 |
$maxle >= 0 and $level_diff > $maxle
|
|
750
|
555 |
1 |
0 |
$self->[21] and not $self->[36]
|
|
835
|
556 |
0 |
0 |
$maxue > 0 and $ue_count > $maxue
|
|
1076
|
44 |
0 |
0 |
$input_line =~ /^\#\!.*perl\b/ and not $self->[5]
|
|
1121
|
1 |
0 |
0 |
$input_line =~ /^=(\w+)\b/ and $1 ne "cut"
|
|
1140
|
42 |
0 |
6 |
$input_line =~ /^=(\w+)\b/ and $1 ne "cut"
|
|
1166
|
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 $self->[21]
|
|
|
1 |
0 |
1 |
$input_line_number > 1 and not $last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN' and not $self->[21] and $input_line =~ /^\#\!(\s+)?(\S+)?perl/
|
|
1216
|
7501 |
1 |
5 |
$self->[21] and not $self->[36]
|
|
1225
|
6962 |
540 |
0 |
$input_line_number == 1 and $input_line =~ /^\s*\:\s*\#/
|
|
1358
|
7296 |
135 |
49 |
$self->[14] and $self->[16] < 0
|
|
|
7248 |
135 |
48 |
$self->[16] >= 0 and not $self->[14]
|
|
1411
|
314 |
539 |
13 |
$i == 1 and $line =~ /^\#\!/
|
|
1459
|
538 |
0 |
1 |
$3 and $self->[24]
|
|
1881
|
0 |
0 |
8 |
$pretoken and length $pretoken > $numc
|
|
|
0 |
0 |
8 |
$pretoken and length $pretoken > $numc and substr($pretoken, $numc) =~ /^(\d*)(.*)$/
|
|
2178
|
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)
|
|
2244
|
0 |
4 |
4769 |
not $id_scan_state and $i_plus_1 <= $max_token_index
|
|
|
4 |
4769 |
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 '['
|
|
2258
|
226 |
62 |
0 |
$rtoken_type->[$i_plus_1] eq "{" and $tok_begin eq '@' || $tok_begin eq '%'
|
|
2262
|
2561 |
2 |
1699 |
$rtoken_type->[$i_next] eq "b" and $i_next < $max_token_index
|
|
2269
|
100 |
8 |
4270 |
$pretype_next ne ":" and $pretype_next ne "'"
|
|
2543
|
1929 |
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
|
|
2554
|
301 |
47 |
1924 |
$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'
|
|
2684
|
3988 |
0 |
36 |
$is_indirect_object_taker{$last_nonblank_token} and $last_nonblank_type eq "k"
|
|
|
3204 |
767 |
17 |
$last_nonblank_token eq "(" and $is_indirect_object_taker{$rparen_type->[$paren_depth]}
|
|
2723
|
1489 |
547 |
3 |
$expecting == 1 and not $last_nonblank_token =~ /^([\]\}\)\&]|\-\>)/
|
|
2753
|
3 |
0 |
0 |
$next_nonblank_token ne ")" and $next_nonblank_token ne "#"
|
|
2765
|
0 |
0 |
0 |
$i_tok > 0 and $last_nonblank_token =~ /^\$/
|
|
2862
|
52 |
17 |
0 |
$num_sc > 0 and $num_sc != 2
|
|
2876
|
3065 |
0 |
0 |
$last_nonblank_token eq "(" and $last_nonblank_type eq "{"
|
|
2910
|
1 |
0 |
34 |
$brace_depth == $rdepth_array->[2][0][$paren_depth] and $square_bracket_depth == $rdepth_array->[2][1][$paren_depth]
|
|
2970
|
195 |
12 |
0 |
$last_nonblank_type eq "k" and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}
|
|
3033
|
1583 |
38 |
0 |
$statement_type eq 'case' || $statement_type eq 'when' and $statement_type eq $last_nonblank_token
|
|
|
1384 |
0 |
0 |
$last_nonblank_token eq "qw" and $is_for_foreach{$want_paren}
|
|
3104
|
363 |
0 |
0 |
$statement_type eq "when" and $last_nonblank_type eq "i"
|
|
|
363 |
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'
|
|
3124
|
333 |
929 |
34 |
$block_type and $last_nonblank_type eq "w"
|
|
|
1262 |
0 |
34 |
$block_type and $last_nonblank_type eq "w" and $last_nonblank_i >= 0
|
|
3253
|
186 |
0 |
1 |
$last_nonblank_type eq "k" and $is_keyword_rejecting_question_as_pattern_delimiter{$last_nonblank_token}
|
|
3306
|
226 |
12 |
0 |
$expecting == 0 and $last_nonblank_type eq "Z"
|
|
3307
|
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 "#"
|
|
3363
|
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)
|
|
3459
|
0 |
0 |
0 |
$next_type ne "b" and $next_type ne "("
|
|
3519
|
97 |
334 |
10 |
$expecting != 1 and $is_file_test_operator{$next_tok}
|
|
3563
|
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/
|
|
3586
|
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 "\$#"
|
|
3811
|
58 |
0 |
0 |
$expecting == -1 and $last_nonblank_token ne ","
|
|
3821
|
66 |
0 |
8 |
$expecting == -1 and $last_nonblank_token ne ","
|
|
3962
|
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/
|
|
4079
|
2 |
25 |
0 |
$last_nonblank_token ne ";" and not $is_if_elsif_unless{$last_nonblank_block_type}
|
|
4093
|
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}
|
|
4154
|
0 |
0 |
0 |
$tok eq "qw" and $last_nonblank_token =~ /^([\]\}\&]|\-\>)/ || $is_for_foreach{$want_paren}
|
|
4170
|
83 |
0 |
119 |
$tok eq 'qw' && $self->[22]
|
|
4184
|
847 |
2 |
108 |
$statement_type eq "use" and $last_nonblank_token eq "use"
|
|
4201
|
0 |
0 |
0 |
$rsaw_use_module->{$current_package}{'RPerl'} and $tok =~ /^sse_(mul|div|add|sub)$/
|
|
4248
|
276 |
0 |
0 |
$tok eq "x" and $last_nonblank_type eq "w"
|
|
4257
|
928 |
4 |
0 |
$tok eq "_" and $last_nonblank_type eq "F"
|
|
4263
|
932 |
0 |
0 |
$tok eq "case" and $rbrace_type->[$brace_depth] eq "switch"
|
|
|
932 |
0 |
0 |
$tok eq "when" and $rbrace_type->[$brace_depth] eq "given"
|
|
4279
|
241 |
0 |
0 |
$tok eq "x" and $last_nonblank_type eq "w"
|
|
4302
|
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 ":"
|
|
4312
|
1 |
0 |
2 |
$nn_nonblank_token =~ /^\w/ && !($nn_nonblank_token =~ /^\d/) && !$is_keyword{$nn_nonblank_token}
|
|
4332
|
5527 |
33 |
266 |
$$rtokens[$i + 1] eq ":" and $$rtokens[$i + 2] eq ":"
|
|
4363
|
7 |
4321 |
790 |
not $is_END_or_DATA and $next_nonblank_token eq "="
|
|
|
4328 |
4 |
786 |
not $is_END_or_DATA and $next_nonblank_token eq "=" and $$rtokens[$i_next + 1] eq ">"
|
|
|
4207 |
125 |
0 |
$next_nonblank_token eq "}" and $last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L'
|
|
|
3939 |
276 |
17 |
$expecting == 1 and substr($tok, 0, 1) eq "x"
|
|
|
4215 |
17 |
0 |
$expecting == 1 and substr($tok, 0, 1) eq "x" and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/
|
|
|
4196 |
2 |
14 |
$tok eq "strict" and $last_nonblank_token eq "use"
|
|
|
4189 |
2 |
7 |
$tok eq "warnings" and $last_nonblank_token eq "use"
|
|
|
4191 |
0 |
0 |
$tok eq "AutoLoader" and $self->[32]
|
|
|
0 |
0 |
0 |
$tok eq "AutoLoader" and $self->[32] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+AutoLoader\b/ || $input_line =~ /\bISA\s*=.*\bAutoLoader\b/
|
|
|
4191 |
0 |
0 |
$tok eq "SelfLoader" and $self->[33]
|
|
|
0 |
0 |
0 |
$tok eq "SelfLoader" and $self->[33] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+SelfLoader\b/ || $input_line =~ /\bISA\s*=.*\bSelfLoader\b/
|
|
|
4175 |
0 |
16 |
$tok eq "constant" and $last_nonblank_token eq "use"
|
|
|
3669 |
267 |
37 |
$next_nonblank_token eq ":" and $$rtokens[$i_next + 1] ne ":"
|
|
|
3936 |
2 |
35 |
$next_nonblank_token eq ":" and $$rtokens[$i_next + 1] ne ":" and $i_next <= $max_token_index
|
|
|
269 |
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)
|
|
|
4 |
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 label_ok()
|
|
|
3608 |
0 |
1 |
$tok_kw eq "format" and new_statement_ok()
|
|
|
735 |
230 |
0 |
$last_nonblank_type eq "k" and $is_redo_last_next_goto{$last_nonblank_token}
|
|
4656
|
29 |
1 |
0 |
$saw_modifier_e and $i_tok >= 0
|
|
4908
|
7489 |
0 |
13 |
substr($untrimmed_input_line, 0, 1) eq "=" and $untrimmed_input_line =~ /^=[A-Za-z_]/
|
|
4914
|
0 |
0 |
13 |
not $in_quote and $self->operator_expected(["b", "=", "b"]) == -1
|
|
4932
|
7305 |
137 |
47 |
$in_quote and $quote_type eq "Q"
|
|
4955
|
3324 |
0 |
213 |
ord substr($untrimmed_input_line, 0, 1) == 9 and $untrimmed_input_line =~ /^(\t+)/
|
|
4976
|
7420 |
15 |
7 |
substr($input_line, 0, 1) eq '_' && $input_line =~ /^__(END|DATA)__\s*$/
|
|
4985
|
0 |
786 |
2 |
$rOpts_code_skipping and $input_line =~ /$code_skipping_pattern_begin/
|
|
5110
|
15170 |
3 |
35221 |
$type ne "b" and $tok ne "CORE::"
|
|
5113
|
33239 |
394 |
1588 |
$type eq "n" and $tok ne 0
|
|
5134
|
29112 |
349 |
3 |
$type eq "R" and $last_nonblank_type eq "Z"
|
|
5248
|
29069 |
130 |
5542 |
$can_start_digraph{$tok} and $i < $max_token_index
|
|
|
29199 |
2987 |
2555 |
$can_start_digraph{$tok} and $i < $max_token_index and $is_digraph{$tok . $$rtokens[$i + 1]}
|
|
5268
|
2539 |
0 |
16 |
$test_tok eq "//" and $last_nonblank_type ne "Z"
|
|
5285
|
41 |
0 |
2514 |
$combine_ok and $test_tok ne "/="
|
|
|
41 |
0 |
2514 |
$combine_ok and $test_tok ne "/=" and $test_tok ne "x="
|
|
|
0 |
0 |
2514 |
$combine_ok and $test_tok ne "/=" and $test_tok ne "x=" and $test_tok ne "*="
|
|
5342
|
5826 |
28876 |
39 |
$pre_type ne "w" and $self->[13]
|
|
5399
|
145 |
328 |
5422 |
$type ne "b" and $type ne "#"
|
|
5709
|
0 |
0 |
0 |
not $routput_block_type->[$i] and $in_statement_continuation
|
|
|
0 |
0 |
0 |
$ternary_indentation_flag && $type_i eq ':'
|
|
|
0 |
0 |
0 |
not $routput_block_type->[$i] and $in_statement_continuation and not $ternary_indentation_flag && $type_i eq ':'
|
|
5769
|
0 |
0 |
0 |
substr($block_type_i, 0, 3) eq "sub" and $block_type_i =~ /^sub\s*/cg
|
|
5841
|
0 |
0 |
0 |
$nesting_list_flag and $is_comma_question_colon{$type_i}
|
|
5854
|
0 |
0 |
0 |
not $in_statement_continuation and $nesting_block_flag || $nesting_list_flag
|
|
|
0 |
0 |
0 |
not $in_statement_continuation and $nesting_block_flag || $nesting_list_flag and $type_i eq 'k' && $is_binary_keyword{$tok_i} || $is_binary_type{$type_i}
|
|
5950
|
0 |
0 |
0 |
$is_END_DATA_format_sub{$tok_i} and $is_semicolon_or_t{$type_i}
|
|
6161
|
307 |
179 |
8 |
$type_i eq ":" and $routput_indent_flag->[$i] < 0
|
|
6411
|
4264 |
0 |
26 |
substr($last_nonblank_token, 0, 7) eq "package" and $statement_type =~ /^package\b/
|
|
|
4264 |
0 |
26 |
substr($last_nonblank_token, 0, 7) eq "package" and $statement_type =~ /^package\b/ and $last_nonblank_token =~ /^package\b/
|
|
6431
|
2509 |
11 |
3 |
$tok eq "/" and $next_type eq "/"
|
|
|
2520 |
2 |
1 |
$tok eq "/" and $next_type eq "/" and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}
|
|
|
2521 |
1 |
0 |
$tok eq "?" and $last_nonblank_token eq "split"
|
|
6501
|
1325 |
0 |
0 |
$tok eq "/" and $next_type eq "/"
|
|
|
1325 |
0 |
0 |
$tok eq "/" and $next_type eq "/" and $last_nonblank_token eq "]"
|
|
6560
|
88 |
0 |
0 |
$tok eq "x" and $next_type =~ /^[\(\$\@\%]$/
|
|
|
60 |
15 |
9 |
$prev_type eq "b" and $next_type ne "b"
|
|
6642
|
67 |
0 |
47 |
$last_nonblank_token eq '{' || $last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token
|
|
6674
|
1206 |
0 |
90 |
$last_nonblank_token eq "{" and $last_nonblank_type eq $last_nonblank_token
|
|
|
1149 |
0 |
9 |
$last_nonblank_token eq "}" and $last_nonblank_type eq $last_nonblank_token
|
|
|
346 |
0 |
293 |
$last_nonblank_type eq 'i' || $last_nonblank_type eq 't' and $last_nonblank_token =~ /^(sub|package)\b/
|
|
|
346 |
0 |
0 |
$last_nonblank_type eq 'i' || $last_nonblank_type eq 't' and $is_sub{$last_nonblank_token}
|
|
6744
|
239 |
237 |
0 |
$last_nonblank_type eq "k" and $last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless'
|
|
6799
|
0 |
80 |
1 |
$paren_type and $is_sort_map_grep{$paren_type}
|
|
6881
|
8 |
0 |
155 |
defined $rpre_types and @{$rpre_types;}
|
|
6899
|
83 |
0 |
0 |
$pre_types[$j] eq "-" and $pre_types[++$j] eq "w"
|
|
6925
|
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 ">"
|
|
6973
|
0 |
0 |
0 |
$i_tok > 0 and $last_nonblank_i >= 0
|
|
7194
|
2902 |
1658 |
1 |
$aa == 0 and $saved_type eq "Z"
|
|
|
4560 |
0 |
1 |
$aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w"
|
|
|
1658 |
0 |
1 |
$aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w" and $rbrace_structural_type->[$brace_depth] eq "L"
|
|
7214
|
0 |
0 |
0 |
$saw_brace_error <= 6 and $diff > 0 || $saw_brace_error <= 0
|
|
7505
|
0 |
0 |
0 |
$i > 1 && !($next_token =~ /^\s/) && $$rtokens[$i - 2] =~ /^\s/
|
|
7723
|
269 |
5 |
0 |
not $sub_name and substr($package, -1, 1) eq "'"
|
|
7735
|
1360 |
38 |
0 |
$is_keyword{$tok} and $last_nonblank_type ne "->"
|
|
7741
|
0 |
669 |
1003 |
$type eq "w" and $last_nonblank_type ne "->"
|
|
7745
|
988 |
0 |
1 |
$last_nonblank_token eq "sort" and $last_nonblank_type eq "k"
|
|
|
280 |
702 |
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]}
|
|
7984
|
0 |
0 |
10 |
defined $type && $type
|
|
|
320 |
10 |
0 |
$id_scan_state and not defined $type && $type
|
|
8007
|
0 |
0 |
136 |
defined $package and defined $subname
|
|
8073
|
0 |
0 |
26 |
defined $1 && $1
|
|
8201
|
269 |
204 |
13 |
$container_type && $container_type =~ /^sub\b/
|
|
8221
|
188 |
26 |
0 |
$tok =~ /^[\@\%\&\*]$/ and $identifier =~ /\-\>$/
|
|
|
214 |
0 |
0 |
$tok eq "'" and $allow_tick
|
|
8265
|
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
|
|
8304
|
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]/
|
|
8429
|
43 |
0 |
3 |
$in_prototype_or_signature and $tok =~ /^[\),=#]/
|
|
|
2 |
0 |
6 |
$tok eq "*" and $identifier =~ /\-\>([\@\%\$\*\&]|\$\#)$/
|
|
8450
|
0 |
2 |
0 |
$id_scan_state eq $scan_state_SIGIL and $tok eq "#"
|
|
8521
|
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 /
|
|
8554
|
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 /
|
|
8637
|
17 |
0 |
0 |
$tok eq "'" and $allow_tick
|
|
8651
|
0 |
0 |
2 |
length $identifier == 1 and $i == $max_token_index
|
|
8716
|
0 |
0 |
0 |
$identifier eq "&" and $expecting
|
|
|
0 |
0 |
0 |
$identifier eq "&" and $expecting and $tok ne "#"
|
|
8852
|
17 |
77 |
1169 |
$i < $max_token_index and $id_scan_state
|
|
8886
|
1049 |
4 |
113 |
$tok eq ":" and $$rtokens[$i + 1] eq ":"
|
|
8933
|
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 "
|
|
8938
|
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/
|
|
8974
|
0 |
0 |
5 |
$id_scan_state_begin and $identifier =~ /^([\$\%\@\*\&]|->)/
|
|
9114
|
7 |
172 |
121 |
$call_type == 1 and $input_line =~ /\G\s*
|
|
9125
|
121 |
0 |
0 |
$last_nonblank_type eq 'k' && $last_nonblank_token eq 'my'
|
|
9127
|
121 |
0 |
0 |
$is_lexical_sub and $1
|
|
9151
|
0 |
115 |
6 |
defined $1 && $1
|
|
9185
|
0 |
288 |
12 |
$input_line =~ /\G(\s*\([^\)\(\}\{\,#A-Za-z]*\))? # PROTO
|
|
9198
|
11 |
10 |
24 |
$proto and $match || $call_type == 3
|
|
9215
|
34 |
9 |
2 |
$tok eq "sub" and not $proto
|
|
9230
|
133 |
2 |
1 |
$pos == $pos_beg and $tok eq ":"
|
|
9251
|
133 |
0 |
2 |
$type eq "k" and $attrs
|
|
|
133 |
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/
|
|
9269
|
0 |
0 |
7 |
defined $rpre_tokens and @{$rpre_tokens;}
|
|
9284
|
94 |
0 |
0 |
$rsaw_function_definition->{$subname}{$package} and not $subname =~ /^[A-Z]+$/
|
|
9340
|
0 |
0 |
0 |
$rinput_hash->{'tok'} eq "method" and $call_type == 1
|
|
9388
|
0 |
0 |
6154 |
defined $next_nonblank_token and length $next_nonblank_token
|
|
9394
|
3801 |
0 |
2353 |
$ord >= 33 and $ord <= 126
|
|
9434
|
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]
|
|
9683
|
7 |
0 |
0 |
$i_beg == 0 && $self->[25] == 1
|
|
9687
|
7 |
0 |
0 |
$str =~ /^<\?xml\s.*\?>$/i and $is_first_string
|
|
9888
|
504 |
16 |
37 |
substr($input_line, $pos - 1, 1) eq "." and substr($input_line, $pos, 1) eq "."
|
|
9901
|
310 |
16 |
0 |
$number =~ /^(.*)[eE]/ and not $1 =~ /\d/
|
|
9977
|
3 |
0 |
0 |
$next_token =~ /^\s*$/ and $expecting == -1
|
|
10010
|
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
|
|
10053
|
0 |
9 |
0 |
$found_target and $backslash
|
|
10184
|
2624 |
2 |
0 |
$tok eq "#" and $allow_quote_comments
|
|
10246
|
0 |
0 |
4 |
defined $tok and defined $end_tok
|
|
|
0 |
0 |
4 |
defined $tok and defined $end_tok and defined $quote_pos
|
|
10422
|
0 |
0 |
0 |
$pos >= 0 and $pos <= length $underline
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
302
|
0 |
0 |
1108 |
!defined($ok) || $Perl::Tidy::Tokenizer::EVAL_ERROR
|
|
527
|
0 |
0 |
0 |
$1 == 0 || $1 == 1
|
|
706
|
0 |
0 |
556 |
$self->[7] || $self->[8]
|
|
709
|
0 |
0 |
556 |
$severe_error ||= $self->[10] && $self->[9]
|
|
771
|
0 |
0 |
0 |
$self->[38] or $self->[37]
|
|
1262
|
0 |
0 |
0 |
$self->[38] or $self->[37]
|
|
1341
|
6597 |
20 |
863 |
$self->[40] or $input_line =~ /^\s*$/
|
|
|
20 |
310 |
553 |
$self->[40] or $input_line =~ /^\s*$/ or $input_line =~ /^\s*#/
|
|
2244
|
0 |
0 |
0 |
$rtokens->[$i_plus_1] eq '{' || $rtokens->[$i_plus_1] eq '['
|
|
2258
|
18 |
12 |
32 |
$tok_begin eq '@' || $tok_begin eq '%'
|
|
2395
|
1 |
0 |
7 |
not $next_char or $next_char eq "#"
|
|
2471
|
1 |
0 |
5 |
not $next_char or $next_char eq "#"
|
|
2543
|
13 |
330 |
0 |
$typ_d eq '+' || $typ_d eq '-'
|
|
2554
|
26 |
1900 |
45 |
$i_d == $max_token_index || $i_d < $max_token_index && $$rtoken_type[$i_d + 1] ne '.' && $$rtoken_type[$i_d + 1] ne 'w'
|
|
2568
|
332 |
1321 |
57 |
$tok_d eq 0 or substr($tok_d, 0, 1) ne 0
|
|
2684
|
36 |
17 |
3971 |
$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 |
3926 |
$last_nonblank_type eq "w" or $last_nonblank_type eq "U"
|
|
|
17 |
0 |
3971 |
$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")
|
|
3033
|
33 |
5 |
1583 |
$statement_type eq 'case' || $statement_type eq 'when'
|
|
3104
|
0 |
0 |
0 |
$i_tok == 0 || $$rtoken_type[$i_tok - 1] eq 'b'
|
|
3136
|
33 |
5 |
1258 |
$statement_type eq "case" or $statement_type eq "when"
|
|
3139
|
4 |
0 |
34 |
not $block_type or $block_type eq "}"
|
|
3209
|
104 |
0 |
3 |
$expecting == -1 or $next_type ne "b"
|
|
3962
|
0 |
3 |
0 |
length $tok == 1 || substr($tok, 1, 1) =~ /^\d/
|
|
4057
|
4 |
52 |
1632 |
$tok eq "when" or $tok eq "case"
|
|
|
56 |
0 |
1632 |
$tok eq "when" or $tok eq "case" or $tok eq "default"
|
|
4154
|
0 |
0 |
0 |
$last_nonblank_token =~ /^([\]\}\&]|\-\>)/ || $is_for_foreach{$want_paren}
|
|
4263
|
0 |
0 |
932 |
$tok eq "case" and $rbrace_type->[$brace_depth] eq "switch" or $tok eq "when" and $rbrace_type->[$brace_depth] eq "given"
|
|
4279
|
0 |
0 |
241 |
$tok eq "switch" or $tok eq "given"
|
|
4363
|
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/
|
|
4500
|
0 |
4 |
8 |
$expecting == 1 or not $next_nonblank_token =~ /^(\w|\:)/
|
|
|
4 |
3 |
5 |
$expecting == 1 or not $next_nonblank_token =~ /^(\w|\:)/ or not $self->method_ok_here
|
|
4528
|
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
|
|
4646
|
0 |
1 |
46 |
$saw_modifier_e ||= $char eq "e"
|
|
5107
|
183 |
116 |
2464 |
$in_quote or $i > $max_token_index
|
|
5151
|
0 |
674 |
211 |
$last_nonblank_type eq "w" or $last_nonblank_type eq "i"
|
|
5200
|
10 |
0 |
7 |
$is_sub{$id_scan_state} or $is_package{$id_scan_state}
|
|
5226
|
3 |
6 |
7 |
$i > 0 or $type
|
|
5579
|
0 |
0 |
0 |
$type_i eq "b" or $type_i eq "#"
|
|
5615
|
0 |
0 |
0 |
$type_i eq "{" or $type_i eq "L"
|
|
|
0 |
0 |
0 |
$type_i eq "{" or $type_i eq "L" or $ternary_indentation_flag > 0
|
|
|
0 |
0 |
0 |
$type_i eq "}" or $type_i eq "R"
|
|
|
0 |
0 |
0 |
$type_i eq "}" or $type_i eq "R" or $ternary_indentation_flag < 0
|
|
5769
|
0 |
0 |
0 |
$is_sort_map_grep_eval_do{$block_type_i} or $is_grep_alias{$block_type_i}
|
|
5854
|
0 |
0 |
0 |
$nesting_block_flag || $nesting_list_flag
|
|
|
0 |
0 |
0 |
$type_i eq 'k' && $is_binary_keyword{$tok_i} || $is_binary_type{$type_i}
|
|
5874
|
0 |
0 |
0 |
$type_i eq ";" or $type_i eq "J"
|
|
5889
|
0 |
0 |
0 |
$type_i eq "," or $type_i eq ";"
|
|
6133
|
3704 |
363 |
307 |
$type_i eq "{" or $type_i eq "L"
|
|
6161
|
3704 |
363 |
494 |
$type_i eq "}" or $type_i eq "R"
|
|
|
4067 |
8 |
486 |
$type_i eq "}" or $type_i eq "R" or $type_i eq ":" and $routput_indent_flag->[$i] < 0
|
|
6469
|
2021 |
0 |
1345 |
$is_paren_dollar{substr $last_nonblank_token, 0, 1} or substr($last_nonblank_token, 0, 2) eq "->"
|
|
6629
|
79 |
0 |
2 |
label_ok() || $last_nonblank_type eq 'J'
|
|
6642
|
14 |
33 |
67 |
$last_nonblank_token eq '{' || $last_nonblank_token eq '}'
|
|
6653
|
59 |
6 |
2 |
$last_nonblank_type eq ';' || $last_nonblank_type eq 'J'
|
|
6674
|
471 |
0 |
644 |
$is_code_block_token{$last_nonblank_token} or $is_grep_alias{$last_nonblank_token}
|
|
|
141 |
152 |
346 |
$last_nonblank_type eq 'i' || $last_nonblank_type eq 't'
|
|
|
0 |
0 |
346 |
$last_nonblank_type eq 'i' || $last_nonblank_type eq 't'
|
|
6744
|
0 |
0 |
237 |
$last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless'
|
|
6925
|
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 ">"
|
|
7046
|
639 |
0 |
1614 |
$is_sigil_or_paren{substr $last_nonblank_token, 0, 1} || substr($last_nonblank_token, 0, 2) eq '->' || $is_R_closing_sb{$last_nonblank_type}
|
|
7214
|
0 |
0 |
0 |
$diff > 0 || $saw_brace_error <= 0
|
|
7229
|
0 |
0 |
0 |
$diff == 1 or $diff == -1
|
|
7430
|
0 |
0 |
0 |
$s_quote % 2 or $d_quote % 2
|
|
|
0 |
0 |
0 |
$s_quote % 2 or $d_quote % 2 or $colons
|
|
7745
|
4 |
0 |
698 |
$is_indirect_object_taker{$last_nonblank_token} || $last_nonblank_token eq '(' && $is_indirect_object_taker{$rparen_type->[$paren_depth]}
|
|
7826
|
0 |
4 |
0 |
pos $input_line == length $input_line or $input_line =~ /\G[;\s]/cg
|
|
8265
|
4 |
0 |
95 |
$last_tok_is_blank || $in_prototype_or_signature
|
|
|
94 |
1 |
0 |
$identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/
|
|
8304
|
26 |
6 |
6 |
$identifier eq '$' || $identifier eq '@' || $identifier eq '$#'
|
|
8328
|
26 |
0 |
11 |
$identifier eq "\$" or $i == 0
|
|
8661
|
15 |
0 |
0 |
$identifier eq "&" or $i == 0
|
|
8785
|
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"
|
|
9185
|
34 |
11 |
255 |
$1 || $2
|
|
9198
|
22 |
2 |
10 |
$match || $call_type == 3
|
|
9394
|
3801 |
0 |
0 |
$ord == 32 or $ord == 9
|
|
9532
|
0 |
0 |
0 |
$next_nonblank_token =~ /^\s*$/ or $next_nonblank_token eq "#"
|
|
9642
|
1 |
0 |
0 |
substr($last_nonblank_token, 0, 1) =~ /[A-Za-z_]/ or substr($str, 1, 1) =~ /[A-Za-z_]/
|
|
9755
|
0 |
0 |
0 |
$br or $sb
|
|
|
0 |
0 |
0 |
$br or $sb or $pr
|
|
9901
|
303 |
0 |
326 |
not $number =~ /\d/ or $number =~ /^(.*)[eE]/ and not $1 =~ /\d/
|
|
10231
|
3 |
0 |
1 |
$quote_pos == 0 or $i < 0
|
|
10300
|
7 |
1 |
368 |
$tok eq $end_tok or $tok eq $beginning_tok
|