Condition Coverage

blib/lib/Perl/Tidy/Tokenizer.pm
Criterion Covered Total %
condition 523 948 55.1


and 2 conditions

line l !l condition
5178 48455 1939 $block_type &&= ""
5179 46124 4270 $container_type &&= ""
5180 41215 9179 $type_sequence &&= ""
5181 50379 15 $indent_flag &&= 0
5182 50393 1 $prototype &&= ""

and 3 conditions

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

or 2 conditions

line l !l condition
9209 30 15 $match ||= 1

or 3 conditions

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