| line |
true |
false |
branch |
|
295
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
364
|
2624 |
4 |
unless ($param)
|
|
366
|
0 |
2628 |
unless ($param =~ /^#/)
|
|
372
|
0 |
2628 |
if (bad_pattern($pattern))
|
|
396
|
3 |
654 |
if ($rOpts->{'sub-alias-list'})
|
|
414
|
2 |
655 |
if ($is_sub{'method'})
|
|
423
|
0 |
657 |
if (defined $str and length $str)
|
|
426
|
0 |
0 |
if (not length $str) { }
|
|
|
0 |
0 |
elsif ($str =~ /\bnoclass\b/) { }
|
|
|
0 |
0 |
elsif ($str =~ /\bclass\b/) { }
|
|
466
|
657 |
0 |
if ($use_feature_class)
|
|
487
|
657 |
0 |
if ($rOpts->{'grep-alias-list'})
|
|
519
|
12 |
645 |
unless ($rOpts_indent_columns)
|
|
531
|
0 |
655 |
$rOpts->{'tabs'} ? :
|
|
|
2 |
655 |
$rOpts->{'entab-leading-whitespace'} ? :
|
|
532
|
0 |
657 |
unless ($tabsize)
|
|
550
|
0 |
659 |
if (@arglist % 2)
|
|
568
|
0 |
659 |
unless (defined $source_object)
|
|
573
|
0 |
659 |
unless (ref $source_object)
|
|
681
|
0 |
659 |
if (_increment_count() > 1)
|
|
720
|
0 |
659 |
if (not $rsource) { }
|
|
|
0 |
659 |
elsif ($rsource eq 'ARRAY') { }
|
|
|
659 |
0 |
elsif ($rsource eq 'SCALAR') { }
|
|
759
|
1 |
658 |
if (@{$rinput_lines;} and not $source_string =~ /\n$/)
|
|
770
|
0 |
659 |
if (@trimmed_lines != @{$rinput_lines;})
|
|
797
|
1383 |
12 |
if ($line_index < @{$rinput_lines;})
|
|
812
|
0 |
0 |
if ($logger_object)
|
|
833
|
35 |
0 |
if ($logger_object)
|
|
845
|
2234 |
6 |
if ($logger_object)
|
|
856
|
0 |
0 |
if ($logger_object)
|
|
867
|
0 |
0 |
if ($logger_object)
|
|
878
|
0 |
0 |
if ($logger_object)
|
|
892
|
0 |
0 |
if ($logger_object)
|
|
907
|
0 |
0 |
if ($logger_object)
|
|
920
|
0 |
0 |
if ($diagnostics_object)
|
|
949
|
657 |
2 |
if ($logger_object)
|
|
956
|
0 |
659 |
unless defined $maxle
|
|
957
|
0 |
659 |
unless defined $maxue
|
|
960
|
0 |
659 |
if ($level != $self->[19])
|
|
966
|
0 |
0 |
if ($level_diff < 0)
|
|
971
|
0 |
0 |
if ($maxle >= 0 and $level_diff > $maxle)
|
|
981
|
0 |
659 |
if ($self->[52])
|
|
989
|
0 |
659 |
if ($self->[46] > 2)
|
|
993
|
0 |
659 |
if ($rOpts_look_for_hash_bang and not $self->[31])
|
|
1000
|
0 |
659 |
if ($self->[6])
|
|
1004
|
0 |
659 |
if ($self->[12])
|
|
1009
|
0 |
659 |
if ($self->[11])
|
|
1014
|
0 |
0 |
if ($self->[33] or $self->[32]) { }
|
|
1028
|
0 |
659 |
if ($self->[1])
|
|
1033
|
0 |
0 |
if ($here_doc_target) { }
|
|
1046
|
0 |
0 |
if ($nearly_matched_here_target_at)
|
|
1054
|
0 |
659 |
if ($self->[16])
|
|
1058
|
0 |
0 |
$self->[15] ? :
|
|
1067
|
0 |
659 |
if ($self->[26])
|
|
1078
|
0 |
659 |
if ($maxue > 0 and $ue_count > $maxue)
|
|
1085
|
642 |
17 |
unless ($self->[23])
|
|
1089
|
0 |
659 |
if ($self->[22])
|
|
1094
|
645 |
14 |
unless ($self->[24])
|
|
1100
|
12 |
647 |
if ($self->[44])
|
|
1112
|
3 |
656 |
if (@{$rformat_skipping_list;} and $rformat_skipping_list->[0][0] == -1)
|
|
1130
|
0 |
0 |
if $self->[7]
|
|
1133
|
0 |
0 |
if $rOpts_whitespace_cycle
|
|
1136
|
0 |
0 |
if $rOpts_non_indenting_brace_prefix
|
|
1139
|
0 |
0 |
if $rOpts_starting_indentation_level
|
|
1143
|
0 |
0 |
unless $rhash->{'valid'}
|
|
1158
|
0 |
0 |
if ($rhistory_anchor_point->[$i] == 2)
|
|
1163
|
0 |
0 |
if $num_his <= 1
|
|
1166
|
0 |
0 |
unless ($rhistory_anchor_point->[-1])
|
|
1171
|
0 |
0 |
if ($num_his > 1)
|
|
1172
|
0 |
0 |
if ($$rhistory_level_diff[$num_his - 1] == $$rhistory_level_diff[$num_his - 2])
|
|
1180
|
0 |
0 |
if $num_his <= 1
|
|
1183
|
0 |
0 |
if $rhistory_level_diff->[0]
|
|
1190
|
0 |
0 |
if ($lev < $min_lev)
|
|
1191
|
0 |
0 |
if ($min_lev < 0 and $lev >= 0)
|
|
1204
|
0 |
0 |
if (@pre_indexes > $nlines_max)
|
|
1205
|
0 |
0 |
if ($nlines_max >= 5) { }
|
|
1227
|
0 |
0 |
if (@post_indexes)
|
|
1242
|
0 |
0 |
if ($level_diff_1 < 0) { }
|
|
|
0 |
0 |
elsif ($level_diff_1 > 0) { }
|
|
1268
|
0 |
2 |
if ($] < "5.006")
|
|
1306
|
9155 |
659 |
if ($line_index < @{$rinput_lines;}) { }
|
|
1314
|
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})
|
|
1331
|
659 |
9155 |
unless defined $input_line
|
|
1338
|
9154 |
1 |
if (chomp $input_line)
|
|
1344
|
0 |
9155 |
if ($other_line_endings{substr $input_line, -1})
|
|
1345
|
0 |
0 |
if ($input_line =~ s/([\r\035\032])+$//)
|
|
1408
|
96 |
9059 |
if ($self->[1]) { }
|
|
|
3 |
9056 |
elsif ($self->[6]) { }
|
|
|
51 |
9005 |
elsif ($self->[11]) { }
|
|
|
8 |
8997 |
elsif ($self->[12]) { }
|
|
|
0 |
8997 |
elsif ($self->[7]) { }
|
|
|
1 |
8996 |
elsif ($self->[4]) { }
|
|
|
56 |
8940 |
elsif ($self->[5]) { }
|
|
1421
|
18 |
78 |
if ($ix > 0 and $here_quote_character =~ /^\s/)
|
|
1423
|
0 |
18 |
unless ($leading_whitespace =~ /^\s*$/)
|
|
1428
|
37 |
59 |
if ($candidate_target eq $leading_whitespace . $here_doc_target) { }
|
|
1434
|
10 |
27 |
if (@{$rhere_target_list;}) { }
|
|
1456
|
0 |
59 |
if ($candidate_target eq $here_doc_target)
|
|
1466
|
1 |
2 |
if ($input_line =~ /^\.[\s#]*$/) { }
|
|
1472
|
1 |
0 |
unless ($self->[6])
|
|
1484
|
0 |
2 |
if ($input_line =~ /^\s*format\s+\w+/)
|
|
1498
|
22 |
29 |
if ($input_line =~ /^=cut/)
|
|
1503
|
0 |
51 |
if ($input_line =~ /^\#\!.*perl\b/ and not $self->[5])
|
|
1516
|
2 |
6 |
if ($input_line =~ /$code_skipping_pattern_end/) { }
|
|
|
0 |
6 |
elsif ($input_line =~ /$code_skipping_pattern_begin/) { }
|
|
1551
|
0 |
1 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1570
|
7 |
49 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1586
|
16 |
8296 |
if (not $self->[31] and substr($input_line, 0, 2) eq "#!" and $input_line =~ /^\#\!.*perl\b/)
|
|
1593
|
0 |
16 |
if ($input_line =~ /^\#\!.*perl\s.*-.*P/)
|
|
1597
|
9 |
7 |
if ($input_line =~ /^\#\!.*perl\s.*-.*w/)
|
|
1601
|
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/) { }
|
|
1631
|
0 |
1 |
if ($self->[35]) { }
|
|
1650
|
5 |
8920 |
if ($rOpts_look_for_hash_bang and not $self->[31])
|
|
1659
|
0 |
8920 |
if ($input_line_number == 1 and $input_line =~ /^\s*\:\s*\#/)
|
|
1682
|
0 |
8920 |
if ($self->[7])
|
|
1691
|
15 |
8905 |
if ($self->[11])
|
|
1697
|
0 |
15 |
if ($input_line =~ /^=cut\b/) { }
|
|
1698
|
0 |
0 |
if ($self->[33] or $self->[32]) { }
|
|
1723
|
2 |
8903 |
if ($self->[12])
|
|
1732
|
27 |
8876 |
if (@{$rhere_target_list;})
|
|
1746
|
1 |
8902 |
if ($self->[4]) { }
|
|
|
7 |
8895 |
elsif ($self->[5]) { }
|
|
1752
|
0 |
1 |
if ($self->[30])
|
|
1767
|
0 |
7 |
if ($self->[29])
|
|
1782
|
655 |
326 |
unless ($self->[35] or $input_line =~ /^\s*$/ or $input_line =~ /^\s*#/)
|
|
1789
|
7 |
8888 |
if ($self->[36])
|
|
1795
|
1 |
8894 |
if ($self->[6])
|
|
1799
|
63 |
8832 |
if ($self->[16] and $self->[18] < 0) { }
|
|
|
62 |
8770 |
elsif ($self->[18] >= 0 and not $self->[16]) { }
|
|
1802
|
62 |
1 |
unless ((my $quote_target = $self->[17]) =~ /^\s*$/)
|
|
1834
|
1 |
658 |
if ($self->[20]) { }
|
|
|
1 |
657 |
elsif ($rOpts_look_for_hash_bang) { }
|
|
1856
|
14 |
969 |
if ($i == 1 and $line =~ /^\#\!/)
|
|
1862
|
310 |
659 |
if ($line =~ /^\s*#/)
|
|
1865
|
254 |
56 |
unless (defined $line_for_guess)
|
|
1867
|
310 |
0 |
if (not $in_code_skipping) { }
|
|
1868
|
0 |
310 |
if ($rOpts_code_skipping and $line =~ /$code_skipping_pattern_begin/)
|
|
1876
|
0 |
0 |
if ($line =~ /$code_skipping_pattern_end/)
|
|
1888
|
0 |
659 |
if $in_code_skipping
|
|
1890
|
18 |
641 |
if $line =~ /^\s*$/
|
|
1897
|
641 |
16 |
if (defined $line_for_guess)
|
|
1931
|
644 |
0 |
if ($line =~ /^(\t+)?(\s+)?(\w+:[^:])?/)
|
|
1935
|
2 |
642 |
if ($1)
|
|
1937
|
90 |
554 |
if ($2)
|
|
1940
|
1 |
0 |
if ($3 and $rOpts_outdent_labels and $rOpts_continuation_indentation > 0)
|
|
1962
|
0 |
0 |
if ($ris_block_list_function->{$pkg}{$sub})
|
|
1966
|
0 |
0 |
if ($ris_block_function->{$pkg}{$sub})
|
|
2348
|
8 |
0 |
if ($pretoken and length $pretoken > $numc and substr($pretoken, $numc) =~ /^(\d*)(.*)$/)
|
|
2355
|
8 |
0 |
defined $1 ? :
|
|
2356
|
8 |
0 |
defined $2 ? :
|
|
2373
|
5 |
3 |
if ($len_1)
|
|
2382
|
4 |
4 |
if ($len_2)
|
|
2417
|
143 |
145 |
defined $flag ? :
|
|
2517
|
0 |
0 |
unless $replacement_text =~ /<</
|
|
2541
|
0 |
0 |
if ($tokenizer->[1])
|
|
2548
|
0 |
0 |
if ($tokenizer->[0])
|
|
2615
|
3 |
548 |
if ($split_pretoken_flag)
|
|
2618
|
3 |
0 |
if ($i > 0 and $$rtokens[$i - 1] eq '^' and $self->split_pretoken(1)) { }
|
|
2684
|
8 |
5727 |
if ($last_nonblank_token eq '->') { }
|
|
|
5621 |
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 '[') { }
|
|
2698
|
5264 |
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 '%') { }
|
|
2700
|
5142 |
122 |
if ($i_plus_1 < $max_token_index)
|
|
2702
|
2063 |
3079 |
if ($rtoken_type->[$i_next] eq "b" and $i_next < $max_token_index)
|
|
2709
|
5148 |
116 |
if ($pretype_next ne ":" and $pretype_next ne "'")
|
|
2792
|
544 |
5191 |
unless ($fast_scan_type)
|
|
2815
|
0 |
14 |
if $expecting == 1
|
|
2818
|
0 |
14 |
if $i_tok >= $max_token_index
|
|
2824
|
2 |
12 |
if ($next_nonblank_token eq "\$" and new_statement_ok())
|
|
2829
|
4 |
8 |
unless ($next_nonblank_token =~ /^[\w\:]/)
|
|
2837
|
8 |
0 |
if ($input_line =~ /\G\s*
|
|
2857
|
7 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2858
|
1 |
7 |
if (not $next_char or $next_char eq "#")
|
|
2864
|
0 |
8 |
unless ($next_char)
|
|
2875
|
3 |
5 |
unless ($next_char =~ /^[\(\:\{\;\}]/)
|
|
2909
|
0 |
12 |
unless (new_statement_ok())
|
|
2916
|
12 |
0 |
if ($input_line =~ /\G\s*
|
|
2933
|
11 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2934
|
1 |
11 |
if (not $next_char or $next_char eq "#")
|
|
2939
|
0 |
12 |
unless ($next_char)
|
|
2954
|
2 |
10 |
unless ($next_char =~ /^[\:\d\{\;\}]/)
|
|
3016
|
392 |
0 |
if ($typ_d ne "d" and $typ_d eq '+' || $typ_d eq '-' and $i_d < $max_token_index)
|
|
3027
|
2286 |
318 |
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')
|
|
3041
|
2229 |
57 |
if ($tok_d eq 0 or substr($tok_d, 0, 1) ne 0)
|
|
3077
|
677 |
2229 |
unless (defined $number)
|
|
3089
|
0 |
1679 |
if ($expecting != -1)
|
|
3092
|
0 |
828 |
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})
|
|
3113
|
1 |
0 |
if ($ct and $ct =~ /^sub\b/)
|
|
3141
|
0 |
821 |
if ($expecting == 1)
|
|
3142
|
0 |
0 |
unless (defined $thing)
|
|
3154
|
0 |
0 |
if ($i_tok == 0)
|
|
3191
|
0 |
4879 |
if $expecting == 1
|
|
3195
|
1 |
4878 |
if ($identifier eq "\$^W")
|
|
3202
|
67 |
4771 |
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"))
|
|
3218
|
43 |
65 |
unless $Z_test_hash{$next_nonblank_token}
|
|
3233
|
295 |
2148 |
if ($want_paren) { }
|
|
|
20 |
2128 |
elsif (substr($statement_type, 0, 3) eq 'sub' and $statement_type =~ /^sub\b/) { }
|
|
3248
|
3 |
2125 |
if ($expecting == 1 and not $last_nonblank_token =~ /^(?:[\]\}\)\&]|\-\>)/)
|
|
3262
|
0 |
3 |
if ($last_last_nonblank_token eq 'do') { }
|
|
3278
|
0 |
3 |
if ($next_nonblank_token ne ")" and $next_nonblank_token ne "#")
|
|
3285
|
0 |
0 |
if ($last_nonblank_type eq 'C') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq 'i') { }
|
|
3290
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_token =~ /^\$/)
|
|
3295
|
0 |
0 |
if ($is_for_foreach{$rtokens->[0]})
|
|
3304
|
0 |
0 |
if ($hint)
|
|
3321
|
61 |
2382 |
if ($last_nonblank_token eq '(') { }
|
|
3354
|
0 |
2443 |
if ($last_nonblank_type eq ")")
|
|
3364
|
1 |
2442 |
if ($last_nonblank_token eq ")")
|
|
3366
|
1 |
0 |
if (defined $rvars)
|
|
3388
|
361 |
2082 |
if ($expecting == -1)
|
|
3390
|
359 |
2 |
unless $self->[56]{$type_sequence}
|
|
3394
|
2443 |
0 |
if (defined $rvars)
|
|
3396
|
2443 |
0 |
if ($type_lp and $type_lp eq "{")
|
|
3405
|
30 |
2413 |
if (substr($container_type, 0, 3) eq "sub" and $container_type =~ /^sub\b/)
|
|
3411
|
79 |
2364 |
if ($is_for_foreach{$rparen_type->[$paren_depth]})
|
|
3413
|
0 |
79 |
if ($num_sc > 0 and $num_sc != 2)
|
|
3418
|
2443 |
0 |
if ($paren_depth > 0)
|
|
3427
|
10 |
3702 |
if ($last_nonblank_type eq ',') { }
|
|
|
0 |
3702 |
elsif ($last_nonblank_token eq '(' and $last_nonblank_type eq '{') { }
|
|
3441
|
6 |
3706 |
if ($statement_type eq "use")
|
|
3455
|
35 |
2901 |
if ($is_for_foreach{$rparen_type->[$paren_depth]}) { }
|
|
3463
|
34 |
1 |
if ($brace_depth == $rdepth_array->[2][0][$paren_depth] and $square_bracket_depth == $rdepth_array->[2][1][$paren_depth])
|
|
3483
|
0 |
1289 |
if $expecting == 1
|
|
3498
|
0 |
1349 |
if $expecting == 1
|
|
3513
|
0 |
0 |
if $expecting == 1
|
|
3532
|
0 |
225 |
if ($last_nonblank_type eq 'k' and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
0 |
225 |
elsif ($expecting == 0) { }
|
|
3554
|
0 |
0 |
if ($msg)
|
|
3566
|
88 |
137 |
if ($is_pattern) { }
|
|
3575
|
4 |
133 |
if ($$rtokens[$i + 1] eq "=")
|
|
3616
|
36 |
2040 |
if (substr($statement_type, 0, 3) eq 'sub') { }
|
|
|
10 |
2030 |
elsif (substr($statement_type, 0, 7) eq 'package') { }
|
|
|
0 |
2030 |
elsif ($statement_type eq 'case' || $statement_type eq 'when' and $statement_type eq $last_nonblank_token) { }
|
|
|
301 |
1729 |
elsif ($last_nonblank_token eq ')') { }
|
|
|
0 |
1729 |
elsif ($last_nonblank_token eq 'qw' and $is_for_foreach{$want_paren}) { }
|
|
3641
|
0 |
301 |
unless (defined $last_nonblank_token)
|
|
3646
|
285 |
16 |
if ($is_blocktype_with_paren{$last_nonblank_token}) { }
|
|
3649
|
285 |
0 |
if (defined $rvars)
|
|
3665
|
16 |
0 |
if ($rOpts_extended_syntax) { }
|
|
3689
|
0 |
0 |
if ($last_last_nonblank_token eq $want_paren)
|
|
3706
|
8 |
2068 |
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') { }
|
|
|
588 |
1480 |
elsif (is_non_structural_brace()) { }
|
|
3723
|
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')
|
|
3743
|
0 |
0 |
if ($block_type and $ris_lexical_sub->{'911'} and $last_nonblank_type eq "S" and substr($block_type, 0, 3) eq "sub")
|
|
3749
|
0 |
0 |
if ($block_type =~ /^sub $subname/ and $is_my_our_state{$last_last_nonblank_token})
|
|
3763
|
36 |
1103 |
if ($block_type and $last_nonblank_type eq "w" and $last_nonblank_i >= 0)
|
|
3767
|
36 |
0 |
if ($routput_token_type->[$last_nonblank_i] eq "w")
|
|
3769
|
5 |
31 |
$is_grep_alias{$block_type} ? :
|
|
3775
|
48 |
1432 |
if ($statement_type eq "case" or $statement_type eq "when")
|
|
3778
|
4 |
44 |
if (not $block_type or $block_type eq "}")
|
|
3790
|
2066 |
10 |
if substr($block_type, 0, 8) ne "package "
|
|
3807
|
1151 |
925 |
if ($block_type)
|
|
3808
|
2066 |
10 |
if (defined $rbrace_package->[$brace_depth]) { }
|
|
3817
|
946 |
1130 |
if ($expecting == -1)
|
|
3820
|
944 |
2 |
if not $self->[56]{$type_sequence} and $last_nonblank_type ne "%"
|
|
3827
|
588 |
1488 |
if ($rbrace_structural_type->[$brace_depth] eq "L")
|
|
3834
|
85 |
1991 |
if ($is_block_operator{$block_type})
|
|
3839
|
6 |
2070 |
if (@{$self->[53];} and $self->[53][-1] eq $type_sequence)
|
|
3846
|
2076 |
0 |
if ($brace_depth > 0)
|
|
3859
|
106 |
20 |
if ($expecting != 1) { }
|
|
3865
|
103 |
3 |
if ($expecting == -1 or $next_type ne "b")
|
|
3880
|
8 |
25 |
if ($expecting != 1) { }
|
|
3914
|
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) { }
|
|
3953
|
12 |
0 |
if ($msg)
|
|
3964
|
0 |
193 |
if ($is_pattern) { }
|
|
3986
|
6 |
248 |
if ($expecting == 0 and $next_type ne "b")
|
|
3989
|
0 |
6 |
if ($next_tok =~ /^[_A-Za-z]/) { }
|
|
3998
|
21 |
233 |
if ($expecting == -1) { }
|
|
4003
|
2 |
231 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
|
42 |
189 |
elsif ($$rtokens[$i + 1] eq '*') { }
|
|
4012
|
2 |
40 |
if ($$rtokens[$i + 1] eq "=")
|
|
4030
|
10 |
166 |
if ($expecting != 1)
|
|
4044
|
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]) { }
|
|
4098
|
6 |
0 |
if $seqno
|
|
4106
|
0 |
193 |
if ($last_nonblank_token eq "?")
|
|
4118
|
14 |
226 |
if ($expecting == -1) { }
|
|
|
224 |
2 |
elsif ($expecting == 1) { }
|
|
4122
|
14 |
0 |
unless (defined $number)
|
|
4127
|
2 |
0 |
if ($next_type eq "w" or $next_type eq "{")
|
|
4137
|
0 |
524 |
if $expecting == 1
|
|
4149
|
0 |
218 |
if ($expecting == 0)
|
|
4150
|
0 |
0 |
if ($next_type ne "b" and $next_type ne "(")
|
|
4154
|
208 |
10 |
if ($expecting == -1)
|
|
4173
|
374 |
440 |
unless (is_non_structural_brace())
|
|
4189
|
91 |
723 |
if ($expecting == -1)
|
|
4191
|
91 |
0 |
unless $self->[56]{$type_sequence}
|
|
4194
|
374 |
440 |
if ($rsquare_bracket_structural_type->[$square_bracket_depth] eq "{")
|
|
4202
|
20 |
794 |
if ($rsquare_bracket_type->[$square_bracket_depth] eq "~~")
|
|
4206
|
814 |
0 |
if ($square_bracket_depth > 0)
|
|
4215
|
12 |
479 |
if ($expecting != 1 and $is_file_test_operator{$next_tok}) { }
|
|
|
378 |
101 |
elsif ($expecting == -1) { }
|
|
|
97 |
4 |
elsif ($expecting == 1) { }
|
|
4224
|
0 |
12 |
if ($next_nonblank_token eq '=') { }
|
|
4237
|
288 |
90 |
unless (defined $number)
|
|
4243
|
4 |
0 |
if ($next_type eq "w")
|
|
4256
|
5 |
7 |
if ($expecting == -1)
|
|
4258
|
5 |
0 |
if ($last_nonblank_token eq "{" and not $next_tok =~ /^\d/ and $next_tok =~ /^\w/)
|
|
4263
|
1 |
4 |
if ($next_tok eq "W")
|
|
4281
|
0 |
0 |
if ($last_last_nonblank_type ne "t" and $last_last_nonblank_type ne "Z" and $last_last_nonblank_token ne "\$#")
|
|
4306
|
19 |
0 |
if ($expecting != 1) { }
|
|
4325
|
19 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
4329
|
0 |
19 |
if (length $here_doc_target > 80) { }
|
|
|
0 |
19 |
elsif (not $here_doc_target) { }
|
|
|
2 |
17 |
elsif (not $here_doc_target =~ /^[A-Z_]\w+$/) { }
|
|
4334
|
0 |
0 |
unless $here_quote_character
|
|
4347
|
0 |
0 |
unless ($saw_error)
|
|
4381
|
0 |
14 |
if $i >= $max_token_index
|
|
4382
|
14 |
0 |
if ($expecting != 1) { }
|
|
4401
|
14 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
4403
|
0 |
14 |
if (length $here_doc_target > 80) { }
|
|
|
0 |
14 |
elsif (not $here_doc_target =~ /^[A-Z_]\w+$/) { }
|
|
4425
|
0 |
0 |
unless ($saw_error)
|
|
4464
|
41 |
9 |
if ($expecting == 1) { }
|
|
|
7 |
2 |
elsif ($expecting == -1) { }
|
|
4475
|
0 |
2 |
if ($next_nonblank_token eq "#")
|
|
4481
|
0 |
2 |
if ($next_nonblank_token eq "\$")
|
|
4491
|
0 |
1115 |
if ($last_nonblank_type eq $tok)
|
|
4497
|
18 |
1097 |
if ($statement_type eq "use")
|
|
4508
|
0 |
2 |
if ($expecting == 1) { }
|
|
|
2 |
0 |
elsif ($expecting == -1) { }
|
|
4519
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
4525
|
0 |
0 |
if ($next_nonblank_token eq "\$")
|
|
4536
|
0 |
2514 |
if $expecting == 1
|
|
4540
|
0 |
2514 |
unless (defined $number)
|
|
4566
|
20 |
25 |
if ($next_nonblank_token eq '(') { }
|
|
4573
|
2 |
18 |
if ($tok eq "prototype")
|
|
4594
|
2 |
0 |
if ($i > $i_beg)
|
|
4629
|
15 |
2 |
if ($tok eq 'x') { }
|
|
4630
|
0 |
15 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
4646
|
2 |
0 |
if ($self->split_pretoken(1))
|
|
4664
|
16 |
0 |
if ($next_nonblank_tok2)
|
|
4666
|
1 |
15 |
if ($is_keyword{$next_nonblank_tok2}) { }
|
|
4701
|
501 |
2613 |
if ($is_blocktype_with_paren{$tok})
|
|
4702
|
362 |
139 |
if (new_statement_ok())
|
|
4711
|
0 |
337 |
if ($expecting == 1 and $is_TERM_keyword{$tok})
|
|
4716
|
178 |
2936 |
if ($is_use_require{$tok}) { }
|
|
|
763 |
2173 |
elsif ($is_my_our_state{$tok}) { }
|
|
|
35 |
2138 |
elsif ($tok eq 'elsif') { }
|
|
|
53 |
2085 |
elsif ($tok eq 'else') { }
|
|
|
70 |
2015 |
elsif ($tok eq 'when' or $tok eq 'case' or $tok eq 'default') { }
|
|
|
1 |
2014 |
elsif ($tok eq 'err') { }
|
|
4727
|
0 |
0 |
unless ($is_if_elsif_unless{$last_nonblank_block_type} or $last_nonblank_token eq ";" and $next_sequence_number == 2)
|
|
4752
|
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)
|
|
4788
|
1 |
0 |
if ($expecting != 1)
|
|
4803
|
0 |
234 |
if ($expecting == 1)
|
|
4827
|
0 |
0 |
unless ($paren_list_possible)
|
|
4840
|
140 |
94 |
$tok eq 'qw' && $rOpts_trim_qw ? :
|
|
4856
|
111 |
923 |
if ($statement_type eq "use" and $last_nonblank_token eq "use")
|
|
4862
|
1009 |
25 |
if ($type eq "w")
|
|
4864
|
2 |
1007 |
if ($expecting == 1)
|
|
4873
|
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') { }
|
|
4903
|
0 |
0 |
unless ($tok =~ /::$/)
|
|
4918
|
298 |
711 |
if ($next_tok eq "(")
|
|
4925
|
0 |
298 |
if ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
|
298 |
0 |
elsif ($last_nonblank_type ne '->') { }
|
|
4937
|
0 |
1009 |
if ($tok eq "_" and $last_nonblank_type eq "F")
|
|
4943
|
0 |
1009 |
if ($tok eq "case" and $rbrace_type->[$brace_depth] eq "switch" or $tok eq "when" and $rbrace_type->[$brace_depth] eq "given")
|
|
4952
|
263 |
746 |
if ($next_nonblank_token eq "(")
|
|
4959
|
0 |
263 |
if ($tok eq 'switch' or $tok eq 'given') { }
|
|
|
0 |
263 |
elsif ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
4992
|
3 |
0 |
if ($is_sub{$tok_kw} and $expecting != 1 and $next_nonblank_token eq ":")
|
|
5039
|
0 |
0 |
if ($rbareword_info_tok)
|
|
5041
|
0 |
0 |
if ($rbareword_info_tok)
|
|
5046
|
0 |
0 |
if ($function_count)
|
|
5049
|
0 |
0 |
unless (defined $function_count)
|
|
5050
|
0 |
0 |
unless (defined $constant_count)
|
|
5091
|
4081 |
2627 |
if ($i_next <= $max_token_index and $rtoken_type->[$i_next] eq "b")
|
|
5094
|
6624 |
84 |
if ($i_next <= $max_token_index) { }
|
|
5106
|
2 |
1 |
if ($tok eq "ADJUST" and $is_code_block_token{$tok} and $rtokens->[$i_next] eq ":" and $i_next < $max_token_index)
|
|
5111
|
0 |
2 |
$$rtoken_type[$i_next + 1] eq 'b' ? :
|
|
5122
|
272 |
6436 |
if ($$rtokens[$i + 1] eq ":" and $$rtokens[$i + 2] eq ":")
|
|
5128
|
45 |
6663 |
if ($self->[15])
|
|
5130
|
45 |
0 |
if $is_attribute
|
|
5139
|
0 |
6663 |
if (my $rseqno_hash = $ris_lexical_sub->{$tok_kw})
|
|
5146
|
0 |
0 |
$cd ? :
|
|
5154
|
0 |
0 |
if (my $seqno_brace = $rseqno_hash->{$p_seqno})
|
|
5161
|
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} ? :
|
|
5166
|
0 |
0 |
if $_ != $seqno_brace
|
|
5196
|
786 |
5877 |
if ($last_nonblank_token eq '->') { }
|
|
|
824 |
5053 |
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 |
4915 |
elsif ($next_nonblank_token eq '}' and $last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L') { }
|
|
|
17 |
4898 |
elsif ($expecting == 1 and substr($tok, 0, 1) eq 'x' and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/) { }
|
|
|
3 |
4895 |
elsif ($tok_kw eq 'CORE::') { }
|
|
|
14 |
4881 |
elsif ($tok eq 'strict' and $last_nonblank_token eq 'use') { }
|
|
|
7 |
4874 |
elsif ($tok eq 'warnings' and $last_nonblank_token eq 'use') { }
|
|
|
0 |
4874 |
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 |
4874 |
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 |
4858 |
elsif ($tok eq 'constant' and $last_nonblank_token eq 'use') { }
|
|
|
0 |
4858 |
elsif ($is_lexical_sub_type) { }
|
|
|
234 |
4624 |
elsif ($is_q_qq_qw_qx_qr_s_y_tr_m{$tok}) { }
|
|
|
33 |
4591 |
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()) { }
|
|
|
372 |
4219 |
elsif ($is_sub{$tok_kw}) { }
|
|
|
54 |
4165 |
elsif ($is_package{$tok_kw}) { }
|
|
|
1 |
4164 |
elsif ($tok_kw eq 'format' and new_statement_ok()) { }
|
|
|
8 |
4156 |
elsif (defined $is_END_DATA{$tok_kw}) { }
|
|
|
3114 |
1042 |
elsif ($is_keyword{$tok_kw}) { }
|
|
|
19 |
1023 |
elsif ($last_nonblank_type eq 'k' and $is_redo_last_next_goto{$last_nonblank_token}) { }
|
|
5220
|
3 |
821 |
if (do {
|
|
5243
|
3 |
821 |
if $expecting == 1 and substr($tok, 0, 1) eq "x"
|
|
5251
|
3 |
0 |
if ($self->split_pretoken(1))
|
|
5377
|
15 |
18 |
unless ($tok =~ /[A-Z]/)
|
|
5390
|
7 |
365 |
if ($tok_kw eq 'method' and $guess_if_method and not $self->method_ok_here($next_nonblank_token)) { }
|
|
5397
|
0 |
365 |
if $expecting == 1
|
|
5412
|
14 |
40 |
if ($tok_kw eq 'class') { }
|
|
5413
|
4 |
10 |
if ($expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->class_ok_here) { }
|
|
5422
|
0 |
40 |
if $expecting == 1
|
|
5443
|
8 |
0 |
if $expecting == -1
|
|
5473
|
2642 |
168 |
if ($is_wiUC{$type} and $statement_type ne "use" and $statement_type ne "_use")
|
|
5482
|
1019 |
1623 |
if ($type eq 'U' or $is_function_follower{$next_nonblank_token}) { }
|
|
|
443 |
1180 |
elsif ($type eq 'C' or $is_constant_follower{$next_nonblank_token}) { }
|
|
5487
|
594 |
425 |
if ($next_nonblank_token eq "(" and $i_next < $max_token_index)
|
|
5490
|
284 |
310 |
if (substr($tok_next_p1, 0, 1) eq " " and $i_next + 2 <= $max_token_index)
|
|
5498
|
961 |
58 |
unless ($empty_parens)
|
|
5521
|
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 '->') { }
|
|
5582
|
1 |
1 |
if ($i_tok < 0)
|
|
5597
|
245 |
2977 |
unless (@{$routput_token_list;})
|
|
5637
|
1467 |
1755 |
if ($is_interpolated_quote{$quote_starting_tok} and $in_quote < $in_quote_start)
|
|
5642
|
1 |
1466 |
if (not $in_quote and defined $quote_here_target_2)
|
|
5645
|
1 |
0 |
if ($quote_items{$quote_starting_tok} == 2) { }
|
|
5675
|
31 |
1436 |
if ($in_quote_start == 2)
|
|
5685
|
2 |
0 |
if ($pos_shift >= $len_qs and rindex($qs, "}") >= $len_qs and rindex($qs, '$', $pos_shift) != -1 || rindex($qs, '@', $pos_shift) != -1)
|
|
5703
|
2 |
0 |
if ($rht)
|
|
5706
|
1 |
1 |
if ($in_quote) { }
|
|
5725
|
244 |
2978 |
if ($in_quote)
|
|
5735
|
126 |
2852 |
if (++$i > $max_token_index)
|
|
5738
|
162 |
2690 |
if ($allowed_quote_modifiers)
|
|
5741
|
31 |
131 |
if ($rtokens->[$i] =~ /^[A-Za-z_]/)
|
|
5758
|
0 |
31 |
if ($saw_modifier_e and $i > 1)
|
|
5760
|
0 |
0 |
if ($rht)
|
|
5765
|
31 |
0 |
if (defined pos $str) { }
|
|
5768
|
31 |
0 |
if (pos $str == length $str) { }
|
|
5769
|
0 |
31 |
if (++$i > $max_token_index)
|
|
5795
|
0 |
0 |
if (++$i > $max_token_index)
|
|
5927
|
15 |
8658 |
if (not $in_quote and substr($untrimmed_input_line, 0, 1) eq "=" and $untrimmed_input_line =~ /^=[A-Za-z_]/)
|
|
5936
|
15 |
0 |
if ($expecting == -1)
|
|
5946
|
58 |
8847 |
if ($in_quote and $quote_type eq 'Q') { }
|
|
5962
|
0 |
8847 |
unless (defined $input_line)
|
|
5970
|
3 |
8844 |
if ($self->[39] and length $input_line)
|
|
5980
|
1053 |
7852 |
unless (length $input_line)
|
|
5994
|
890 |
6962 |
if (not $in_quote and substr($input_line, 0, 1) eq "#")
|
|
5997
|
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/)
|
|
6016
|
17 |
871 |
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 |
851 |
elsif (substr($input_line, 0, 4) eq '#>>>' || $rOpts_format_skipping_end and $rOpts_format_skipping and ($input_line . ' ') =~ /$format_skipping_pattern_end/) { }
|
|
6039
|
0 |
17 |
if (@{$rformat_skipping_list;} and $rformat_skipping_list->[-1][0] == $on_off)
|
|
6066
|
0 |
20 |
if (@{$rformat_skipping_list;} and $rformat_skipping_list->[-1][0] == $on_off)
|
|
6141
|
0 |
6962 |
if (@{$rtokens;} and $rtoken_type->[0] eq "b" and not $in_quote && $quote_type eq 'Q')
|
|
6190
|
3222 |
57112 |
if ($in_quote)
|
|
6192
|
370 |
2852 |
if $in_quote or $i > $max_token_index
|
|
6195
|
42019 |
17945 |
if ($type ne "b" and $type ne "CORE::")
|
|
6198
|
2071 |
39948 |
if ($type eq "n" and $tok ne 0)
|
|
6200
|
9 |
2062 |
if ($last_nonblank_token eq 'eq') { }
|
|
|
0 |
2062 |
elsif ($last_nonblank_token eq 'ne') { }
|
|
6212
|
35246 |
6773 |
if ($i_tok >= 0)
|
|
6227
|
1242 |
40777 |
if ($is_arrow_or_Z{$last_last_nonblank_type})
|
|
6234
|
1196 |
46 |
if ($last_last_nonblank_type eq '->') { }
|
|
|
46 |
0 |
elsif ($last_last_nonblank_type eq 'Z') { }
|
|
6235
|
793 |
403 |
if ($last_nonblank_type eq "w" or $last_nonblank_type eq "i")
|
|
6245
|
1 |
45 |
if ($last_nonblank_type eq "R")
|
|
6257
|
53191 |
6773 |
if ($i_tok >= 0)
|
|
6300
|
18090 |
41874 |
if $pre_type eq "b"
|
|
6305
|
363 |
41511 |
if ($pre_type eq "#")
|
|
6312
|
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)
|
|
6321
|
6 |
40 |
if ($len == 4 and $text eq "#<<<" or $len > 4 and $text eq "#<<< ")
|
|
6332
|
17 |
41494 |
if ($id_scan_state)
|
|
6334
|
10 |
7 |
if ($is_sub{$id_scan_state} or $is_package{$id_scan_state}) { }
|
|
6341
|
1 |
16 |
if ($id_scan_state)
|
|
6347
|
0 |
1 |
if $i > $max_token_index
|
|
6354
|
0 |
1 |
if $i_next > $max_token_index
|
|
6360
|
9 |
7 |
if $i > 0 or $type
|
|
6379
|
3113 |
3496 |
if ($can_start_digraph{$tok} and $i < $max_token_index and $is_digraph{$tok . $$rtokens[$i + 1]})
|
|
6391
|
111 |
3002 |
if ($test_tok eq '~~') { }
|
|
|
16 |
2986 |
elsif ($test_tok eq '//') { }
|
|
|
45 |
2941 |
elsif ($test_tok eq '**') { }
|
|
6394
|
1 |
110 |
if ($self->operator_expected($tok, "~", undef) == -1)
|
|
6398
|
1 |
0 |
if ($last_nonblank_type eq '}') { }
|
|
6400
|
0 |
1 |
if (not $blk or $blk ne ";")
|
|
6419
|
16 |
0 |
if ($last_nonblank_type ne "Z")
|
|
6429
|
4 |
12 |
if $expecting == -1
|
|
6437
|
43 |
2 |
if ($last_nonblank_type ne "Z")
|
|
6443
|
3060 |
2 |
if ($combine_ok and $test_tok ne "/=" and $test_tok ne "x=" and $test_tok ne "*=")
|
|
6465
|
105 |
2955 |
if ($is_trigraph{$test_tok}) { }
|
|
6474
|
1 |
2954 |
if ($test_tok eq "<<>")
|
|
6476
|
1 |
0 |
if ($is_tetragraph{$test_tok})
|
|
6491
|
11826 |
29675 |
unless (defined $expecting)
|
|
6515
|
6708 |
34793 |
if ($pre_type eq "w")
|
|
6517
|
9 |
6699 |
if $is_last
|
|
6528
|
2514 |
32279 |
if ($pre_type eq "d")
|
|
6537
|
30014 |
2265 |
if ($code)
|
|
6539
|
2726 |
27288 |
if $in_quote
|
|
6544
|
11866 |
17687 |
if ($expecting == -1)
|
|
6549
|
277 |
11589 |
if ($is_not_term)
|
|
6556
|
6773 |
189 |
if ($i_tok >= 0)
|
|
6564
|
6451 |
511 |
if ($type ne "b" and $type ne "#")
|
|
6579
|
0 |
6962 |
if ($level_in_tokenizer < 0)
|
|
6580
|
0 |
0 |
if ($input_line =~ /^\s*(sub|package)\s+(\w+)/)
|
|
6591
|
187 |
58 |
$matching_end_token{$quote_character} ? :
|
|
|
245 |
6717 |
$in_quote ? :
|
|
6629
|
49157 |
11052 |
if (not $routput_type_sequence->[$ii]) { }
|
|
6637
|
3201 |
45956 |
if ($is_semicolon_or_t{$type_i}) { }
|
|
|
0 |
45956 |
elsif (not $is_valid_token_type{$type_i}) { }
|
|
6639
|
189 |
3012 |
if ($is_END_DATA_format_sub{$tok_i})
|
|
6651
|
0 |
0 |
unless ($self->[7])
|
|
6696
|
5526 |
5526 |
if ($is_opening_or_ternary_type{$type_i}) { }
|
|
|
5526 |
0 |
elsif ($is_closing_or_ternary_type{$type_i}) { }
|
|
6698
|
193 |
5333 |
if ($type_i eq '?') { }
|
|
6700
|
8 |
185 |
if ($routput_indent_flag->[$ii] > 0)
|
|
6713
|
4893 |
440 |
if ($type_i eq "{" or $type_i eq "L")
|
|
6717
|
1151 |
3742 |
if ($routput_block_type->[$ii]) { }
|
|
6734
|
5333 |
193 |
if ($type_i ne ":")
|
|
6736
|
0 |
5333 |
if ($char ne $matching_start_token{$tok_i})
|
|
6741
|
596 |
625 |
if ($type_i eq "}" or $type_i eq "R" or $type_i eq ":" and $routput_indent_flag->[$ii] < 0)
|
|
6752
|
0 |
4901 |
if ($level_in_tokenizer < 0)
|
|
6753
|
0 |
0 |
unless ($self->[34])
|
|
6761
|
4901 |
0 |
if (length $nesting_block_string > 1)
|
|
6789
|
1804 |
9248 |
unless (@output_levels)
|
|
6809
|
6962 |
0 |
if (@output_levels)
|
|
6822
|
0 |
0 |
if $numc > 0
|
|
6868
|
757 |
6205 |
if ($output_tokens[0] eq "}")
|
|
6871
|
415 |
342 |
if ($is_zero_continuation_block_type{$blk} || substr($blk, 0, 4) eq 'sub ' and not $self->[13])
|
|
6892
|
15 |
400 |
if ($space_count and ord substr($untrimmed_input_line, 0, 1) == 9)
|
|
6895
|
15 |
0 |
if ($untrimmed_input_line =~ /^(\t+)?(\s+)?/)
|
|
6896
|
15 |
0 |
if ($1)
|
|
6897
|
1 |
14 |
if ($2)
|
|
6905
|
3 |
412 |
if $rOpts_indent_closing_brace
|
|
6919
|
83 |
332 |
if ($space_count and not defined $rhash->{'valid'})
|
|
6928
|
55 |
360 |
if ($rhistory_level_diff->[-1] != $level_diff) { }
|
|
6937
|
0 |
55 |
if ($guess == 0 and $adjust > 0)
|
|
6947
|
162 |
198 |
if ($rhistory_anchor_point->[-1]) { }
|
|
7090
|
78 |
11890 |
if (defined $op_expected)
|
|
7115
|
3117 |
8773 |
if ($last_nonblank_type eq "k")
|
|
7118
|
2997 |
120 |
if ($expecting_term_token{$last_nonblank_token})
|
|
7124
|
1 |
2 |
if ($tok eq "/" and $next_type eq "/" and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token})
|
|
7139
|
0 |
2996 |
if ($tok eq "?" and $last_nonblank_token eq "split")
|
|
7149
|
7 |
113 |
if ($expecting_operator_token{$last_nonblank_token})
|
|
7170
|
4187 |
4586 |
if ($last_nonblank_type eq "}")
|
|
7175
|
2814 |
1373 |
if ($last_nonblank_token eq ")" or $last_nonblank_token eq "]")
|
|
7185
|
2 |
1371 |
unless (defined $blk)
|
|
7190
|
367 |
1004 |
unless ($blk)
|
|
7195
|
116 |
344 |
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/)
|
|
7207
|
276 |
68 |
if ($is_block_operator{$blk} or $is_sub{$blk})
|
|
7229
|
2627 |
1959 |
if ($is_n_v{$last_nonblank_type})
|
|
7230
|
11 |
2616 |
if ($statement_type eq "use")
|
|
7241
|
160 |
1799 |
if ($last_nonblank_type eq "q")
|
|
7242
|
0 |
160 |
if ($last_nonblank_token eq "prototype")
|
|
7249
|
3 |
157 |
if ($statement_type =~ /^package\b/)
|
|
7260
|
1750 |
49 |
if ($last_nonblank_type eq "w")
|
|
7264
|
7 |
1743 |
if ($tok eq "?")
|
|
7268
|
1228 |
515 |
if ($rinfo)
|
|
7270
|
317 |
911 |
if ($rinfo)
|
|
7272
|
135 |
182 |
if ($function_count and $function_count > 0)
|
|
7281
|
45 |
4 |
if ($last_nonblank_type eq "Z")
|
|
7284
|
2 |
43 |
if ($last_nonblank_token =~ /^\w/)
|
|
7292
|
0 |
43 |
if ($tok eq "x" and $next_type =~ /^[\(\$\@\%]$/)
|
|
7299
|
4 |
39 |
if ($is_weird_parsing_rule_exception{$tok})
|
|
7313
|
0 |
39 |
if ($blank_after_Z and $next_type ne "b")
|
|
7321
|
9 |
30 |
if ($tok =~ m[^([x/\+\-\*\%\&\.]|\>\>)$])
|
|
7326
|
9 |
0 |
if ($statement_type ne "use")
|
|
7365
|
70 |
481 |
if ($last_nonblank_token eq '{') { }
|
|
|
117 |
364 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
7417
|
98 |
1382 |
if ($last_nonblank_token eq '{' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
55 |
1327 |
elsif ($last_nonblank_token eq ';') { }
|
|
|
10 |
1317 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
34 |
1283 |
elsif ($last_nonblank_type eq 'J') { }
|
|
|
559 |
724 |
elsif ($is_code_block_token{$last_nonblank_token} or $is_grep_alias{$last_nonblank_token}) { }
|
|
|
366 |
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 =~ /\(\)$/) { }
|
|
7423
|
98 |
0 |
if ($rbrace_type->[$brace_depth]) { }
|
|
7449
|
10 |
0 |
if ($last_nonblank_block_type) { }
|
|
7485
|
0 |
559 |
if ($last_nonblank_type eq 'k' and $last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless') { }
|
|
7524
|
1 |
23 |
if $statement_type eq "use"
|
|
7538
|
1 |
86 |
if ($paren_type and $is_sort_map_grep{$paren_type}) { }
|
|
7583
|
5 |
181 |
if ($next_nonblank_token eq '}') { }
|
|
7611
|
156 |
25 |
if ($next_nonblank_token ne "#")
|
|
7620
|
173 |
8 |
if (defined $rpre_types and @{$rpre_types;})
|
|
7630
|
64 |
117 |
if $pre_types[0] eq "b"
|
|
7638
|
1 |
180 |
if ($pre_types[$j] =~ /^[\'\"]/) { }
|
|
|
8 |
172 |
elsif ($pre_types[$j] eq 'd') { }
|
|
|
78 |
94 |
elsif ($pre_types[$j] eq 'w') { }
|
|
|
0 |
94 |
elsif ($pre_types[$j] eq '-' and $pre_types[++$j] eq 'w') { }
|
|
7643
|
1 |
0 |
if ($pre_types[$k] eq $quote_mark)
|
|
7661
|
87 |
94 |
if ($j > $jbeg)
|
|
7663
|
80 |
7 |
if $pre_types[$j] eq "b"
|
|
7666
|
18 |
69 |
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 ">")
|
|
7682
|
163 |
18 |
if ($code_block_type)
|
|
7690
|
20 |
143 |
if ($code_block_type =~ /^\w/ and $code_block_type ne "method")
|
|
7713
|
0 |
0 |
if (++$self->[40] <= 6)
|
|
7723
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_i >= 0)
|
|
7726
|
0 |
0 |
if ($$rpretoken_type[$i_tok - 1] eq 'b') { }
|
|
7732
|
0 |
0 |
if ($num > 40)
|
|
7869
|
5526 |
0 |
if ($total_depth > 0)
|
|
7879
|
5526 |
16578 |
if $bb == $aa
|
|
7885
|
193 |
5333 |
if ($aa == 3)
|
|
7887
|
17 |
176 |
if ($cd_aa > 1)
|
|
7888
|
16 |
1 |
if ($$rnested_ternary_flag[$cd_aa - 1] == 0)
|
|
7890
|
8 |
8 |
if ($pdepth == $total_depth - 1)
|
|
7916
|
39 |
8 |
if $cd_aa <= 0
|
|
7920
|
0 |
8 |
if $bb == $aa
|
|
7923
|
8 |
0 |
if $rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb]
|
|
7948
|
5526 |
0 |
if ($cd_aa > 0) { }
|
|
7952
|
193 |
5333 |
if ($aa == 3)
|
|
7961
|
1 |
0 |
if ($aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w" and $rbrace_structural_type->[$brace_depth] eq "L")
|
|
7971
|
5526 |
16578 |
if $bb == $aa
|
|
7973
|
0 |
16578 |
if ($rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb])
|
|
7982
|
0 |
0 |
if ($saw_brace_error <= 6 and $diff > 0 || $saw_brace_error <= 0)
|
|
7997
|
0 |
0 |
if ($diff == 1 or $diff == -1) { }
|
|
8003
|
0 |
0 |
$diff > 0 ? :
|
|
8012
|
0 |
0 |
if ($diff > 0)
|
|
8026
|
0 |
0 |
if ($bb eq 0)
|
|
8034
|
0 |
0 |
if ($saw_brace_error <= 6)
|
|
8042
|
0 |
0 |
if ($aa eq 0)
|
|
8045
|
0 |
0 |
if $closing_brace_names[$aa] ne "':'"
|
|
8059
|
0 |
2636 |
if ($cd_aa)
|
|
8065
|
0 |
0 |
if ($cd_aa == 1)
|
|
8075
|
0 |
0 |
if ($aa eq 0)
|
|
8102
|
6 |
200 |
if length $line <= 0
|
|
8103
|
20 |
180 |
if $line =~ /^#/
|
|
8128
|
29 |
165 |
if length $line <= 0
|
|
8129
|
24 |
141 |
if $line =~ /^#/
|
|
8136
|
43 |
363 |
if $tok =~ /
|
|
8178
|
0 |
12 |
if ($i >= $max_token_index)
|
|
8187
|
12 |
0 |
unless ($is_non_ternary_pretok{$next_nonblank_token} or $last_nonblank_type eq "k" and $last_nonblank_token eq "split")
|
|
8237
|
0 |
0 |
if ($in_quote)
|
|
8255
|
0 |
0 |
if ($tok eq ":")
|
|
8256
|
0 |
0 |
if ($tok eq "'")
|
|
8257
|
0 |
0 |
if ($tok eq "\"")
|
|
8259
|
0 |
0 |
if ($s_quote % 2 or $d_quote % 2 or $colons)
|
|
8264
|
0 |
0 |
if ($self->pattern_expected($i, $rtokens, $max_token_index) >= 0)
|
|
8315
|
0 |
0 |
if ($divide_possible < 0)
|
|
8321
|
0 |
0 |
if ($divide_possible == 4)
|
|
8328
|
0 |
0 |
if ($i >= $max_token_index)
|
|
8337
|
0 |
0 |
if (index($input_line, "/", $pos_beg + 1) == -1)
|
|
8389
|
0 |
0 |
if ($in_quote)
|
|
8399
|
0 |
0 |
if ($pattern_expected < 0)
|
|
8407
|
0 |
0 |
if ($is_known_constant{$last_nonblank_token})
|
|
8415
|
0 |
0 |
if ($is_known_function{$last_nonblank_token})
|
|
8422
|
0 |
0 |
if ($divide_possible > $pattern_expected)
|
|
8429
|
0 |
0 |
if ($is_pattern_by_spacing) { }
|
|
8468
|
0 |
0 |
if ($line eq $next_token)
|
|
8473
|
0 |
0 |
if $k >= $HERE_DOC_WINDOW
|
|
8476
|
0 |
0 |
unless ($here_doc_expected)
|
|
8478
|
0 |
0 |
if (not defined $line) { }
|
|
8484
|
0 |
0 |
if (not $ris_constant->{$current_package}{$next_token}) { }
|
|
8536
|
9 |
1857 |
if ($tok eq "::")
|
|
8545
|
1866 |
0 |
if ($input_line =~ /
|
|
8562
|
1861 |
5 |
if (defined $2)
|
|
8563
|
280 |
1586 |
if (defined $1 and length $1) { }
|
|
8568
|
275 |
5 |
if ($sub_name)
|
|
8569
|
117 |
158 |
if ($input_line =~ / \G\s*(?:->) /cgx)
|
|
8579
|
0 |
280 |
if (not $sub_name and substr($package, -1, 1) eq "'")
|
|
8584
|
9 |
271 |
if ($package =~ /^\:/)
|
|
8591
|
0 |
1586 |
if ($is_keyword{$tok} and $last_nonblank_type ne "->")
|
|
8597
|
1080 |
786 |
if ($type eq "w" and $last_nonblank_type ne "->")
|
|
8601
|
2 |
1078 |
if (substr($tok, 0, 1) eq 'v' and $tok =~ /^v\d[_\d]*$/) { }
|
|
|
1 |
1077 |
elsif ($last_nonblank_token eq 'sort' and $last_nonblank_type eq 'k') { }
|
|
|
12 |
1065 |
elsif ($ris_constant->{$package}{$sub_name}) { }
|
|
|
0 |
1065 |
elsif ($ris_block_function->{$package}{$sub_name}) { }
|
|
|
0 |
1065 |
elsif ($ris_block_list_function->{$package}{$sub_name}) { }
|
|
|
6 |
1059 |
elsif ($ris_user_function->{$package}{$sub_name}) { }
|
|
|
4 |
1055 |
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]}) { }
|
|
8605
|
2 |
0 |
if ($input_line =~ /\G(\.\d[_\d]*)+/cg)
|
|
8682
|
4 |
0 |
if (pos $input_line == length $input_line or $input_line =~ /\G[;\s]/cg) { }
|
|
8698
|
1 |
3 |
if ($sub_name =~ /[a-z]/)
|
|
8702
|
1 |
0 |
if ($input_line =~ /\G\s*\(/cg)
|
|
8727
|
0 |
1866 |
if ($error)
|
|
8787
|
10 |
415 |
if ($id_scan_state) { }
|
|
8804
|
2 |
423 |
if ($i_beg > $max_token_index) { }
|
|
8810
|
0 |
423 |
if ($next_nonblank_token eq "#")
|
|
8811
|
0 |
0 |
if ($tok ne "\$")
|
|
8816
|
403 |
20 |
if ($next_nonblank_token =~ /^\s/)
|
|
8820
|
4 |
399 |
if ($next_nonblank_token =~ /(^#|^\s*$)/)
|
|
8827
|
2 |
417 |
if (not $blank_line and $next_nonblank_token eq "\$" and $id_scan_state eq "method")
|
|
8839
|
419 |
6 |
unless ($blank_line)
|
|
8841
|
369 |
50 |
if ($is_sub{$id_scan_state}) { }
|
|
|
50 |
0 |
elsif ($is_package{$id_scan_state}) { }
|
|
8880
|
0 |
425 |
if ($id_scan_state and not defined $type && $type)
|
|
8905
|
0 |
191 |
unless defined $package
|
|
8906
|
0 |
191 |
unless defined $subname
|
|
8907
|
34 |
157 |
if (defined $proto) { }
|
|
8910
|
5 |
29 |
if ($proto) { }
|
|
8915
|
1 |
4 |
if ($proto =~ /\&/)
|
|
8919
|
0 |
1 |
if ($proto =~ /\&$/) { }
|
|
8977
|
50 |
0 |
if ($input_line =~ /\G\s*((?:\w*(?:'|::))*\w*)/cg) { }
|
|
8979
|
50 |
0 |
defined $1 && $1 ? :
|
|
8981
|
0 |
50 |
if ($package =~ /^\:/)
|
|
8994
|
0 |
50 |
if ($error)
|
|
9014
|
50 |
0 |
if ($next_nonblank_token =~ /^([v\.\d;\{\}\#\:])|v\d|\d+$/) { }
|
|
9100
|
0 |
551 |
if ($tok_begin eq ":")
|
|
9129
|
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 '^') { }
|
|
9134
|
0 |
59 |
if ($i == $max_token_index)
|
|
9144
|
51 |
259 |
$tok =~ /^\d/ ? :
|
|
9173
|
96 |
4 |
if (not $last_tok_is_blank || $in_prototype_or_signature and $identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/ and not $is_punct_var) { }
|
|
9200
|
0 |
4 |
if ($identifier eq '->') { }
|
|
|
0 |
4 |
elsif ($is_punct_var) { }
|
|
|
4 |
0 |
elsif ($id_scan_state eq $scan_state_SIGIL) { }
|
|
9212
|
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]/) { }
|
|
9236
|
31 |
15 |
if ($identifier eq "\$" or $i == 0)
|
|
9249
|
20 |
0 |
if ($identifier =~ /^[\$\%\*\&\@]/) { }
|
|
|
0 |
0 |
elsif ($identifier eq '->') { }
|
|
9251
|
8 |
12 |
if (length $identifier > 1) { }
|
|
9259
|
1 |
11 |
if ($i == $max_token_index) { }
|
|
|
1 |
10 |
elsif (not $identifier =~ /^[\@\$]$/) { }
|
|
9286
|
0 |
0 |
if ($i == $max_token_index)
|
|
9304
|
11 |
0 |
if ($identifier =~ /^[\$\*\@\%]$/) { }
|
|
9311
|
9 |
2 |
if ($is_special_variable_char{$chr}) { }
|
|
9320
|
3 |
6 |
length $next1 > 1 ? :
|
|
9337
|
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 '->') { }
|
|
9347
|
1 |
2 |
if ($i == $i_begin) { }
|
|
9358
|
0 |
2 |
if ($id_scan_state eq $scan_state_SIGIL and $tok eq "#")
|
|
9380
|
0 |
2 |
if ($tok eq '{') { }
|
|
|
0 |
2 |
elsif ($tok =~ /^[\:\-\+]$/) { }
|
|
9405
|
0 |
0 |
if ($tok eq '{') { }
|
|
9413
|
0 |
0 |
if (length $identifier == 1)
|
|
9429
|
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 /) { }
|
|
9462
|
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 /) { }
|
|
9473
|
0 |
12 |
if ($is_keyword{$identifier}) { }
|
|
9502
|
0 |
0 |
if ($tok eq '(') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^\s*$/) { }
|
|
9525
|
0 |
0 |
if ($tok eq ')') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^[\s\$\%\\\*\@\&\;]/) { }
|
|
9545
|
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 '^') { }
|
|
9559
|
2 |
0 |
if (length $identifier == 1 and $i == $max_token_index)
|
|
9569
|
15 |
0 |
if ($identifier eq "&" or $i == 0)
|
|
9576
|
0 |
0 |
if ($identifier eq '&') { }
|
|
9586
|
0 |
0 |
if ($is_special_variable_char{$chr}) { }
|
|
9594
|
0 |
0 |
length $next1 > 1 ? :
|
|
9627
|
0 |
0 |
if ($identifier eq '&' and $expecting and $tok ne '#') { }
|
|
9694
|
544 |
7 |
if (not $id_scan_state) { }
|
|
9698
|
0 |
544 |
if ($tok eq ">")
|
|
9704
|
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 '->') { }
|
|
9741
|
0 |
0 |
unless ($self->[7])
|
|
9775
|
3 |
1302 |
unless ($code)
|
|
9777
|
3 |
0 |
if ($id_scan_state eq $scan_state_SPLIT) { }
|
|
9799
|
11 |
1291 |
if ($tok_is_blank) { }
|
|
9805
|
119 |
1183 |
if ($tok eq ":" and $$rtokens[$i + 1] eq ":")
|
|
9814
|
428 |
874 |
if $i <= $i_start_loop
|
|
9823
|
24 |
527 |
if ($id_scan_state)
|
|
9825
|
17 |
7 |
unless ($is_returnable_scan_state{$id_scan_state})
|
|
9827
|
3 |
14 |
if ($id_scan_state eq $scan_state_SPLIT)
|
|
9831
|
0 |
17 |
if ($id_scan_state eq $scan_state_RPAREN)
|
|
9841
|
0 |
24 |
if ($identifier eq "\$#")
|
|
9845
|
0 |
551 |
if ($i < 0)
|
|
9848
|
523 |
28 |
unless ($type)
|
|
9850
|
517 |
6 |
if ($saw_type) { }
|
|
|
5 |
1 |
elsif ($saw_alpha) { }
|
|
9852
|
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 ') { }
|
|
9857
|
0 |
404 |
if ($identifier =~ /^->/ and $last_nonblank_type eq 'w' and substr($identifier, 2, 1) =~ /^\w/) { }
|
|
9891
|
5 |
0 |
if ($id_scan_state_begin and $identifier =~ /^([\$\%\@\*\&]|->)/)
|
|
9903
|
504 |
47 |
if ($identifier) { }
|
|
9905
|
1 |
503 |
if ($message)
|
|
9970
|
2 |
369 |
$rcall_hash->{'is_lexical_method'} ? :
|
|
10016
|
5 |
364 |
$tok eq '(' ? :
|
|
|
2 |
369 |
$tok eq 'prototype' ? :
|
|
10032
|
176 |
195 |
if ($call_type == 1 and $input_line =~ /\G\s*
|
|
10044
|
0 |
0 |
if ($is_lexical_sub and $1)
|
|
10051
|
0 |
176 |
if ($is_lexical_sub) { }
|
|
10058
|
0 |
0 |
unless defined $seqno
|
|
10074
|
0 |
0 |
if ($is_q_qq_qw_qx_qr_s_y_tr_m{$subname})
|
|
10085
|
6 |
170 |
defined $1 && $1 ? :
|
|
10087
|
0 |
176 |
if ($package =~ /^\:/)
|
|
10120
|
45 |
326 |
if ($input_line =~ /\G(\s*\([^\)\(\}\{\,#A-Za-z=]*\))? # PROTO
|
|
10133
|
24 |
21 |
if ($proto and $match || $call_type == 3) { }
|
|
|
2 |
19 |
elsif ($call_type == 2) { }
|
|
10153
|
2 |
43 |
if ($tok eq "sub" and not $proto)
|
|
10156
|
191 |
180 |
if ($match) { }
|
|
10161
|
15 |
176 |
if ($attrs)
|
|
10168
|
1 |
190 |
if ($pos == $pos_beg and $tok eq ':') { }
|
|
10181
|
0 |
190 |
if ($error)
|
|
10189
|
2 |
0 |
if ($type eq "k" and $attrs and $i > $i_entry and substr($rtokens->[$i], 0, 1) =~ /\s/)
|
|
10203
|
7 |
184 |
if ($next_nonblank_token =~ /^(\s*|#)$/)
|
|
10207
|
7 |
0 |
if (defined $rpre_tokens and @{$rpre_tokens;}) { }
|
|
10216
|
153 |
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) { }
|
|
10217
|
143 |
10 |
if ($subname)
|
|
10222
|
0 |
143 |
if ($rsaw_function_definition->{$subname}{$package} and not $subname =~ /^[A-Z]+$/)
|
|
10227
|
0 |
0 |
if ($package =~ /^\d/) { }
|
|
10255
|
14 |
2 |
if ($call_type == 1)
|
|
10256
|
13 |
1 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
10270
|
4 |
17 |
unless ($saw_opening_paren)
|
|
10273
|
21 |
0 |
if ($call_type == 1)
|
|
10274
|
21 |
0 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
10282
|
0 |
0 |
if ($rcall_hash->{'tok'} eq 'method' and $call_type == 1) { }
|
|
10294
|
0 |
0 |
unless defined $subname
|
|
10331
|
9 |
457 |
if ($i == $max_token_index - 1 and $rtokens->[$max_token_index] =~ /^\s+$/)
|
|
10337
|
145 |
321 |
if ($i >= $max_token_index)
|
|
10338
|
143 |
2 |
unless (peeked_ahead())
|
|
10347
|
0 |
466 |
unless defined $next_nonblank_token and length $next_nonblank_token
|
|
10352
|
0 |
0 |
if ($ord <= 33 || $ord >= 126 and $ord == 32 || $ord == 9 || $next_nonblank_token =~ /^\s+$/)
|
|
10366
|
0 |
305 |
unless defined $next_nonblank_token
|
|
10385
|
0 |
108 |
if ($next_nonblank_token eq "#")
|
|
10392
|
108 |
0 |
if ($next_nonblank_token and $next_nonblank_token ne " " and defined $$rtokens[$i_next + 1])
|
|
10397
|
15 |
93 |
if ($is_digraph{$test2})
|
|
10402
|
15 |
0 |
if (defined $$rtokens[$i_next + 1])
|
|
10404
|
0 |
15 |
if ($is_trigraph{$test3})
|
|
10431
|
0 |
0 |
if ($next_token eq "=")
|
|
10435
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
10441
|
0 |
0 |
if ($next_nonblank_token =~ / [ \( \$ \w \. \@ ] /x) { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token =~ /^\s*$/) { }
|
|
10446
|
0 |
0 |
if ($next_nonblank_token =~ /^\d/)
|
|
10450
|
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 '}') { }
|
|
10506
|
0 |
0 |
if ($next_token =~ /^$possible_modifiers/)
|
|
10513
|
0 |
0 |
if ($pattern_test{$next_nonblank_token}) { }
|
|
10519
|
0 |
0 |
if ($next_nonblank_token =~ /^\s*$/ or $next_nonblank_token eq '#') { }
|
|
10536
|
633 |
8 |
if ($i < $max_token_index) { }
|
|
10539
|
182 |
451 |
if ($next_nonblank_token =~ /^\s*$/)
|
|
10541
|
180 |
2 |
if ($i < $max_token_index)
|
|
10567
|
0 |
8 |
if ($last_nonblank_token eq ">")
|
|
10576
|
6 |
2 |
if ($expecting_TERM) { }
|
|
|
2 |
0 |
elsif ($expecting == 0) { }
|
|
10617
|
8 |
0 |
if ($input_line =~ /($filter)/g)
|
|
10619
|
8 |
0 |
if ($1 eq '>') { }
|
|
10635
|
1 |
7 |
if ($last_nonblank_type eq "Z")
|
|
10638
|
0 |
0 |
unless (substr($last_nonblank_token, 0, 1) =~ /[A-Za-z_]/ or substr($str, 1, 1) =~ /[A-Za-z_]/)
|
|
10647
|
2 |
6 |
if ($expecting eq 0)
|
|
10649
|
1 |
1 |
if ($check eq "-")
|
|
10665
|
0 |
7 |
if ($error)
|
|
10683
|
0 |
7 |
if ($str =~ /^<\s*!/) { }
|
|
|
0 |
7 |
elsif ($str =~ m[^<\s*/\w+\s*>$]) { }
|
|
|
0 |
7 |
elsif ($str =~ /^<\?xml\s.*\?>$/i and $is_first_string) { }
|
|
10685
|
0 |
0 |
if ($is_first_string)
|
|
10707
|
0 |
7 |
if ($is_html_tag)
|
|
10713
|
1 |
6 |
if $str =~ /<\s+/
|
|
10714
|
1 |
6 |
if $str =~ /\s+>/
|
|
10718
|
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*>$/) { }
|
|
10748
|
0 |
0 |
if ($br or $sb or $pr) { }
|
|
10769
|
0 |
0 |
if ($expecting_TERM)
|
|
10803
|
0 |
687 |
unless ($first_char =~ /[\d\.\+\-Ee]/)
|
|
10817
|
0 |
687 |
if ($input_line =~ /\G((\d[_\d]*)?\.[\d_]+(\.[\d_]+)+)/g)
|
|
10825
|
687 |
0 |
unless (defined $number)
|
|
10832
|
72 |
615 |
if ($input_line =~ /
|
|
10875
|
615 |
72 |
unless (defined $number)
|
|
10878
|
615 |
0 |
if ($input_line =~ /\G([+-]?[\d_]*(\.[\d_]*)?([Ee][+-]?(\d+))?)/g)
|
|
10882
|
38 |
577 |
if (substr($input_line, $pos - 1, 1) eq "." and substr($input_line, $pos, 1) eq ".")
|
|
10895
|
304 |
383 |
if (not $number =~ /\d/ or $number =~ /^(.*)[eE]/ and not $1 =~ /\d/)
|
|
10912
|
0 |
383 |
if ($error)
|
|
10926
|
2452 |
2249 |
if ($pos <= $rtoken_map->[$i])
|
|
10931
|
0 |
2452 |
if ($pos < $rtoken_map->[$i])
|
|
10974
|
0 |
33 |
if ($next_token eq "\\")
|
|
10982
|
18 |
15 |
if ($next_nonblank_token =~ /[\'\"\`]/) { }
|
|
|
0 |
15 |
elsif ($next_token =~ /^\s*$/ and $expecting == -1) { }
|
|
|
15 |
0 |
elsif ($next_token =~ /^\w/) { }
|
|
11010
|
0 |
18 |
if ($in_quote) { }
|
|
11012
|
0 |
0 |
if ($expecting == -1)
|
|
11029
|
0 |
0 |
if $tokj eq "\\" and $j < $i - 1 and $$rtokens[$j + 1] eq $here_quote_character
|
|
11046
|
0 |
15 |
if ($expecting == 0) { }
|
|
11053
|
15 |
0 |
if ($here_doc_expected)
|
|
11062
|
0 |
0 |
if ($expecting == -1) { }
|
|
11072
|
0 |
33 |
if ($found_target and $backslash)
|
|
11109
|
31 |
3191 |
if ($in_quote == 2)
|
|
11132
|
31 |
0 |
if ($in_quote == 1) { }
|
|
11133
|
1 |
30 |
if ($quote_character =~ /[\{\[\<\(]/)
|
|
11141
|
3222 |
0 |
if ($in_quote == 1)
|
|
11164
|
244 |
2978 |
if ($in_quote == 1)
|
|
11218
|
4 |
17 |
if ($token eq "\\")
|
|
11219
|
0 |
4 |
unless ($code_depth)
|
|
11224
|
4 |
13 |
unless ($code_depth)
|
|
11225
|
4 |
0 |
if ($token eq "\$" or $token eq "\@")
|
|
11227
|
2 |
2 |
if $ii < $max_ii and $$rtoken_type[$ii + 1] eq "b"
|
|
11239
|
0 |
4 |
if $ii < $max_ii and $$rtoken_type[$ii + 1] eq "b"
|
|
11242
|
4 |
0 |
if ($ii < $max_ii and $$rtokens[$ii + 1] eq "{")
|
|
11251
|
0 |
13 |
if ($token eq "{")
|
|
11255
|
4 |
9 |
if ($token eq "}")
|
|
11261
|
0 |
4 |
if ($token ne "<" or $ii >= $max_ii - 1 or $$rtokens[$ii + 1] ne "<")
|
|
11274
|
0 |
4 |
if ($$rtoken_type[$ii + 1] eq "~" and $ii < $max_ii - 2)
|
|
11280
|
2 |
2 |
if ($$rtoken_type[$ii + 1] eq "b" and $ii < $max_ii - 2)
|
|
11288
|
2 |
2 |
if ($next_type eq 'w') { }
|
|
|
2 |
0 |
elsif ($next_type eq q['] or $next_type eq '"' or $next_type eq '`') { }
|
|
11289
|
0 |
2 |
if ($saw_blank) { }
|
|
11294
|
2 |
0 |
if ($rmap->[$ii] >= $len_starting_lines)
|
|
11312
|
0 |
2 |
if $quote_char ne "'" and $rtokens->[$ii] eq "\\"
|
|
11315
|
2 |
0 |
if ($rmap->[$ii] >= $len_starting_lines)
|
|
11380
|
244 |
3027 |
if ($is_punct_char{$beginning_tok} or length $beginning_tok and not $beginning_tok =~ /^\s+$/) { }
|
|
11388
|
187 |
57 |
$matching_end_token{$beginning_tok} ? :
|
|
11394
|
295 |
2732 |
$i < 0 ? :
|
|
11399
|
3027 |
2 |
if ($rtoken_type->[$i] ne 'b') { }
|
|
11401
|
0 |
3027 |
if ($tok eq '#' and $allow_quote_comments) { }
|
|
11406
|
1 |
3026 |
if (length $tok > 1) { }
|
|
11407
|
1 |
0 |
if ($quote_pos <= 0)
|
|
11416
|
137 |
2890 |
$matching_end_token{$beginning_tok} ? :
|
|
11439
|
1 |
3270 |
if (not $is_punct_char{$beginning_tok} and $beginning_tok =~ /\w/) { }
|
|
11443
|
1 |
0 |
if ($in_quote == 1)
|
|
11451
|
3 |
1 |
if ($quote_pos == 0 or $i < 0)
|
|
11454
|
1 |
2 |
if ($tok eq "\\")
|
|
11457
|
1 |
0 |
unless $$rtokens[$i + 1] eq $end_tok
|
|
11460
|
0 |
1 |
if $i >= $max_token_index
|
|
11468
|
1 |
3 |
if ($quote_pos > 0) { }
|
|
11480
|
1 |
0 |
if ($quote_depth == 0)
|
|
11486
|
3 |
0 |
if ($old_pos <= length $tok)
|
|
11501
|
3027 |
9505 |
if ($tok eq $end_tok) { }
|
|
|
1 |
9504 |
elsif ($tok eq $beginning_tok) { }
|
|
|
459 |
9045 |
elsif ($tok eq '\\') { }
|
|
11504
|
3026 |
1 |
if ($quote_depth == 0)
|
|
11516
|
439 |
20 |
if $tok ne $end_tok and $tok ne $beginning_tok
|
|
11525
|
10 |
3261 |
if ($i > $max_token_index)
|
|
11596
|
0 |
0 |
$pos < 60 ? :
|
|
11598
|
0 |
0 |
$excess > 0 ? :
|
|
11600
|
0 |
0 |
if (defined $numc) { }
|
|
11601
|
0 |
0 |
if ($offset == 0) { }
|
|
11610
|
0 |
0 |
if ($offset == 0) { }
|
|
11647
|
0 |
0 |
if ($pos < 0 or $pos > length $underline)
|
|
11651
|
0 |
0 |
if ($excess > 0)
|
|
11688
|
6964 |
321 |
unless ($max_tokens_wanted)
|
|
11692
|
90254 |
7123 |
if ($str =~ /
|
|
11704
|
3386 |
19416 |
defined $4 ? :
|
|
|
45367 |
22802 |
defined $3 ? :
|
|
|
22085 |
68169 |
defined $2 ? :
|