| line |
true |
false |
branch |
|
292
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
361
|
2584 |
4 |
unless ($param)
|
|
363
|
0 |
2588 |
unless ($param =~ /^#/)
|
|
369
|
0 |
2588 |
if (bad_pattern($pattern))
|
|
393
|
3 |
644 |
if ($rOpts->{'sub-alias-list'})
|
|
411
|
2 |
645 |
if ($is_sub{'method'})
|
|
420
|
0 |
647 |
if (defined $str and length $str)
|
|
423
|
0 |
0 |
if (not length $str) { }
|
|
|
0 |
0 |
elsif ($str =~ /\bnoclass\b/) { }
|
|
|
0 |
0 |
elsif ($str =~ /\bclass\b/) { }
|
|
463
|
647 |
0 |
if ($use_feature_class)
|
|
484
|
647 |
0 |
if ($rOpts->{'grep-alias-list'})
|
|
516
|
12 |
635 |
unless ($rOpts_indent_columns)
|
|
528
|
0 |
645 |
$rOpts->{'tabs'} ? :
|
|
|
2 |
645 |
$rOpts->{'entab-leading-whitespace'} ? :
|
|
529
|
0 |
647 |
unless ($tabsize)
|
|
547
|
0 |
649 |
if (@arglist % 2)
|
|
565
|
0 |
649 |
unless (defined $source_object)
|
|
570
|
0 |
649 |
unless (ref $source_object)
|
|
676
|
0 |
649 |
if (_increment_count() > 1)
|
|
715
|
0 |
649 |
if (not $rsource) { }
|
|
|
0 |
649 |
elsif ($rsource eq 'ARRAY') { }
|
|
|
649 |
0 |
elsif ($rsource eq 'SCALAR') { }
|
|
754
|
1 |
648 |
if (@{$rinput_lines;} and not $source_string =~ /\n$/)
|
|
765
|
0 |
649 |
if (@trimmed_lines != @{$rinput_lines;})
|
|
792
|
1365 |
12 |
if ($line_index < @{$rinput_lines;})
|
|
807
|
0 |
0 |
if ($logger_object)
|
|
828
|
35 |
0 |
if ($logger_object)
|
|
840
|
2156 |
6 |
if ($logger_object)
|
|
851
|
0 |
0 |
if ($logger_object)
|
|
862
|
0 |
0 |
if ($logger_object)
|
|
873
|
0 |
0 |
if ($logger_object)
|
|
887
|
0 |
0 |
if ($logger_object)
|
|
902
|
0 |
0 |
if ($logger_object)
|
|
915
|
0 |
0 |
if ($diagnostics_object)
|
|
944
|
647 |
2 |
if ($logger_object)
|
|
951
|
0 |
649 |
unless defined $maxle
|
|
952
|
0 |
649 |
unless defined $maxue
|
|
955
|
0 |
649 |
if ($level != $self->[19])
|
|
961
|
0 |
0 |
if ($level_diff < 0)
|
|
966
|
0 |
0 |
if ($maxle >= 0 and $level_diff > $maxle)
|
|
976
|
0 |
649 |
if ($self->[52])
|
|
984
|
0 |
649 |
if ($self->[46] > 2)
|
|
988
|
0 |
649 |
if ($rOpts_look_for_hash_bang and not $self->[31])
|
|
995
|
0 |
649 |
if ($self->[6])
|
|
999
|
0 |
649 |
if ($self->[12])
|
|
1004
|
0 |
649 |
if ($self->[11])
|
|
1009
|
0 |
0 |
if ($self->[33] or $self->[32]) { }
|
|
1023
|
0 |
649 |
if ($self->[1])
|
|
1028
|
0 |
0 |
if ($here_doc_target) { }
|
|
1041
|
0 |
0 |
if ($nearly_matched_here_target_at)
|
|
1049
|
0 |
649 |
if ($self->[16])
|
|
1053
|
0 |
0 |
$self->[15] ? :
|
|
1062
|
0 |
649 |
if ($self->[26])
|
|
1073
|
0 |
649 |
if ($maxue > 0 and $ue_count > $maxue)
|
|
1080
|
632 |
17 |
unless ($self->[23])
|
|
1084
|
0 |
649 |
if ($self->[22])
|
|
1089
|
635 |
14 |
unless ($self->[24])
|
|
1095
|
12 |
637 |
if ($self->[44])
|
|
1107
|
3 |
646 |
if (@{$rformat_skipping_list;} and $rformat_skipping_list->[0][0] == -1)
|
|
1125
|
0 |
0 |
if $self->[7]
|
|
1128
|
0 |
0 |
if $rOpts_whitespace_cycle
|
|
1131
|
0 |
0 |
if $rOpts_non_indenting_brace_prefix
|
|
1134
|
0 |
0 |
if $rOpts_starting_indentation_level
|
|
1138
|
0 |
0 |
unless $rhash->{'valid'}
|
|
1153
|
0 |
0 |
if ($rhistory_anchor_point->[$i] == 2)
|
|
1158
|
0 |
0 |
if $num_his <= 1
|
|
1161
|
0 |
0 |
unless ($rhistory_anchor_point->[-1])
|
|
1166
|
0 |
0 |
if ($num_his > 1)
|
|
1167
|
0 |
0 |
if ($$rhistory_level_diff[$num_his - 1] == $$rhistory_level_diff[$num_his - 2])
|
|
1175
|
0 |
0 |
if $num_his <= 1
|
|
1178
|
0 |
0 |
if $rhistory_level_diff->[0]
|
|
1185
|
0 |
0 |
if ($lev < $min_lev)
|
|
1186
|
0 |
0 |
if ($min_lev < 0 and $lev >= 0)
|
|
1199
|
0 |
0 |
if (@pre_indexes > $nlines_max)
|
|
1200
|
0 |
0 |
if ($nlines_max >= 5) { }
|
|
1222
|
0 |
0 |
if (@post_indexes)
|
|
1237
|
0 |
0 |
if ($level_diff_1 < 0) { }
|
|
|
0 |
0 |
elsif ($level_diff_1 > 0) { }
|
|
1263
|
0 |
2 |
if ($] < "5.006")
|
|
1301
|
8970 |
649 |
if ($line_index < @{$rinput_lines;}) { }
|
|
1309
|
0 |
0 |
if ($is_binary_or_unary_operator_type{$last_nonblank_type} or $last_nonblank_type eq "k" and $is_binary_or_unary_keyword{$last_nonblank_token})
|
|
1326
|
649 |
8970 |
unless defined $input_line
|
|
1333
|
8969 |
1 |
if (chomp $input_line)
|
|
1339
|
0 |
8970 |
if ($other_line_endings{substr $input_line, -1})
|
|
1340
|
0 |
0 |
if ($input_line =~ s/([\r\035\032])+$//)
|
|
1403
|
32 |
8938 |
if ($self->[1]) { }
|
|
|
3 |
8935 |
elsif ($self->[6]) { }
|
|
|
51 |
8884 |
elsif ($self->[11]) { }
|
|
|
8 |
8876 |
elsif ($self->[12]) { }
|
|
|
0 |
8876 |
elsif ($self->[7]) { }
|
|
|
1 |
8875 |
elsif ($self->[4]) { }
|
|
|
56 |
8819 |
elsif ($self->[5]) { }
|
|
1413
|
4 |
28 |
if ($here_quote_character =~ /^\s/)
|
|
1416
|
13 |
19 |
if ($candidate_target eq $here_doc_target) { }
|
|
1422
|
2 |
11 |
if (@{$rhere_target_list;}) { }
|
|
1444
|
0 |
19 |
if ($candidate_target eq $here_doc_target)
|
|
1454
|
1 |
2 |
if ($input_line =~ /^\.[\s#]*$/) { }
|
|
1460
|
1 |
0 |
unless ($self->[6])
|
|
1472
|
0 |
2 |
if ($input_line =~ /^\s*format\s+\w+/)
|
|
1486
|
22 |
29 |
if ($input_line =~ /^=cut/)
|
|
1491
|
0 |
51 |
if ($input_line =~ /^\#\!.*perl\b/ and not $self->[5])
|
|
1504
|
2 |
6 |
if ($input_line =~ /$code_skipping_pattern_end/) { }
|
|
|
0 |
6 |
elsif ($input_line =~ /$code_skipping_pattern_begin/) { }
|
|
1539
|
0 |
1 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1558
|
7 |
49 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1574
|
16 |
8175 |
if (not $self->[31] and substr($input_line, 0, 2) eq "#!" and $input_line =~ /^\#\!.*perl\b/)
|
|
1581
|
0 |
16 |
if ($input_line =~ /^\#\!.*perl\s.*-.*P/)
|
|
1585
|
9 |
7 |
if ($input_line =~ /^\#\!.*perl\s.*-.*w/)
|
|
1589
|
1 |
15 |
if ($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/) { }
|
|
1619
|
0 |
1 |
if ($self->[35]) { }
|
|
1638
|
5 |
8799 |
if ($rOpts_look_for_hash_bang and not $self->[31])
|
|
1647
|
0 |
8799 |
if ($input_line_number == 1 and $input_line =~ /^\s*\:\s*\#/)
|
|
1670
|
0 |
8799 |
if ($self->[7])
|
|
1679
|
15 |
8784 |
if ($self->[11])
|
|
1685
|
0 |
15 |
if ($input_line =~ /^=cut\b/) { }
|
|
1686
|
0 |
0 |
if ($self->[33] or $self->[32]) { }
|
|
1711
|
2 |
8782 |
if ($self->[12])
|
|
1720
|
11 |
8771 |
if (@{$rhere_target_list;})
|
|
1734
|
1 |
8781 |
if ($self->[4]) { }
|
|
|
7 |
8774 |
elsif ($self->[5]) { }
|
|
1740
|
0 |
1 |
if ($self->[30])
|
|
1755
|
0 |
7 |
if ($self->[29])
|
|
1770
|
645 |
326 |
unless ($self->[35] or $input_line =~ /^\s*$/ or $input_line =~ /^\s*#/)
|
|
1777
|
7 |
8767 |
if ($self->[36])
|
|
1783
|
1 |
8773 |
if ($self->[6])
|
|
1787
|
63 |
8711 |
if ($self->[16] and $self->[18] < 0) { }
|
|
|
62 |
8649 |
elsif ($self->[18] >= 0 and not $self->[16]) { }
|
|
1790
|
62 |
1 |
unless ((my $quote_target = $self->[17]) =~ /^\s*$/)
|
|
1822
|
1 |
648 |
if ($self->[20]) { }
|
|
|
1 |
647 |
elsif ($rOpts_look_for_hash_bang) { }
|
|
1844
|
14 |
959 |
if ($i == 1 and $line =~ /^\#\!/)
|
|
1850
|
310 |
649 |
if ($line =~ /^\s*#/)
|
|
1853
|
254 |
56 |
unless (defined $line_for_guess)
|
|
1855
|
310 |
0 |
if (not $in_code_skipping) { }
|
|
1856
|
0 |
310 |
if ($rOpts_code_skipping and $line =~ /$code_skipping_pattern_begin/)
|
|
1864
|
0 |
0 |
if ($line =~ /$code_skipping_pattern_end/)
|
|
1876
|
0 |
649 |
if $in_code_skipping
|
|
1878
|
18 |
631 |
if $line =~ /^\s*$/
|
|
1885
|
631 |
16 |
if (defined $line_for_guess)
|
|
1919
|
634 |
0 |
if ($line =~ /^(\t+)?(\s+)?(\w+:[^:])?/)
|
|
1923
|
2 |
632 |
if ($1)
|
|
1925
|
90 |
544 |
if ($2)
|
|
1928
|
1 |
0 |
if ($3 and $rOpts_outdent_labels and $rOpts_continuation_indentation > 0)
|
|
1950
|
0 |
0 |
if ($ris_block_list_function->{$pkg}{$sub})
|
|
1954
|
0 |
0 |
if ($ris_block_function->{$pkg}{$sub})
|
|
2336
|
8 |
0 |
if ($pretoken and length $pretoken > $numc and substr($pretoken, $numc) =~ /^(\d*)(.*)$/)
|
|
2343
|
8 |
0 |
defined $1 ? :
|
|
2344
|
8 |
0 |
defined $2 ? :
|
|
2361
|
5 |
3 |
if ($len_1)
|
|
2370
|
4 |
4 |
if ($len_2)
|
|
2405
|
139 |
141 |
defined $flag ? :
|
|
2505
|
0 |
0 |
unless $replacement_text =~ /<</
|
|
2529
|
0 |
0 |
if ($tokenizer->[1])
|
|
2536
|
0 |
0 |
if ($tokenizer->[0])
|
|
2603
|
3 |
548 |
if ($split_pretoken_flag)
|
|
2606
|
3 |
0 |
if ($i > 0 and $$rtokens[$i - 1] eq '^' and $self->split_pretoken(1)) { }
|
|
2672
|
8 |
5677 |
if ($last_nonblank_token eq '->') { }
|
|
|
5571 |
106 |
elsif (not $id_scan_state and $i_plus_1 <= $max_token_index and $fast_scan_context{$tok}) { }
|
|
|
0 |
106 |
elsif ($tok eq '->' and $i < $max_token_index and $rtokens->[$i_plus_1] eq '{' || $rtokens->[$i_plus_1] eq '[') { }
|
|
2686
|
5214 |
357 |
if ($rtoken_type->[$i_plus_1] eq 'w') { }
|
|
|
43 |
314 |
elsif ($rtoken_type->[$i_plus_1] eq '{' and $tok_begin eq '@' || $tok_begin eq '%') { }
|
|
2688
|
5092 |
122 |
if ($i_plus_1 < $max_token_index)
|
|
2690
|
2045 |
3047 |
if ($rtoken_type->[$i_next] eq "b" and $i_next < $max_token_index)
|
|
2697
|
5098 |
116 |
if ($pretype_next ne ":" and $pretype_next ne "'")
|
|
2780
|
544 |
5141 |
unless ($fast_scan_type)
|
|
2803
|
0 |
14 |
if $expecting == 1
|
|
2806
|
0 |
14 |
if $i_tok >= $max_token_index
|
|
2812
|
2 |
12 |
if ($next_nonblank_token eq "\$" and new_statement_ok())
|
|
2817
|
4 |
8 |
unless ($next_nonblank_token =~ /^[\w\:]/)
|
|
2825
|
8 |
0 |
if ($input_line =~ /\G\s*
|
|
2845
|
7 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2846
|
1 |
7 |
if (not $next_char or $next_char eq "#")
|
|
2852
|
0 |
8 |
unless ($next_char)
|
|
2863
|
3 |
5 |
unless ($next_char =~ /^[\(\:\{\;\}]/)
|
|
2897
|
0 |
12 |
unless (new_statement_ok())
|
|
2904
|
12 |
0 |
if ($input_line =~ /\G\s*
|
|
2921
|
11 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2922
|
1 |
11 |
if (not $next_char or $next_char eq "#")
|
|
2927
|
0 |
12 |
unless ($next_char)
|
|
2942
|
2 |
10 |
unless ($next_char =~ /^[\:\d\{\;\}]/)
|
|
3004
|
392 |
0 |
if ($typ_d ne "d" and $typ_d eq '+' || $typ_d eq '-' and $i_d < $max_token_index)
|
|
3015
|
2284 |
314 |
if ($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')
|
|
3029
|
2227 |
57 |
if ($tok_d eq 0 or substr($tok_d, 0, 1) ne 0)
|
|
3065
|
673 |
2227 |
unless (defined $number)
|
|
3077
|
0 |
285 |
if ($expecting != -1)
|
|
3080
|
0 |
37 |
if ($is_binary_or_unary_operator_type{$last_nonblank_type} or $last_nonblank_type eq "k" and $is_binary_or_unary_keyword{$last_nonblank_token} or $is_not_a_TERM_producer_type{$last_nonblank_type} and $is_binary_operator_type{$tok})
|
|
3101
|
0 |
0 |
if ($ct and $ct =~ /^sub\b/)
|
|
3129
|
0 |
809 |
if ($expecting == 1)
|
|
3130
|
0 |
0 |
unless (defined $thing)
|
|
3142
|
0 |
0 |
if ($i_tok == 0)
|
|
3179
|
0 |
4833 |
if $expecting == 1
|
|
3183
|
1 |
4832 |
if ($identifier eq "\$^W")
|
|
3190
|
67 |
4729 |
if ($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"))
|
|
3206
|
43 |
61 |
unless $Z_test_hash{$next_nonblank_token}
|
|
3221
|
289 |
2134 |
if ($want_paren) { }
|
|
|
20 |
2114 |
elsif (substr($statement_type, 0, 3) eq 'sub' and $statement_type =~ /^sub\b/) { }
|
|
3236
|
3 |
2111 |
if ($expecting == 1 and not $last_nonblank_token =~ /^(?:[\]\}\)\&]|\-\>)/)
|
|
3250
|
0 |
3 |
if ($last_last_nonblank_token eq 'do') { }
|
|
3266
|
0 |
3 |
if ($next_nonblank_token ne ")" and $next_nonblank_token ne "#")
|
|
3273
|
0 |
0 |
if ($last_nonblank_type eq 'C') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq 'i') { }
|
|
3278
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_token =~ /^\$/)
|
|
3288
|
0 |
0 |
if ($hint)
|
|
3305
|
61 |
2362 |
if ($last_nonblank_token eq '(') { }
|
|
3338
|
0 |
2423 |
if ($last_nonblank_type eq ")")
|
|
3348
|
1 |
2422 |
if ($last_nonblank_token eq ")")
|
|
3350
|
1 |
0 |
if (defined $rvars)
|
|
3373
|
2423 |
0 |
if (defined $rvars)
|
|
3375
|
2423 |
0 |
if ($type_lp and $type_lp eq "{")
|
|
3384
|
30 |
2393 |
if (substr($container_type, 0, 3) eq "sub" and $container_type =~ /^sub\b/)
|
|
3390
|
79 |
2344 |
if ($is_for_foreach{$rparen_type->[$paren_depth]})
|
|
3392
|
0 |
79 |
if ($num_sc > 0 and $num_sc != 2)
|
|
3397
|
2423 |
0 |
if ($paren_depth > 0)
|
|
3406
|
10 |
3678 |
if ($last_nonblank_type eq ',') { }
|
|
|
0 |
3678 |
elsif ($last_nonblank_token eq '(' and $last_nonblank_type eq '{') { }
|
|
3420
|
6 |
3682 |
if ($statement_type eq "use")
|
|
3434
|
35 |
2855 |
if ($is_for_foreach{$rparen_type->[$paren_depth]}) { }
|
|
3442
|
34 |
1 |
if ($brace_depth == $rdepth_array->[2][0][$paren_depth] and $square_bracket_depth == $rdepth_array->[2][1][$paren_depth])
|
|
3462
|
0 |
1253 |
if $expecting == 1
|
|
3477
|
0 |
1335 |
if $expecting == 1
|
|
3492
|
0 |
0 |
if $expecting == 1
|
|
3511
|
0 |
225 |
if ($last_nonblank_type eq 'k' and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
0 |
225 |
elsif ($expecting == 0) { }
|
|
3533
|
0 |
0 |
if ($msg)
|
|
3543
|
88 |
137 |
if ($is_pattern) { }
|
|
3552
|
4 |
133 |
if ($$rtokens[$i + 1] eq "=")
|
|
3587
|
36 |
1980 |
if (substr($statement_type, 0, 3) eq 'sub') { }
|
|
|
10 |
1970 |
elsif (substr($statement_type, 0, 7) eq 'package') { }
|
|
|
0 |
1970 |
elsif ($statement_type eq 'case' || $statement_type eq 'when' and $statement_type eq $last_nonblank_token) { }
|
|
|
295 |
1675 |
elsif ($last_nonblank_token eq ')') { }
|
|
|
0 |
1675 |
elsif ($last_nonblank_token eq 'qw' and $is_for_foreach{$want_paren}) { }
|
|
3612
|
0 |
295 |
unless (defined $last_nonblank_token)
|
|
3617
|
279 |
16 |
if ($is_blocktype_with_paren{$last_nonblank_token}) { }
|
|
3620
|
279 |
0 |
if (defined $rvars)
|
|
3636
|
16 |
0 |
if ($rOpts_extended_syntax) { }
|
|
3660
|
0 |
0 |
if ($last_last_nonblank_token eq $want_paren)
|
|
3677
|
8 |
2008 |
if ($statement_type eq 'field' and $last_last_nonblank_token eq 'field' and $last_nonblank_type eq 'i' and $last_last_nonblank_type eq 'k') { }
|
|
|
564 |
1444 |
elsif (is_non_structural_brace()) { }
|
|
3694
|
0 |
0 |
if ($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')
|
|
3714
|
0 |
0 |
if ($block_type and $ris_lexical_sub->{'911'} and $last_nonblank_type eq "S" and substr($block_type, 0, 3) eq "sub")
|
|
3720
|
0 |
0 |
if ($block_type =~ /^sub $subname/ and $is_my_our_state{$last_last_nonblank_token})
|
|
3734
|
36 |
1067 |
if ($block_type and $last_nonblank_type eq "w" and $last_nonblank_i >= 0)
|
|
3738
|
36 |
0 |
if ($routput_token_type->[$last_nonblank_i] eq "w")
|
|
3740
|
5 |
31 |
$is_grep_alias{$block_type} ? :
|
|
3746
|
48 |
1396 |
if ($statement_type eq "case" or $statement_type eq "when")
|
|
3749
|
4 |
44 |
if (not $block_type or $block_type eq "}")
|
|
3761
|
2006 |
10 |
if substr($block_type, 0, 8) ne "package "
|
|
3778
|
1115 |
901 |
if ($block_type)
|
|
3779
|
2006 |
10 |
if (defined $rbrace_package->[$brace_depth]) { }
|
|
3789
|
564 |
1452 |
if ($rbrace_structural_type->[$brace_depth] eq "L")
|
|
3796
|
85 |
1931 |
if ($is_block_operator{$block_type})
|
|
3801
|
6 |
2010 |
if (@{$self->[53];} and $self->[53][-1] eq $type_sequence)
|
|
3808
|
2016 |
0 |
if ($brace_depth > 0)
|
|
3821
|
106 |
20 |
if ($expecting != 1) { }
|
|
3827
|
103 |
3 |
if ($expecting == -1 or $next_type ne "b")
|
|
3841
|
8 |
25 |
if ($expecting != 1) { }
|
|
3874
|
1 |
192 |
if ($last_nonblank_type eq 'k' and $is_keyword_rejecting_question_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
1 |
191 |
elsif ($last_nonblank_type =~ /^[FUY]$/) { }
|
|
|
12 |
179 |
elsif ($expecting == 0) { }
|
|
3913
|
12 |
0 |
if ($msg)
|
|
3922
|
0 |
193 |
if ($is_pattern) { }
|
|
3944
|
6 |
248 |
if ($expecting == 0 and $next_type ne "b")
|
|
3947
|
0 |
6 |
if ($next_tok =~ /^[_A-Za-z]/) { }
|
|
3956
|
21 |
233 |
if ($expecting == -1) { }
|
|
3961
|
2 |
231 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
|
42 |
189 |
elsif ($$rtokens[$i + 1] eq '*') { }
|
|
3970
|
2 |
40 |
if ($$rtokens[$i + 1] eq "=")
|
|
3988
|
10 |
158 |
if ($expecting != 1)
|
|
4002
|
0 |
285 |
if ($input_line_number == 1 and $last_nonblank_i == -1) { }
|
|
|
22 |
263 |
elsif ($statement_type =~ /^(sub|package)\b/) { }
|
|
|
1 |
262 |
elsif ($rparen_type->[$paren_depth] =~ /^sub\b/ and not is_balanced_closing_container(3)) { }
|
|
|
17 |
245 |
elsif ($is_my_our_state{$statement_type} and $rcurrent_depth->[3] == 0) { }
|
|
|
46 |
199 |
elsif ($is_case_default{$statement_type} and not is_balanced_closing_container(3)) { }
|
|
|
6 |
193 |
elsif (not $rcurrent_depth->[3]) { }
|
|
4060
|
0 |
193 |
if ($last_nonblank_token eq "?")
|
|
4072
|
14 |
226 |
if ($expecting == -1) { }
|
|
|
224 |
2 |
elsif ($expecting == 1) { }
|
|
4076
|
14 |
0 |
unless (defined $number)
|
|
4081
|
2 |
0 |
if ($next_type eq "w" or $next_type eq "{")
|
|
4091
|
0 |
524 |
if $expecting == 1
|
|
4103
|
0 |
214 |
if ($expecting == 0)
|
|
4104
|
0 |
0 |
if ($next_type ne "b" and $next_type ne "(")
|
|
4108
|
204 |
10 |
if ($expecting == -1)
|
|
4127
|
374 |
440 |
unless (is_non_structural_brace())
|
|
4143
|
374 |
440 |
if ($rsquare_bracket_structural_type->[$square_bracket_depth] eq "{")
|
|
4151
|
20 |
794 |
if ($rsquare_bracket_type->[$square_bracket_depth] eq "~~")
|
|
4155
|
814 |
0 |
if ($square_bracket_depth > 0)
|
|
4164
|
12 |
479 |
if ($expecting != 1 and $is_file_test_operator{$next_tok}) { }
|
|
|
378 |
101 |
elsif ($expecting == -1) { }
|
|
|
97 |
4 |
elsif ($expecting == 1) { }
|
|
4173
|
0 |
12 |
if ($next_nonblank_token eq '=') { }
|
|
4186
|
288 |
90 |
unless (defined $number)
|
|
4192
|
4 |
0 |
if ($next_type eq "w")
|
|
4205
|
5 |
7 |
if ($expecting == -1)
|
|
4207
|
5 |
0 |
if ($last_nonblank_token eq "{" and not $next_tok =~ /^\d/ and $next_tok =~ /^\w/)
|
|
4212
|
1 |
4 |
if ($next_tok eq "W")
|
|
4230
|
0 |
0 |
if ($last_last_nonblank_type ne "t" and $last_last_nonblank_type ne "Z" and $last_last_nonblank_token ne "\$#")
|
|
4255
|
7 |
0 |
if ($expecting != 1) { }
|
|
4274
|
7 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
4278
|
0 |
7 |
if (length $here_doc_target > 80) { }
|
|
|
0 |
7 |
elsif (not $here_doc_target) { }
|
|
|
2 |
5 |
elsif (not $here_doc_target =~ /^[A-Z_]\w+$/) { }
|
|
4283
|
0 |
0 |
unless $here_quote_character
|
|
4296
|
0 |
0 |
unless ($saw_error)
|
|
4329
|
0 |
2 |
if $i >= $max_token_index
|
|
4330
|
2 |
0 |
if ($expecting != 1) { }
|
|
4349
|
2 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
4351
|
0 |
2 |
if (length $here_doc_target > 80) { }
|
|
|
0 |
2 |
elsif (not $here_doc_target =~ /^[A-Z_]\w+$/) { }
|
|
4373
|
0 |
0 |
unless ($saw_error)
|
|
4412
|
41 |
9 |
if ($expecting == 1) { }
|
|
|
7 |
2 |
elsif ($expecting == -1) { }
|
|
4423
|
0 |
2 |
if ($next_nonblank_token eq "#")
|
|
4429
|
0 |
2 |
if ($next_nonblank_token eq "\$")
|
|
4439
|
0 |
1103 |
if ($last_nonblank_type eq $tok)
|
|
4445
|
18 |
1085 |
if ($statement_type eq "use")
|
|
4456
|
0 |
2 |
if ($expecting == 1) { }
|
|
|
2 |
0 |
elsif ($expecting == -1) { }
|
|
4467
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
4473
|
0 |
0 |
if ($next_nonblank_token eq "\$")
|
|
4484
|
0 |
2508 |
if $expecting == 1
|
|
4488
|
0 |
2508 |
unless (defined $number)
|
|
4514
|
20 |
25 |
if ($next_nonblank_token eq '(') { }
|
|
4521
|
2 |
18 |
if ($tok eq "prototype")
|
|
4542
|
2 |
0 |
if ($i > $i_beg)
|
|
4577
|
15 |
2 |
if ($tok eq 'x') { }
|
|
4578
|
0 |
15 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
4594
|
2 |
0 |
if ($self->split_pretoken(1))
|
|
4612
|
16 |
0 |
if ($next_nonblank_tok2)
|
|
4614
|
1 |
15 |
if ($is_keyword{$next_nonblank_tok2}) { }
|
|
4649
|
495 |
2565 |
if ($is_blocktype_with_paren{$tok})
|
|
4650
|
356 |
139 |
if (new_statement_ok())
|
|
4659
|
0 |
331 |
if ($expecting == 1 and $is_TERM_keyword{$tok})
|
|
4664
|
178 |
2882 |
if ($is_use_require{$tok}) { }
|
|
|
747 |
2135 |
elsif ($is_my_our_state{$tok}) { }
|
|
|
33 |
2102 |
elsif ($tok eq 'elsif') { }
|
|
|
49 |
2053 |
elsif ($tok eq 'else') { }
|
|
|
70 |
1983 |
elsif ($tok eq 'when' or $tok eq 'case' or $tok eq 'default') { }
|
|
|
1 |
1982 |
elsif ($tok eq 'err') { }
|
|
4675
|
0 |
0 |
unless ($is_if_elsif_unless{$last_nonblank_block_type} or $last_nonblank_token eq ";" and $next_sequence_number == 2)
|
|
4700
|
0 |
0 |
unless ($is_if_elsif_unless_case_when{$last_nonblank_block_type} or $is_if_elsif_unless_case_when{$statement_type} or $last_nonblank_token eq ";" and $next_sequence_number == 2)
|
|
4736
|
1 |
0 |
if ($expecting != 1)
|
|
4751
|
0 |
232 |
if ($expecting == 1)
|
|
4775
|
0 |
0 |
unless ($paren_list_possible)
|
|
4788
|
138 |
94 |
$tok eq 'qw' && $rOpts_trim_qw ? :
|
|
4804
|
111 |
919 |
if ($statement_type eq "use" and $last_nonblank_token eq "use")
|
|
4810
|
1005 |
25 |
if ($type eq "w")
|
|
4812
|
2 |
1003 |
if ($expecting == 1)
|
|
4821
|
0 |
2 |
if ($rsaw_use_module->{$current_package}{'RPerl'} and $tok =~ /^sse_(mul|div|add|sub)$/) { }
|
|
|
2 |
0 |
elsif ($tok eq 'in' and $next_nonblank_token eq ':') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq '->') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq 'C') { }
|
|
4851
|
0 |
0 |
unless ($tok =~ /::$/)
|
|
4866
|
294 |
711 |
if ($next_tok eq "(")
|
|
4873
|
0 |
294 |
if ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
|
294 |
0 |
elsif ($last_nonblank_type ne '->') { }
|
|
4885
|
0 |
1005 |
if ($tok eq "_" and $last_nonblank_type eq "F")
|
|
4891
|
0 |
1005 |
if ($tok eq "case" and $rbrace_type->[$brace_depth] eq "switch" or $tok eq "when" and $rbrace_type->[$brace_depth] eq "given")
|
|
4900
|
259 |
746 |
if ($next_nonblank_token eq "(")
|
|
4907
|
0 |
259 |
if ($tok eq 'switch' or $tok eq 'given') { }
|
|
|
0 |
259 |
elsif ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
4940
|
3 |
0 |
if ($is_sub{$tok_kw} and $expecting != 1 and $next_nonblank_token eq ":")
|
|
4987
|
0 |
0 |
if ($rbareword_info_tok)
|
|
4989
|
0 |
0 |
if ($rbareword_info_tok)
|
|
4994
|
0 |
0 |
if ($function_count)
|
|
4997
|
0 |
0 |
unless (defined $function_count)
|
|
4998
|
0 |
0 |
unless (defined $constant_count)
|
|
5039
|
4001 |
2615 |
if ($i_next <= $max_token_index and $rtoken_type->[$i_next] eq "b")
|
|
5042
|
6532 |
84 |
if ($i_next <= $max_token_index) { }
|
|
5054
|
2 |
1 |
if ($tok eq "ADJUST" and $is_code_block_token{$tok} and $rtokens->[$i_next] eq ":" and $i_next < $max_token_index)
|
|
5059
|
0 |
2 |
$$rtoken_type[$i_next + 1] eq 'b' ? :
|
|
5070
|
272 |
6344 |
if ($$rtokens[$i + 1] eq ":" and $$rtokens[$i + 2] eq ":")
|
|
5076
|
45 |
6571 |
if ($self->[15])
|
|
5078
|
45 |
0 |
if $is_attribute
|
|
5087
|
0 |
6571 |
if (my $rseqno_hash = $ris_lexical_sub->{$tok_kw})
|
|
5094
|
0 |
0 |
$cd ? :
|
|
5102
|
0 |
0 |
if (my $seqno_brace = $rseqno_hash->{$p_seqno})
|
|
5109
|
0 |
0 |
$ris_user_function->{$p_seqno}{$tok_kw} ? :
|
|
|
0 |
0 |
$ris_block_list_function->{$p_seqno}{$tok_kw} ? :
|
|
|
0 |
0 |
$ris_block_function->{$p_seqno}{$tok_kw} ? :
|
|
|
0 |
0 |
$ris_constant->{$p_seqno}{$tok_kw} ? :
|
|
5114
|
0 |
0 |
if $_ != $seqno_brace
|
|
5144
|
786 |
5785 |
if ($last_nonblank_token eq '->') { }
|
|
|
812 |
4973 |
elsif ($next_nonblank_token eq '=' and $$rtokens[$i_next + 1] eq '>' and not defined $is_END_DATA{$tok_kw} && $input_line =~ /^\s*__(?:END|DATA)__\s*$/) { }
|
|
|
138 |
4835 |
elsif ($next_nonblank_token eq '}' and $last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L') { }
|
|
|
17 |
4818 |
elsif ($expecting == 1 and substr($tok, 0, 1) eq 'x' and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/) { }
|
|
|
3 |
4815 |
elsif ($tok_kw eq 'CORE::') { }
|
|
|
14 |
4801 |
elsif ($tok eq 'strict' and $last_nonblank_token eq 'use') { }
|
|
|
7 |
4794 |
elsif ($tok eq 'warnings' and $last_nonblank_token eq 'use') { }
|
|
|
0 |
4794 |
elsif ($tok eq 'AutoLoader' and $self->[27] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+AutoLoader\b/ || $input_line =~ /\bISA\s*=.*\bAutoLoader\b/) { }
|
|
|
0 |
4794 |
elsif ($tok eq 'SelfLoader' and $self->[28] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+SelfLoader\b/ || $input_line =~ /\bISA\s*=.*\bSelfLoader\b/) { }
|
|
|
16 |
4778 |
elsif ($tok eq 'constant' and $last_nonblank_token eq 'use') { }
|
|
|
0 |
4778 |
elsif ($is_lexical_sub_type) { }
|
|
|
232 |
4546 |
elsif ($is_q_qq_qw_qx_qr_s_y_tr_m{$tok}) { }
|
|
|
33 |
4513 |
elsif ($next_nonblank_token eq ':' and not $is_not_label 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()) { }
|
|
|
352 |
4161 |
elsif ($is_sub{$tok_kw}) { }
|
|
|
54 |
4107 |
elsif ($is_package{$tok_kw}) { }
|
|
|
1 |
4106 |
elsif ($tok_kw eq 'format' and new_statement_ok()) { }
|
|
|
8 |
4098 |
elsif (defined $is_END_DATA{$tok_kw}) { }
|
|
|
3060 |
1038 |
elsif ($is_keyword{$tok_kw}) { }
|
|
|
19 |
1019 |
elsif ($last_nonblank_type eq 'k' and $is_redo_last_next_goto{$last_nonblank_token}) { }
|
|
5168
|
3 |
809 |
if (do {
|
|
5191
|
3 |
809 |
if $expecting == 1 and substr($tok, 0, 1) eq "x"
|
|
5199
|
3 |
0 |
if ($self->split_pretoken(1))
|
|
5325
|
15 |
18 |
unless ($tok =~ /[A-Z]/)
|
|
5338
|
7 |
345 |
if ($tok_kw eq 'method' and $guess_if_method and not $self->method_ok_here($next_nonblank_token)) { }
|
|
5345
|
0 |
345 |
if $expecting == 1
|
|
5360
|
14 |
40 |
if ($tok_kw eq 'class') { }
|
|
5361
|
4 |
10 |
if ($expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->class_ok_here) { }
|
|
5370
|
0 |
40 |
if $expecting == 1
|
|
5391
|
8 |
0 |
if $expecting == -1
|
|
5421
|
2626 |
168 |
if ($is_wiUC{$type} and $statement_type ne "use" and $statement_type ne "_use")
|
|
5430
|
1015 |
1611 |
if ($type eq 'U' or $is_function_follower{$next_nonblank_token}) { }
|
|
|
443 |
1168 |
elsif ($type eq 'C' or $is_constant_follower{$next_nonblank_token}) { }
|
|
5435
|
592 |
423 |
if ($next_nonblank_token eq "(" and $i_next < $max_token_index)
|
|
5438
|
282 |
310 |
if (substr($tok_next_p1, 0, 1) eq " " and $i_next + 2 <= $max_token_index)
|
|
5446
|
957 |
58 |
unless ($empty_parens)
|
|
5469
|
180 |
263 |
if (not $is_hash_key and $last_nonblank_type ne 'k' || !$is_use_require_no{$last_nonblank_token} and $last_nonblank_token ne '->') { }
|
|
5529
|
1 |
1 |
if ($i_tok < 0)
|
|
5544
|
245 |
2925 |
unless (@{$routput_token_list;})
|
|
5584
|
1431 |
1739 |
if ($is_interpolated_quote{$quote_starting_tok} and $in_quote < $in_quote_start)
|
|
5589
|
1 |
1430 |
if (not $in_quote and defined $quote_here_target_2)
|
|
5592
|
1 |
0 |
if ($quote_items{$quote_starting_tok} == 2) { }
|
|
5622
|
31 |
1400 |
if ($in_quote_start == 2)
|
|
5632
|
2 |
0 |
if ($pos_shift >= $len_qs and rindex($qs, "}") > $pos_shift and rindex($qs, '$', $pos_shift) != -1 || rindex($qs, '@', $pos_shift) != -1)
|
|
5649
|
2 |
0 |
if ($rht)
|
|
5652
|
1 |
1 |
if ($in_quote) { }
|
|
5671
|
244 |
2926 |
if ($in_quote)
|
|
5681
|
126 |
2800 |
if (++$i > $max_token_index)
|
|
5684
|
162 |
2638 |
if ($allowed_quote_modifiers)
|
|
5687
|
31 |
131 |
if ($rtokens->[$i] =~ /^[A-Za-z_]/)
|
|
5704
|
0 |
31 |
if ($saw_modifier_e and $i > 1)
|
|
5706
|
0 |
0 |
if ($rht)
|
|
5711
|
31 |
0 |
if (defined pos $str) { }
|
|
5714
|
31 |
0 |
if (pos $str == length $str) { }
|
|
5715
|
0 |
31 |
if (++$i > $max_token_index)
|
|
5741
|
0 |
0 |
if (++$i > $max_token_index)
|
|
5873
|
15 |
8537 |
if (not $in_quote and substr($untrimmed_input_line, 0, 1) eq "=" and $untrimmed_input_line =~ /^=[A-Za-z_]/)
|
|
5882
|
15 |
0 |
if ($expecting == -1)
|
|
5892
|
58 |
8726 |
if ($in_quote and $quote_type eq 'Q') { }
|
|
5908
|
0 |
8726 |
unless (defined $input_line)
|
|
5916
|
3 |
8723 |
if ($self->[39] and length $input_line)
|
|
5926
|
1040 |
7744 |
unless (length $input_line)
|
|
5940
|
884 |
6860 |
if (not $in_quote and substr($input_line, 0, 1) eq "#")
|
|
5943
|
2 |
0 |
if (substr($input_line, 0, 4) eq '#<<V' || $rOpts_code_skipping_begin and $rOpts_code_skipping and ($input_line . ' ') =~ /$code_skipping_pattern_begin/)
|
|
5962
|
17 |
865 |
if (substr($input_line, 0, 4) eq '#<<<' || $rOpts_format_skipping_begin and $rOpts_format_skipping and ($input_line . ' ') =~ /$format_skipping_pattern_begin/ and !$self->[13] || $format_skipping_pattern_begin ne $format_skipping_pattern_end) { }
|
|
|
20 |
845 |
elsif (substr($input_line, 0, 4) eq '#>>>' || $rOpts_format_skipping_end and $rOpts_format_skipping and ($input_line . ' ') =~ /$format_skipping_pattern_end/) { }
|
|
5985
|
0 |
17 |
if (@{$rformat_skipping_list;} and $rformat_skipping_list->[-1][0] == $on_off)
|
|
6012
|
0 |
20 |
if (@{$rformat_skipping_list;} and $rformat_skipping_list->[-1][0] == $on_off)
|
|
6087
|
0 |
6860 |
if (@{$rtokens;} and $rtoken_type->[0] eq "b" and not $in_quote && $quote_type eq 'Q')
|
|
6136
|
3170 |
56414 |
if ($in_quote)
|
|
6138
|
370 |
2800 |
if $in_quote or $i > $max_token_index
|
|
6141
|
41499 |
17715 |
if ($type ne "b" and $type ne "CORE::")
|
|
6144
|
2065 |
39434 |
if ($type eq "n" and $tok ne 0)
|
|
6146
|
9 |
2056 |
if ($last_nonblank_token eq 'eq') { }
|
|
|
0 |
2056 |
elsif ($last_nonblank_token eq 'ne') { }
|
|
6158
|
34828 |
6671 |
if ($i_tok >= 0)
|
|
6173
|
1218 |
40281 |
if ($is_arrow_or_Z{$last_last_nonblank_type})
|
|
6180
|
1172 |
46 |
if ($last_last_nonblank_type eq '->') { }
|
|
|
46 |
0 |
elsif ($last_last_nonblank_type eq 'Z') { }
|
|
6181
|
793 |
379 |
if ($last_nonblank_type eq "w" or $last_nonblank_type eq "i")
|
|
6191
|
1 |
45 |
if ($last_nonblank_type eq "R")
|
|
6203
|
52543 |
6671 |
if ($i_tok >= 0)
|
|
6246
|
17860 |
41354 |
if $pre_type eq "b"
|
|
6251
|
363 |
40991 |
if ($pre_type eq "#")
|
|
6258
|
46 |
6 |
if ($last_nonblank_token eq "{" and $last_nonblank_block_type and $last_nonblank_type_sequence and not $self->[13] and $rOpts_non_indenting_braces)
|
|
6267
|
6 |
40 |
if ($len == 4 and $text eq "#<<<" or $len > 4 and $text eq "#<<< ")
|
|
6278
|
17 |
40974 |
if ($id_scan_state)
|
|
6280
|
10 |
7 |
if ($is_sub{$id_scan_state} or $is_package{$id_scan_state}) { }
|
|
6287
|
1 |
16 |
if ($id_scan_state)
|
|
6293
|
0 |
1 |
if $i > $max_token_index
|
|
6300
|
0 |
1 |
if $i_next > $max_token_index
|
|
6306
|
9 |
7 |
if $i > 0 or $type
|
|
6325
|
3047 |
3466 |
if ($can_start_digraph{$tok} and $i < $max_token_index and $is_digraph{$tok . $$rtokens[$i + 1]})
|
|
6337
|
111 |
2936 |
if ($test_tok eq '~~') { }
|
|
|
16 |
2920 |
elsif ($test_tok eq '//') { }
|
|
|
45 |
2875 |
elsif ($test_tok eq '**') { }
|
|
6340
|
1 |
110 |
if ($self->operator_expected($tok, "~", undef) == -1)
|
|
6344
|
1 |
0 |
if ($last_nonblank_type eq '}') { }
|
|
6346
|
0 |
1 |
if (not $blk or $blk ne ";")
|
|
6365
|
16 |
0 |
if ($last_nonblank_type ne "Z")
|
|
6375
|
4 |
12 |
if $expecting == -1
|
|
6383
|
43 |
2 |
if ($last_nonblank_type ne "Z")
|
|
6389
|
2994 |
2 |
if ($combine_ok and $test_tok ne "/=" and $test_tok ne "x=" and $test_tok ne "*=")
|
|
6411
|
87 |
2907 |
if ($is_trigraph{$test_tok}) { }
|
|
6420
|
1 |
2906 |
if ($test_tok eq "<<>")
|
|
6422
|
1 |
0 |
if ($is_tetragraph{$test_tok})
|
|
6437
|
11705 |
29276 |
unless (defined $expecting)
|
|
6461
|
6616 |
34365 |
if ($pre_type eq "w")
|
|
6463
|
9 |
6607 |
if $is_last
|
|
6474
|
2508 |
31857 |
if ($pre_type eq "d")
|
|
6483
|
29616 |
2241 |
if ($code)
|
|
6485
|
2676 |
26940 |
if $in_quote
|
|
6490
|
11678 |
17503 |
if ($expecting == -1)
|
|
6495
|
277 |
11401 |
if ($is_not_term)
|
|
6502
|
6671 |
189 |
if ($i_tok >= 0)
|
|
6510
|
6349 |
511 |
if ($type ne "b" and $type ne "#")
|
|
6525
|
0 |
6860 |
if ($level_in_tokenizer < 0)
|
|
6526
|
0 |
0 |
if ($input_line =~ /^\s*(sub|package)\s+(\w+)/)
|
|
6537
|
187 |
58 |
$matching_end_token{$quote_character} ? :
|
|
|
245 |
6615 |
$in_quote ? :
|
|
6575
|
48567 |
10892 |
if (not $routput_type_sequence->[$ii]) { }
|
|
6583
|
3153 |
45414 |
if ($is_semicolon_or_t{$type_i}) { }
|
|
|
0 |
45414 |
elsif (not $is_valid_token_type{$type_i}) { }
|
|
6585
|
187 |
2966 |
if ($is_END_DATA_format_sub{$tok_i})
|
|
6597
|
0 |
0 |
unless ($self->[7])
|
|
6642
|
5446 |
5446 |
if ($is_opening_or_ternary_type{$type_i}) { }
|
|
|
5446 |
0 |
elsif ($is_closing_or_ternary_type{$type_i}) { }
|
|
6644
|
193 |
5253 |
if ($type_i eq '?') { }
|
|
6646
|
8 |
185 |
if ($routput_indent_flag->[$ii] > 0)
|
|
6659
|
4813 |
440 |
if ($type_i eq "{" or $type_i eq "L")
|
|
6663
|
1115 |
3698 |
if ($routput_block_type->[$ii]) { }
|
|
6680
|
5253 |
193 |
if ($type_i ne ":")
|
|
6682
|
0 |
5253 |
if ($char ne $matching_start_token{$tok_i})
|
|
6687
|
572 |
625 |
if ($type_i eq "}" or $type_i eq "R" or $type_i eq ":" and $routput_indent_flag->[$ii] < 0)
|
|
6698
|
0 |
4821 |
if ($level_in_tokenizer < 0)
|
|
6699
|
0 |
0 |
unless ($self->[34])
|
|
6707
|
4821 |
0 |
if (length $nesting_block_string > 1)
|
|
6735
|
1776 |
9116 |
unless (@output_levels)
|
|
6755
|
6860 |
0 |
if (@output_levels)
|
|
6768
|
0 |
0 |
if $numc > 0
|
|
6814
|
737 |
6123 |
if ($output_tokens[0] eq "}")
|
|
6817
|
395 |
342 |
if ($is_zero_continuation_block_type{$blk} || substr($blk, 0, 4) eq 'sub ' and not $self->[13])
|
|
6838
|
15 |
380 |
if ($space_count and ord substr($untrimmed_input_line, 0, 1) == 9)
|
|
6841
|
15 |
0 |
if ($untrimmed_input_line =~ /^(\t+)?(\s+)?/)
|
|
6842
|
15 |
0 |
if ($1)
|
|
6843
|
1 |
14 |
if ($2)
|
|
6851
|
3 |
392 |
if $rOpts_indent_closing_brace
|
|
6865
|
79 |
316 |
if ($space_count and not defined $rhash->{'valid'})
|
|
6874
|
55 |
340 |
if ($rhistory_level_diff->[-1] != $level_diff) { }
|
|
6883
|
0 |
55 |
if ($guess == 0 and $adjust > 0)
|
|
6893
|
152 |
188 |
if ($rhistory_anchor_point->[-1]) { }
|
|
7036
|
78 |
11769 |
if (defined $op_expected)
|
|
7061
|
3063 |
8706 |
if ($last_nonblank_type eq "k")
|
|
7064
|
2943 |
120 |
if ($expecting_term_token{$last_nonblank_token})
|
|
7070
|
1 |
2 |
if ($tok eq "/" and $next_type eq "/" and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token})
|
|
7085
|
0 |
2942 |
if ($tok eq "?" and $last_nonblank_token eq "split")
|
|
7095
|
7 |
113 |
if ($expecting_operator_token{$last_nonblank_token})
|
|
7116
|
4140 |
4566 |
if ($last_nonblank_type eq "}")
|
|
7121
|
2794 |
1346 |
if ($last_nonblank_token eq ")" or $last_nonblank_token eq "]")
|
|
7131
|
2 |
1344 |
unless (defined $blk)
|
|
7136
|
367 |
977 |
unless ($blk)
|
|
7141
|
107 |
342 |
if ($is_zero_continuation_block_type{$blk} or $is_sort_map_grep{$blk} or $is_grep_alias{$blk} or substr($blk, -1, 1) eq ":" and $blk =~ /^\w+:$/ or substr($blk, 0, 3) eq "sub" and $blk =~ /^sub\s/ or substr($blk, 0, 7) eq "package" and $blk =~ /^package\s/)
|
|
7153
|
274 |
68 |
if ($is_block_operator{$blk} or $is_sub{$blk})
|
|
7175
|
2621 |
1945 |
if ($is_n_v{$last_nonblank_type})
|
|
7176
|
11 |
2610 |
if ($statement_type eq "use")
|
|
7187
|
158 |
1787 |
if ($last_nonblank_type eq "q")
|
|
7188
|
0 |
158 |
if ($last_nonblank_token eq "prototype")
|
|
7195
|
3 |
155 |
if ($statement_type =~ /^package\b/)
|
|
7206
|
1738 |
49 |
if ($last_nonblank_type eq "w")
|
|
7210
|
7 |
1731 |
if ($tok eq "?")
|
|
7214
|
1228 |
503 |
if ($rinfo)
|
|
7216
|
317 |
911 |
if ($rinfo)
|
|
7218
|
135 |
182 |
if ($function_count and $function_count > 0)
|
|
7227
|
45 |
4 |
if ($last_nonblank_type eq "Z")
|
|
7230
|
2 |
43 |
if ($last_nonblank_token =~ /^\w/)
|
|
7238
|
0 |
43 |
if ($tok eq "x" and $next_type =~ /^[\(\$\@\%]$/)
|
|
7245
|
4 |
39 |
if ($is_weird_parsing_rule_exception{$tok})
|
|
7259
|
0 |
39 |
if ($blank_after_Z and $next_type ne "b")
|
|
7267
|
9 |
30 |
if ($tok =~ m[^([x/\+\-\*\%\&\.]|\>\>)$])
|
|
7272
|
9 |
0 |
if ($statement_type ne "use")
|
|
7311
|
66 |
479 |
if ($last_nonblank_token eq '{') { }
|
|
|
115 |
364 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
7363
|
98 |
1346 |
if ($last_nonblank_token eq '{' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
51 |
1295 |
elsif ($last_nonblank_token eq ';') { }
|
|
|
10 |
1285 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
34 |
1251 |
elsif ($last_nonblank_type eq 'J') { }
|
|
|
547 |
704 |
elsif ($is_code_block_token{$last_nonblank_token} or $is_grep_alias{$last_nonblank_token}) { }
|
|
|
346 |
358 |
elsif ($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') { }
|
|
|
0 |
358 |
elsif ($statement_type =~ /^(sub|package)\b/) { }
|
|
|
0 |
358 |
elsif ($last_nonblank_type eq 'G') { }
|
|
|
24 |
334 |
elsif ($last_nonblank_type eq 'w') { }
|
|
|
87 |
247 |
elsif ($last_nonblank_token eq '(') { }
|
|
|
16 |
231 |
elsif ($last_nonblank_token =~ /\(\)$/) { }
|
|
7369
|
98 |
0 |
if ($rbrace_type->[$brace_depth]) { }
|
|
7395
|
10 |
0 |
if ($last_nonblank_block_type) { }
|
|
7431
|
0 |
547 |
if ($last_nonblank_type eq 'k' and $last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless') { }
|
|
7470
|
1 |
23 |
if $statement_type eq "use"
|
|
7484
|
1 |
86 |
if ($paren_type and $is_sort_map_grep{$paren_type}) { }
|
|
7529
|
5 |
177 |
if ($next_nonblank_token eq '}') { }
|
|
7557
|
152 |
25 |
if ($next_nonblank_token ne "#")
|
|
7566
|
169 |
8 |
if (defined $rpre_types and @{$rpre_types;})
|
|
7576
|
64 |
113 |
if $pre_types[0] eq "b"
|
|
7584
|
1 |
176 |
if ($pre_types[$j] =~ /^[\'\"]/) { }
|
|
|
8 |
168 |
elsif ($pre_types[$j] eq 'd') { }
|
|
|
74 |
94 |
elsif ($pre_types[$j] eq 'w') { }
|
|
|
0 |
94 |
elsif ($pre_types[$j] eq '-' and $pre_types[++$j] eq 'w') { }
|
|
7589
|
1 |
0 |
if ($pre_types[$k] eq $quote_mark)
|
|
7607
|
83 |
94 |
if ($j > $jbeg)
|
|
7609
|
76 |
7 |
if $pre_types[$j] eq "b"
|
|
7612
|
18 |
65 |
if ($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 ">")
|
|
7628
|
159 |
18 |
if ($code_block_type)
|
|
7636
|
20 |
139 |
if ($code_block_type =~ /^\w/ and $code_block_type ne "method")
|
|
7659
|
0 |
0 |
if (++$self->[40] <= 6)
|
|
7669
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_i >= 0)
|
|
7672
|
0 |
0 |
if ($$rpretoken_type[$i_tok - 1] eq 'b') { }
|
|
7678
|
0 |
0 |
if ($num > 40)
|
|
7819
|
5446 |
16338 |
if $bb == $aa
|
|
7825
|
193 |
5253 |
if ($aa == 3)
|
|
7827
|
17 |
176 |
if ($cd_aa > 1)
|
|
7828
|
16 |
1 |
if ($$rnested_ternary_flag[$cd_aa - 1] == 0)
|
|
7830
|
8 |
8 |
if ($pdepth == $total_depth - 1)
|
|
7856
|
39 |
8 |
if $cd_aa <= 0
|
|
7860
|
0 |
8 |
if $bb == $aa
|
|
7863
|
8 |
0 |
if $rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb]
|
|
7888
|
5446 |
0 |
if ($cd_aa > 0) { }
|
|
7892
|
193 |
5253 |
if ($aa == 3)
|
|
7901
|
1 |
0 |
if ($aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w" and $rbrace_structural_type->[$brace_depth] eq "L")
|
|
7911
|
5446 |
16338 |
if $bb == $aa
|
|
7913
|
0 |
16338 |
if ($rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb])
|
|
7922
|
0 |
0 |
if ($saw_brace_error <= 6 and $diff > 0 || $saw_brace_error <= 0)
|
|
7937
|
0 |
0 |
if ($diff == 1 or $diff == -1) { }
|
|
7943
|
0 |
0 |
$diff > 0 ? :
|
|
7952
|
0 |
0 |
if ($diff > 0)
|
|
7966
|
0 |
0 |
if ($bb eq 0)
|
|
7974
|
0 |
0 |
if ($saw_brace_error <= 6)
|
|
7982
|
0 |
0 |
if ($aa eq 0)
|
|
7985
|
0 |
0 |
if $closing_brace_names[$aa] ne "':'"
|
|
7999
|
0 |
2596 |
if ($cd_aa)
|
|
8005
|
0 |
0 |
if ($cd_aa == 1)
|
|
8015
|
0 |
0 |
if ($aa eq 0)
|
|
8042
|
6 |
196 |
if length $line <= 0
|
|
8043
|
20 |
176 |
if $line =~ /^#/
|
|
8068
|
29 |
161 |
if length $line <= 0
|
|
8069
|
24 |
137 |
if $line =~ /^#/
|
|
8076
|
43 |
351 |
if $tok =~ /
|
|
8118
|
0 |
12 |
if ($i >= $max_token_index)
|
|
8127
|
12 |
0 |
unless ($is_non_ternary_pretok{$next_nonblank_token} or $last_nonblank_type eq "k" and $last_nonblank_token eq "split")
|
|
8177
|
0 |
0 |
if ($in_quote)
|
|
8195
|
0 |
0 |
if ($tok eq ":")
|
|
8196
|
0 |
0 |
if ($tok eq "'")
|
|
8197
|
0 |
0 |
if ($tok eq "\"")
|
|
8199
|
0 |
0 |
if ($s_quote % 2 or $d_quote % 2 or $colons)
|
|
8204
|
0 |
0 |
if ($self->pattern_expected($i, $rtokens, $max_token_index) >= 0)
|
|
8255
|
0 |
0 |
if ($divide_possible < 0)
|
|
8261
|
0 |
0 |
if ($divide_possible == 4)
|
|
8268
|
0 |
0 |
if ($i >= $max_token_index)
|
|
8277
|
0 |
0 |
if (index($input_line, "/", $pos_beg + 1) == -1)
|
|
8329
|
0 |
0 |
if ($in_quote)
|
|
8339
|
0 |
0 |
if ($pattern_expected < 0)
|
|
8347
|
0 |
0 |
if ($is_known_constant{$last_nonblank_token})
|
|
8355
|
0 |
0 |
if ($is_known_function{$last_nonblank_token})
|
|
8362
|
0 |
0 |
if ($divide_possible > $pattern_expected)
|
|
8369
|
0 |
0 |
if ($is_pattern_by_spacing) { }
|
|
8408
|
0 |
0 |
if ($line eq $next_token)
|
|
8413
|
0 |
0 |
if $k >= $HERE_DOC_WINDOW
|
|
8416
|
0 |
0 |
unless ($here_doc_expected)
|
|
8418
|
0 |
0 |
if (not defined $line) { }
|
|
8424
|
0 |
0 |
if (not $ris_constant->{$current_package}{$next_token}) { }
|
|
8476
|
9 |
1853 |
if ($tok eq "::")
|
|
8485
|
1862 |
0 |
if ($input_line =~ /
|
|
8502
|
1857 |
5 |
if (defined $2)
|
|
8503
|
280 |
1582 |
if (defined $1 and length $1) { }
|
|
8508
|
275 |
5 |
if ($sub_name)
|
|
8509
|
117 |
158 |
if ($input_line =~ / \G\s*(?:->) /cgx)
|
|
8519
|
0 |
280 |
if (not $sub_name and substr($package, -1, 1) eq "'")
|
|
8524
|
9 |
271 |
if ($package =~ /^\:/)
|
|
8531
|
0 |
1582 |
if ($is_keyword{$tok} and $last_nonblank_type ne "->")
|
|
8537
|
1076 |
786 |
if ($type eq "w" and $last_nonblank_type ne "->")
|
|
8541
|
2 |
1074 |
if (substr($tok, 0, 1) eq 'v' and $tok =~ /^v\d[_\d]*$/) { }
|
|
|
1 |
1073 |
elsif ($last_nonblank_token eq 'sort' and $last_nonblank_type eq 'k') { }
|
|
|
12 |
1061 |
elsif ($ris_constant->{$package}{$sub_name}) { }
|
|
|
0 |
1061 |
elsif ($ris_block_function->{$package}{$sub_name}) { }
|
|
|
0 |
1061 |
elsif ($ris_block_list_function->{$package}{$sub_name}) { }
|
|
|
6 |
1055 |
elsif ($ris_user_function->{$package}{$sub_name}) { }
|
|
|
4 |
1051 |
elsif (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]}) { }
|
|
8545
|
2 |
0 |
if ($input_line =~ /\G(\.\d[_\d]*)+/cg)
|
|
8622
|
4 |
0 |
if (pos $input_line == length $input_line or $input_line =~ /\G[;\s]/cg) { }
|
|
8638
|
1 |
3 |
if ($sub_name =~ /[a-z]/)
|
|
8642
|
1 |
0 |
if ($input_line =~ /\G\s*\(/cg)
|
|
8668
|
0 |
1862 |
if ($error)
|
|
8728
|
10 |
395 |
if ($id_scan_state) { }
|
|
8745
|
2 |
403 |
if ($i_beg > $max_token_index) { }
|
|
8751
|
0 |
403 |
if ($next_nonblank_token eq "#")
|
|
8752
|
0 |
0 |
if ($tok ne "\$")
|
|
8757
|
383 |
20 |
if ($next_nonblank_token =~ /^\s/)
|
|
8761
|
4 |
379 |
if ($next_nonblank_token =~ /(^#|^\s*$)/)
|
|
8768
|
2 |
397 |
if (not $blank_line and $next_nonblank_token eq "\$" and $id_scan_state eq "method")
|
|
8780
|
399 |
6 |
unless ($blank_line)
|
|
8782
|
349 |
50 |
if ($is_sub{$id_scan_state}) { }
|
|
|
50 |
0 |
elsif ($is_package{$id_scan_state}) { }
|
|
8821
|
0 |
405 |
if ($id_scan_state and not defined $type && $type)
|
|
8846
|
0 |
173 |
unless defined $package
|
|
8847
|
0 |
173 |
unless defined $subname
|
|
8848
|
34 |
139 |
if (defined $proto) { }
|
|
8851
|
5 |
29 |
if ($proto) { }
|
|
8856
|
1 |
4 |
if ($proto =~ /\&/)
|
|
8860
|
0 |
1 |
if ($proto =~ /\&$/) { }
|
|
8918
|
50 |
0 |
if ($input_line =~ /\G\s*((?:\w*(?:'|::))*\w*)/cg) { }
|
|
8920
|
50 |
0 |
defined $1 && $1 ? :
|
|
8922
|
0 |
50 |
if ($package =~ /^\:/)
|
|
8935
|
0 |
50 |
if ($error)
|
|
8955
|
50 |
0 |
if ($next_nonblank_token =~ /^([v\.\d;\{\}\#\:])|v\d|\d+$/) { }
|
|
9041
|
0 |
551 |
if ($tok_begin eq ":")
|
|
9070
|
59 |
550 |
if ($tok eq '$') { }
|
|
|
310 |
240 |
elsif ($tok =~ /^\w/) { }
|
|
|
16 |
224 |
elsif ($tok eq '::') { }
|
|
|
0 |
224 |
elsif ($tok =~ /^[\@\%\&\*]$/ and $identifier =~ /\-\>$/) { }
|
|
|
0 |
224 |
elsif ($tok eq q['] and $allow_tick) { }
|
|
|
100 |
124 |
elsif ($tok eq '#') { }
|
|
|
47 |
77 |
elsif ($tok eq '{') { }
|
|
|
20 |
57 |
elsif ($tok =~ /^\s*$/) { }
|
|
|
11 |
46 |
elsif ($tok eq '^') { }
|
|
9075
|
0 |
59 |
if ($i == $max_token_index)
|
|
9085
|
51 |
259 |
$tok =~ /^\d/ ? :
|
|
9114
|
96 |
4 |
if (not $last_tok_is_blank || $in_prototype_or_signature and $identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/ and not $is_punct_var) { }
|
|
9141
|
0 |
4 |
if ($identifier eq '->') { }
|
|
|
0 |
4 |
elsif ($is_punct_var) { }
|
|
|
4 |
0 |
elsif ($id_scan_state eq $scan_state_SIGIL) { }
|
|
9153
|
1 |
46 |
if ($identifier eq '$' || $identifier eq '@' || $identifier eq '$#' and $i + 2 <= $max_token_index and $$rtokens[$i + 2] eq '}' and not $$rtokens[$i + 1] =~ /[\s\w]/) { }
|
|
9177
|
31 |
15 |
if ($identifier eq "\$" or $i == 0)
|
|
9190
|
20 |
0 |
if ($identifier =~ /^[\$\%\*\&\@]/) { }
|
|
|
0 |
0 |
elsif ($identifier eq '->') { }
|
|
9192
|
8 |
12 |
if (length $identifier > 1) { }
|
|
9200
|
1 |
11 |
if ($i == $max_token_index) { }
|
|
|
1 |
10 |
elsif (not $identifier =~ /^[\@\$]$/) { }
|
|
9227
|
0 |
0 |
if ($i == $max_token_index)
|
|
9245
|
11 |
0 |
if ($identifier =~ /^[\$\*\@\%]$/) { }
|
|
9252
|
9 |
2 |
if ($is_special_variable_char{$chr}) { }
|
|
9261
|
3 |
6 |
length $next1 > 1 ? :
|
|
9278
|
3 |
43 |
if ($in_prototype_or_signature and $tok =~ /^[\),=#]/) { }
|
|
|
35 |
8 |
elsif ($identifier =~ /^[\$\*\@\%]$/) { }
|
|
|
6 |
2 |
elsif ($tok eq '*' and $identifier =~ /\-\>([\@\%\$\*\&]|\$\#)$/) { }
|
|
|
2 |
0 |
elsif ($identifier eq '$#') { }
|
|
|
0 |
0 |
elsif ($identifier eq '$$') { }
|
|
|
0 |
0 |
elsif ($identifier eq '->') { }
|
|
9288
|
1 |
2 |
if ($i == $i_begin) { }
|
|
9299
|
0 |
2 |
if ($id_scan_state eq $scan_state_SIGIL and $tok eq "#")
|
|
9321
|
0 |
2 |
if ($tok eq '{') { }
|
|
|
0 |
2 |
elsif ($tok =~ /^[\:\-\+]$/) { }
|
|
9346
|
0 |
0 |
if ($tok eq '{') { }
|
|
9354
|
0 |
0 |
if (length $identifier == 1)
|
|
9370
|
106 |
13 |
if ($tok =~ /^\w/) { }
|
|
|
0 |
13 |
elsif ($tok eq q['] and $allow_tick) { }
|
|
|
0 |
13 |
elsif ($tok_is_blank and $identifier =~ /^sub /) { }
|
|
|
0 |
13 |
elsif ($tok eq '(' and $identifier =~ /^sub /) { }
|
|
9403
|
103 |
367 |
if ($tok eq '::') { }
|
|
|
20 |
347 |
elsif ($tok =~ /^\w/) { }
|
|
|
12 |
335 |
elsif ($tok eq q['] and $allow_tick) { }
|
|
|
0 |
335 |
elsif ($tok_is_blank and $identifier =~ /^sub /) { }
|
|
|
0 |
335 |
elsif ($tok eq '(' and $identifier =~ /^sub /) { }
|
|
9414
|
0 |
12 |
if ($is_keyword{$identifier}) { }
|
|
9443
|
0 |
0 |
if ($tok eq '(') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^\s*$/) { }
|
|
9466
|
0 |
0 |
if ($tok eq ')') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^[\s\$\%\\\*\@\&\;]/) { }
|
|
9486
|
87 |
17 |
if ($tok =~ /^[\$\w]/) { }
|
|
|
0 |
17 |
elsif ($tok eq q['] and $allow_tick) { }
|
|
|
2 |
15 |
elsif ($tok =~ /^\s*$/) { }
|
|
|
0 |
15 |
elsif ($tok eq '::') { }
|
|
|
15 |
0 |
elsif ($tok eq '{') { }
|
|
|
0 |
0 |
elsif ($tok eq '^') { }
|
|
9500
|
2 |
0 |
if (length $identifier == 1 and $i == $max_token_index)
|
|
9510
|
15 |
0 |
if ($identifier eq "&" or $i == 0)
|
|
9517
|
0 |
0 |
if ($identifier eq '&') { }
|
|
9527
|
0 |
0 |
if ($is_special_variable_char{$chr}) { }
|
|
9535
|
0 |
0 |
length $next1 > 1 ? :
|
|
9568
|
0 |
0 |
if ($identifier eq '&' and $expecting and $tok ne '#') { }
|
|
9635
|
544 |
7 |
if (not $id_scan_state) { }
|
|
9639
|
0 |
544 |
if ($tok eq ">")
|
|
9645
|
8 |
536 |
if ($last_nonblank_token eq '->') { }
|
|
|
355 |
181 |
elsif ($tok eq '$' or $tok eq '*') { }
|
|
|
79 |
102 |
elsif ($tok eq '%' or $tok eq '@') { }
|
|
|
102 |
0 |
elsif ($tok eq '&') { }
|
|
|
0 |
0 |
elsif ($tok eq 'sub' or $tok eq 'package') { }
|
|
|
0 |
0 |
elsif ($tok eq '::') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^\w/) { }
|
|
|
0 |
0 |
elsif ($tok eq '->') { }
|
|
9682
|
0 |
0 |
unless ($self->[7])
|
|
9716
|
3 |
1302 |
unless ($code)
|
|
9718
|
3 |
0 |
if ($id_scan_state eq $scan_state_SPLIT) { }
|
|
9740
|
11 |
1291 |
if ($tok_is_blank) { }
|
|
9746
|
119 |
1183 |
if ($tok eq ":" and $$rtokens[$i + 1] eq ":")
|
|
9755
|
428 |
874 |
if $i <= $i_start_loop
|
|
9764
|
24 |
527 |
if ($id_scan_state)
|
|
9766
|
17 |
7 |
unless ($is_returnable_scan_state{$id_scan_state})
|
|
9768
|
3 |
14 |
if ($id_scan_state eq $scan_state_SPLIT)
|
|
9772
|
0 |
17 |
if ($id_scan_state eq $scan_state_RPAREN)
|
|
9782
|
0 |
24 |
if ($identifier eq "\$#")
|
|
9786
|
0 |
551 |
if ($i < 0)
|
|
9789
|
523 |
28 |
unless ($type)
|
|
9791
|
517 |
6 |
if ($saw_type) { }
|
|
|
5 |
1 |
elsif ($saw_alpha) { }
|
|
9793
|
404 |
113 |
if ($saw_alpha) { }
|
|
|
0 |
113 |
elsif ($identifier eq '->') { }
|
|
|
53 |
60 |
elsif (length $identifier > 1 and not $identifier =~ /\$$/ && $tok eq '{' and $identifier ne 'sub ' and $identifier ne 'package ') { }
|
|
9798
|
0 |
404 |
if ($identifier =~ /^->/ and $last_nonblank_type eq 'w' and substr($identifier, 2, 1) =~ /^\w/) { }
|
|
9832
|
5 |
0 |
if ($id_scan_state_begin and $identifier =~ /^([\$\%\@\*\&]|->)/)
|
|
9844
|
504 |
47 |
if ($identifier) { }
|
|
9846
|
1 |
503 |
if ($message)
|
|
9911
|
2 |
349 |
$rcall_hash->{'is_lexical_method'} ? :
|
|
9957
|
5 |
344 |
$tok eq '(' ? :
|
|
|
2 |
349 |
$tok eq 'prototype' ? :
|
|
9973
|
158 |
193 |
if ($call_type == 1 and $input_line =~ /\G\s*
|
|
9985
|
0 |
0 |
if ($is_lexical_sub and $1)
|
|
9992
|
0 |
158 |
if ($is_lexical_sub) { }
|
|
9999
|
0 |
0 |
unless defined $seqno
|
|
10015
|
0 |
0 |
if ($is_q_qq_qw_qx_qr_s_y_tr_m{$subname})
|
|
10026
|
6 |
152 |
defined $1 && $1 ? :
|
|
10028
|
0 |
158 |
if ($package =~ /^\:/)
|
|
10061
|
45 |
306 |
if ($input_line =~ /\G(\s*\([^\)\(\}\{\,#A-Za-z=]*\))? # PROTO
|
|
10074
|
24 |
21 |
if ($proto and $match || $call_type == 3) { }
|
|
|
2 |
19 |
elsif ($call_type == 2) { }
|
|
10093
|
2 |
43 |
if ($tok eq "sub" and not $proto)
|
|
10096
|
173 |
178 |
if ($match) { }
|
|
10101
|
15 |
158 |
if ($attrs)
|
|
10108
|
1 |
172 |
if ($pos == $pos_beg and $tok eq ':') { }
|
|
10121
|
0 |
172 |
if ($error)
|
|
10129
|
2 |
0 |
if ($type eq "k" and $attrs and $i > $i_entry and substr($rtokens->[$i], 0, 1) =~ /\s/)
|
|
10143
|
7 |
166 |
if ($next_nonblank_token =~ /^(\s*|#)$/)
|
|
10147
|
7 |
0 |
if (defined $rpre_tokens and @{$rpre_tokens;}) { }
|
|
10156
|
135 |
38 |
if ($next_nonblank_token eq '{') { }
|
|
|
1 |
37 |
elsif ($next_nonblank_token eq ';') { }
|
|
|
0 |
37 |
elsif ($next_nonblank_token eq '}') { }
|
|
|
16 |
21 |
elsif ($next_nonblank_token eq ':') { }
|
|
|
21 |
0 |
elsif ($next_nonblank_token eq '(') { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token) { }
|
|
10157
|
125 |
10 |
if ($subname)
|
|
10162
|
0 |
125 |
if ($rsaw_function_definition->{$subname}{$package} and not $subname =~ /^[A-Z]+$/)
|
|
10167
|
0 |
0 |
if ($package =~ /^\d/) { }
|
|
10195
|
14 |
2 |
if ($call_type == 1)
|
|
10196
|
13 |
1 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
10210
|
4 |
17 |
unless ($saw_opening_paren)
|
|
10213
|
21 |
0 |
if ($call_type == 1)
|
|
10214
|
21 |
0 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
10222
|
0 |
0 |
if ($rcall_hash->{'tok'} eq 'method' and $call_type == 1) { }
|
|
10234
|
0 |
0 |
unless defined $subname
|
|
10272
|
9 |
449 |
if ($i == $max_token_index - 1 and $rtokens->[$max_token_index] =~ /^\s+$/)
|
|
10278
|
141 |
317 |
if ($i >= $max_token_index)
|
|
10279
|
139 |
2 |
unless (peeked_ahead())
|
|
10288
|
0 |
458 |
unless defined $next_nonblank_token and length $next_nonblank_token
|
|
10293
|
0 |
0 |
if ($ord <= 33 || $ord >= 126 and $ord == 32 || $ord == 9 || $next_nonblank_token =~ /^\s+$/)
|
|
10307
|
0 |
301 |
unless defined $next_nonblank_token
|
|
10326
|
0 |
104 |
if ($next_nonblank_token eq "#")
|
|
10333
|
104 |
0 |
if ($next_nonblank_token and $next_nonblank_token ne " " and defined $$rtokens[$i_next + 1])
|
|
10338
|
15 |
89 |
if ($is_digraph{$test2})
|
|
10343
|
15 |
0 |
if (defined $$rtokens[$i_next + 1])
|
|
10345
|
0 |
15 |
if ($is_trigraph{$test3})
|
|
10372
|
0 |
0 |
if ($next_token eq "=")
|
|
10376
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
10382
|
0 |
0 |
if ($next_nonblank_token =~ / [ \( \$ \w \. \@ ] /x) { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token =~ /^\s*$/) { }
|
|
10387
|
0 |
0 |
if ($next_nonblank_token =~ /^\d/)
|
|
10391
|
0 |
0 |
if ($next_next_nonblank_token eq ')') { }
|
|
|
0 |
0 |
elsif ($next_next_nonblank_token eq ';' or $next_next_nonblank_token eq ']' or $next_next_nonblank_token eq '}') { }
|
|
10447
|
0 |
0 |
if ($next_token =~ /^$possible_modifiers/)
|
|
10454
|
0 |
0 |
if ($pattern_test{$next_nonblank_token}) { }
|
|
10460
|
0 |
0 |
if ($next_nonblank_token =~ /^\s*$/ or $next_nonblank_token eq '#') { }
|
|
10477
|
571 |
8 |
if ($i < $max_token_index) { }
|
|
10480
|
164 |
407 |
if ($next_nonblank_token =~ /^\s*$/)
|
|
10482
|
162 |
2 |
if ($i < $max_token_index)
|
|
10508
|
0 |
8 |
if ($last_nonblank_token eq ">")
|
|
10517
|
6 |
2 |
if ($expecting_TERM) { }
|
|
|
2 |
0 |
elsif ($expecting == 0) { }
|
|
10558
|
8 |
0 |
if ($input_line =~ /($filter)/g)
|
|
10560
|
8 |
0 |
if ($1 eq '>') { }
|
|
10576
|
1 |
7 |
if ($last_nonblank_type eq "Z")
|
|
10579
|
0 |
0 |
unless (substr($last_nonblank_token, 0, 1) =~ /[A-Za-z_]/ or substr($str, 1, 1) =~ /[A-Za-z_]/)
|
|
10588
|
2 |
6 |
if ($expecting eq 0)
|
|
10590
|
1 |
1 |
if ($check eq "-")
|
|
10606
|
0 |
7 |
if ($error)
|
|
10624
|
0 |
7 |
if ($str =~ /^<\s*!/) { }
|
|
|
0 |
7 |
elsif ($str =~ m[^<\s*/\w+\s*>$]) { }
|
|
|
0 |
7 |
elsif ($str =~ /^<\?xml\s.*\?>$/i and $is_first_string) { }
|
|
10626
|
0 |
0 |
if ($is_first_string)
|
|
10648
|
0 |
7 |
if ($is_html_tag)
|
|
10654
|
1 |
6 |
if $str =~ /<\s+/
|
|
10655
|
1 |
6 |
if $str =~ /\s+>/
|
|
10659
|
6 |
1 |
if ($expecting_TERM) { }
|
|
|
0 |
1 |
elsif ($is_html_tag) { }
|
|
|
1 |
0 |
elsif ($i <= $i_beg + 3 + $blank_count) { }
|
|
|
0 |
0 |
elsif ($str =~ /^<\s*\$?(\w|::|\s)+\s*>$/) { }
|
|
10689
|
0 |
0 |
if ($br or $sb or $pr) { }
|
|
10710
|
0 |
0 |
if ($expecting_TERM)
|
|
10744
|
0 |
683 |
unless ($first_char =~ /[\d\.\+\-Ee]/)
|
|
10758
|
0 |
683 |
if ($input_line =~ /\G((\d[_\d]*)?\.[\d_]+(\.[\d_]+)+)/g)
|
|
10766
|
683 |
0 |
unless (defined $number)
|
|
10773
|
72 |
611 |
if ($input_line =~ /
|
|
10816
|
611 |
72 |
unless (defined $number)
|
|
10819
|
611 |
0 |
if ($input_line =~ /\G([+-]?[\d_]*(\.[\d_]*)?([Ee][+-]?(\d+))?)/g)
|
|
10823
|
38 |
573 |
if (substr($input_line, $pos - 1, 1) eq "." and substr($input_line, $pos, 1) eq ".")
|
|
10836
|
304 |
379 |
if (not $number =~ /\d/ or $number =~ /^(.*)[eE]/ and not $1 =~ /\d/)
|
|
10853
|
0 |
379 |
if ($error)
|
|
10867
|
2426 |
2205 |
if ($pos <= $rtoken_map->[$i])
|
|
10872
|
0 |
2426 |
if ($pos < $rtoken_map->[$i])
|
|
10915
|
0 |
9 |
if ($next_token eq "\\")
|
|
10923
|
6 |
3 |
if ($next_nonblank_token =~ /[\'\"\`]/) { }
|
|
|
0 |
3 |
elsif ($next_token =~ /^\s*$/ and $expecting == -1) { }
|
|
|
3 |
0 |
elsif ($next_token =~ /^\w/) { }
|
|
10951
|
0 |
6 |
if ($in_quote) { }
|
|
10953
|
0 |
0 |
if ($expecting == -1)
|
|
10970
|
0 |
0 |
if $tokj eq "\\" and $j < $i - 1 and $$rtokens[$j + 1] eq $here_quote_character
|
|
10987
|
0 |
3 |
if ($expecting == 0) { }
|
|
10994
|
3 |
0 |
if ($here_doc_expected)
|
|
11003
|
0 |
0 |
if ($expecting == -1) { }
|
|
11013
|
0 |
9 |
if ($found_target and $backslash)
|
|
11050
|
31 |
3139 |
if ($in_quote == 2)
|
|
11073
|
31 |
0 |
if ($in_quote == 1) { }
|
|
11074
|
1 |
30 |
if ($quote_character =~ /[\{\[\<\(]/)
|
|
11082
|
3170 |
0 |
if ($in_quote == 1)
|
|
11105
|
244 |
2926 |
if ($in_quote == 1)
|
|
11159
|
4 |
17 |
if ($token eq "\\")
|
|
11160
|
0 |
4 |
unless ($code_depth)
|
|
11165
|
4 |
13 |
unless ($code_depth)
|
|
11166
|
4 |
0 |
if ($token eq "\$" or $token eq "\@")
|
|
11168
|
2 |
2 |
if $ii < $max_ii and $$rtoken_type[$ii + 1] eq "b"
|
|
11180
|
0 |
4 |
if $ii < $max_ii and $$rtoken_type[$ii + 1] eq "b"
|
|
11183
|
4 |
0 |
if ($ii < $max_ii and $$rtokens[$ii + 1] eq "{")
|
|
11192
|
0 |
13 |
if ($token eq "{")
|
|
11196
|
4 |
9 |
if ($token eq "}")
|
|
11202
|
0 |
4 |
if ($token ne "<" or $ii >= $max_ii - 1 or $$rtokens[$ii + 1] ne "<")
|
|
11215
|
0 |
4 |
if ($$rtoken_type[$ii + 1] eq "~" and $ii < $max_ii - 2)
|
|
11221
|
2 |
2 |
if ($$rtoken_type[$ii + 1] eq "b" and $ii < $max_ii - 2)
|
|
11229
|
2 |
2 |
if ($next_type eq 'w') { }
|
|
|
2 |
0 |
elsif ($next_type eq q['] or $next_type eq '"' or $next_type eq '`') { }
|
|
11230
|
0 |
2 |
if ($saw_blank) { }
|
|
11235
|
2 |
0 |
if ($rmap->[$ii] >= $len_starting_lines)
|
|
11253
|
0 |
2 |
if $quote_char ne "'" and $rtokens->[$ii] eq "\\"
|
|
11256
|
2 |
0 |
if ($rmap->[$ii] >= $len_starting_lines)
|
|
11321
|
244 |
2963 |
if ($is_punct_char{$beginning_tok} or length $beginning_tok and not $beginning_tok =~ /^\s+$/) { }
|
|
11329
|
187 |
57 |
$matching_end_token{$beginning_tok} ? :
|
|
11335
|
295 |
2668 |
$i < 0 ? :
|
|
11340
|
2963 |
2 |
if ($rtoken_type->[$i] ne 'b') { }
|
|
11342
|
0 |
2963 |
if ($tok eq '#' and $allow_quote_comments) { }
|
|
11347
|
1 |
2962 |
if (length $tok > 1) { }
|
|
11348
|
1 |
0 |
if ($quote_pos <= 0)
|
|
11357
|
135 |
2828 |
$matching_end_token{$beginning_tok} ? :
|
|
11380
|
1 |
3206 |
if (not $is_punct_char{$beginning_tok} and $beginning_tok =~ /\w/) { }
|
|
11384
|
1 |
0 |
if ($in_quote == 1)
|
|
11392
|
3 |
1 |
if ($quote_pos == 0 or $i < 0)
|
|
11395
|
1 |
2 |
if ($tok eq "\\")
|
|
11398
|
1 |
0 |
unless $$rtokens[$i + 1] eq $end_tok
|
|
11401
|
0 |
1 |
if $i >= $max_token_index
|
|
11409
|
1 |
3 |
if ($quote_pos > 0) { }
|
|
11421
|
1 |
0 |
if ($quote_depth == 0)
|
|
11427
|
3 |
0 |
if ($old_pos <= length $tok)
|
|
11442
|
2963 |
9405 |
if ($tok eq $end_tok) { }
|
|
|
1 |
9404 |
elsif ($tok eq $beginning_tok) { }
|
|
|
451 |
8953 |
elsif ($tok eq '\\') { }
|
|
11445
|
2962 |
1 |
if ($quote_depth == 0)
|
|
11457
|
431 |
20 |
if $tok ne $end_tok and $tok ne $beginning_tok
|
|
11466
|
10 |
3197 |
if ($i > $max_token_index)
|
|
11537
|
0 |
0 |
$pos < 60 ? :
|
|
11539
|
0 |
0 |
$excess > 0 ? :
|
|
11541
|
0 |
0 |
if (defined $numc) { }
|
|
11542
|
0 |
0 |
if ($offset == 0) { }
|
|
11551
|
0 |
0 |
if ($offset == 0) { }
|
|
11588
|
0 |
0 |
if ($pos < 0 or $pos > length $underline)
|
|
11592
|
0 |
0 |
if ($excess > 0)
|
|
11629
|
6862 |
313 |
unless ($max_tokens_wanted)
|
|
11633
|
89052 |
7017 |
if ($str =~ /
|
|
11645
|
3366 |
19144 |
defined $4 ? :
|
|
|
44747 |
22510 |
defined $3 ? :
|
|
|
21795 |
67257 |
defined $2 ? :
|