| line |
true |
false |
branch |
|
240
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
275
|
0 |
0 |
if (not ref $self) { }
|
|
277
|
0 |
0 |
if ($self and length $self < 200)
|
|
305
|
1118 |
2 |
unless ($param)
|
|
307
|
0 |
1120 |
unless ($param =~ /^#/)
|
|
311
|
0 |
1120 |
if (Perl::Tidy::Formatter::bad_pattern($pattern))
|
|
335
|
3 |
557 |
if ($rOpts->{'sub-alias-list'})
|
|
353
|
2 |
558 |
if ($is_sub{'method'})
|
|
360
|
0 |
560 |
if ($rOpts->{'use-feature'})
|
|
361
|
0 |
0 |
if ($rOpts->{'use-feature'} =~ /\bnoclass\b/) { }
|
|
|
0 |
0 |
elsif ($rOpts->{'use-feature'} =~ /\bclass\b/) { }
|
|
394
|
560 |
0 |
if ($use_feature_class)
|
|
409
|
560 |
0 |
if ($rOpts->{'grep-alias-list'})
|
|
434
|
12 |
548 |
unless ($rOpts_indent_columns)
|
|
444
|
0 |
558 |
$rOpts->{'tabs'} ? :
|
|
|
2 |
558 |
$rOpts->{'entab-leading-whitespace'} ? :
|
|
445
|
0 |
560 |
unless ($tabsize)
|
|
475
|
0 |
562 |
unless (defined $source_object)
|
|
480
|
0 |
562 |
unless (ref $source_object)
|
|
568
|
0 |
562 |
if (_increment_count() > 1)
|
|
601
|
0 |
562 |
if (not $rsource) { }
|
|
|
0 |
562 |
elsif ($rsource eq 'ARRAY') { }
|
|
|
562 |
0 |
elsif ($rsource eq 'SCALAR') { }
|
|
641
|
1223 |
12 |
if ($line_index < @{$rinput_lines;})
|
|
656
|
0 |
0 |
if ($logger_object)
|
|
669
|
0 |
0 |
if ($logger_object)
|
|
680
|
32 |
0 |
if ($logger_object)
|
|
692
|
1854 |
6 |
if ($logger_object)
|
|
703
|
0 |
0 |
if ($logger_object)
|
|
714
|
0 |
0 |
if ($logger_object)
|
|
725
|
0 |
0 |
if ($logger_object)
|
|
739
|
0 |
0 |
if ($logger_object)
|
|
754
|
0 |
0 |
if ($logger_object)
|
|
767
|
0 |
0 |
if ($diagnostics_object)
|
|
796
|
560 |
2 |
if ($logger_object)
|
|
803
|
0 |
562 |
unless defined $maxle
|
|
804
|
0 |
562 |
unless defined $maxue
|
|
807
|
0 |
562 |
if ($level != $self->[17])
|
|
810
|
0 |
0 |
if ($level_diff < 0)
|
|
815
|
0 |
0 |
if ($maxle >= 0 and $level_diff > $maxle)
|
|
829
|
0 |
562 |
if ($self->[44] > 2)
|
|
833
|
0 |
562 |
if ($rOpts_look_for_hash_bang and not $self->[30])
|
|
840
|
0 |
562 |
if ($self->[6])
|
|
844
|
0 |
562 |
if ($self->[12])
|
|
849
|
0 |
562 |
if ($self->[11])
|
|
854
|
0 |
0 |
if ($self->[32] or $self->[31]) { }
|
|
868
|
0 |
562 |
if ($self->[1])
|
|
873
|
0 |
0 |
if ($here_doc_target) { }
|
|
886
|
0 |
0 |
if ($nearly_matched_here_target_at)
|
|
894
|
0 |
562 |
if ($self->[14])
|
|
898
|
0 |
0 |
$self->[13] ? :
|
|
907
|
0 |
562 |
if ($self->[25])
|
|
918
|
0 |
562 |
if ($maxue > 0 and $ue_count > $maxue)
|
|
925
|
546 |
16 |
unless ($self->[21])
|
|
926
|
0 |
546 |
if ($] < 5.006) { }
|
|
934
|
0 |
562 |
if ($self->[20])
|
|
939
|
548 |
14 |
unless ($self->[22])
|
|
945
|
12 |
550 |
if ($self->[42])
|
|
960
|
2 |
0 |
unless ($self->[23])
|
|
963
|
0 |
2 |
if ($] < "5.006")
|
|
1000
|
7668 |
562 |
if ($line_index < @{$rinput_lines;})
|
|
1007
|
562 |
7668 |
unless defined $input_line
|
|
1014
|
7667 |
1 |
if (chomp $input_line)
|
|
1020
|
24 |
7644 |
if ($other_line_endings{substr $input_line, -1})
|
|
1021
|
24 |
0 |
if ($input_line =~ s/([\r\035\032])+$//)
|
|
1081
|
24 |
7644 |
if ($self->[1]) { }
|
|
|
3 |
7641 |
elsif ($self->[6]) { }
|
|
|
47 |
7594 |
elsif ($self->[11]) { }
|
|
|
8 |
7586 |
elsif ($self->[12]) { }
|
|
|
0 |
7586 |
elsif ($self->[7]) { }
|
|
|
1 |
7585 |
elsif ($self->[4]) { }
|
|
|
48 |
7537 |
elsif ($self->[5]) { }
|
|
1091
|
4 |
20 |
if ($here_quote_character =~ /^\s/)
|
|
1094
|
9 |
15 |
if ($candidate_target eq $here_doc_target) { }
|
|
1100
|
0 |
9 |
if (@{$rhere_target_list;}) { }
|
|
1123
|
0 |
15 |
if ($candidate_target eq $here_doc_target)
|
|
1133
|
1 |
2 |
if ($input_line =~ /^\.[\s#]*$/) { }
|
|
1139
|
1 |
0 |
unless ($self->[6])
|
|
1151
|
0 |
2 |
if ($input_line =~ /^\s*format\s+\w+/)
|
|
1165
|
20 |
27 |
if ($input_line =~ /^=cut/)
|
|
1170
|
0 |
47 |
if ($input_line =~ /^\#\!.*perl\b/ and not $self->[5])
|
|
1183
|
2 |
6 |
if ($input_line =~ /$code_skipping_pattern_end/) { }
|
|
|
0 |
6 |
elsif ($input_line =~ /$code_skipping_pattern_begin/) { }
|
|
1218
|
0 |
1 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1237
|
6 |
42 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1253
|
15 |
6974 |
if (not $self->[30] and substr($input_line, 0, 2) eq "#!" and $input_line =~ /^\#\!.*perl\b/)
|
|
1260
|
0 |
15 |
if ($input_line =~ /^\#\!.*perl\s.*-.*P/)
|
|
1264
|
8 |
7 |
if ($input_line =~ /^\#\!.*perl\s.*-.*w/)
|
|
1268
|
1 |
14 |
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/) { }
|
|
1298
|
0 |
1 |
if ($self->[34]) { }
|
|
1317
|
5 |
7518 |
if ($rOpts_look_for_hash_bang and not $self->[30])
|
|
1326
|
0 |
7518 |
if ($input_line_number == 1 and $input_line =~ /^\s*\:\s*\#/)
|
|
1347
|
0 |
7518 |
if ($self->[7])
|
|
1356
|
14 |
7504 |
if ($self->[11])
|
|
1362
|
0 |
14 |
if ($input_line =~ /^=cut\b/) { }
|
|
1363
|
0 |
0 |
if ($self->[32] or $self->[31]) { }
|
|
1388
|
2 |
7502 |
if ($self->[12])
|
|
1397
|
9 |
7493 |
if (@{$rhere_target_list;})
|
|
1411
|
1 |
7501 |
if ($self->[4]) { }
|
|
|
6 |
7495 |
elsif ($self->[5]) { }
|
|
1417
|
0 |
1 |
if ($self->[29])
|
|
1432
|
0 |
6 |
if ($self->[28])
|
|
1447
|
558 |
310 |
unless ($self->[34] or $input_line =~ /^\s*$/ or $input_line =~ /^\s*#/)
|
|
1454
|
7 |
7488 |
if ($self->[35])
|
|
1460
|
1 |
7494 |
if ($self->[6])
|
|
1464
|
49 |
7446 |
if ($self->[14] and $self->[16] < 0) { }
|
|
|
48 |
7398 |
elsif ($self->[16] >= 0 and not $self->[14]) { }
|
|
1469
|
48 |
1 |
unless ((my $quote_target = $self->[15]) =~ /^\s*$/)
|
|
1501
|
1 |
561 |
if ($self->[18]) { }
|
|
|
1 |
560 |
elsif ($rOpts_look_for_hash_bang) { }
|
|
1522
|
13 |
858 |
if ($i == 1 and $line =~ /^\#\!/)
|
|
1528
|
296 |
562 |
if ($line =~ /^\s*#/)
|
|
1529
|
296 |
0 |
if (not $in_code_skipping) { }
|
|
1530
|
0 |
296 |
if ($rOpts_code_skipping and $line =~ /$code_skipping_pattern_begin/)
|
|
1537
|
0 |
0 |
if ($line =~ /$code_skipping_pattern_end/)
|
|
1543
|
0 |
562 |
if $in_code_skipping
|
|
1545
|
18 |
544 |
if $line =~ /^\s*$/
|
|
1580
|
544 |
0 |
if ($line =~ /^(\t+)?(\s+)?(\w+:[^:])?/)
|
|
1584
|
2 |
542 |
if ($1)
|
|
1586
|
79 |
465 |
if ($2)
|
|
1589
|
1 |
543 |
if ($3 and $rOpts_outdent_labels)
|
|
1607
|
0 |
0 |
if ($ris_block_list_function->{$pkg}{$sub})
|
|
1611
|
0 |
0 |
if ($ris_block_function->{$pkg}{$sub})
|
|
1975
|
8 |
0 |
if ($pretoken and length $pretoken > $numc and substr($pretoken, $numc) =~ /^(\d*)(.*)$/) { }
|
|
1982
|
8 |
0 |
defined $1 ? :
|
|
1983
|
8 |
0 |
defined $2 ? :
|
|
2000
|
5 |
3 |
if ($len_1)
|
|
2009
|
4 |
4 |
if ($len_2)
|
|
2042
|
125 |
127 |
defined $flag ? :
|
|
2192
|
0 |
0 |
unless $replacement_text =~ /<</
|
|
2216
|
0 |
0 |
if ($tokenizer->[1])
|
|
2223
|
0 |
0 |
if ($tokenizer->[0])
|
|
2264
|
3 |
483 |
if ($split_pretoken_flag)
|
|
2267
|
3 |
0 |
if ($i > 0 and $$rtokens[$i - 1] eq '^' and $self->split_pretoken(1)) { }
|
|
2333
|
6 |
4787 |
if ($last_nonblank_token eq '->') { }
|
|
|
4680 |
107 |
elsif (not $id_scan_state and $i_plus_1 <= $max_token_index and $fast_scan_context{$tok}) { }
|
|
|
0 |
107 |
elsif ($tok eq '->' and $i < $max_token_index and $rtokens->[$i_plus_1] eq '{' || $rtokens->[$i_plus_1] eq '[') { }
|
|
2347
|
4392 |
288 |
if ($rtoken_type->[$i_plus_1] eq 'w') { }
|
|
|
30 |
258 |
elsif ($rtoken_type->[$i_plus_1] eq '{' and $tok_begin eq '@' || $tok_begin eq '%') { }
|
|
2349
|
4276 |
116 |
if ($i_plus_1 < $max_token_index)
|
|
2351
|
1708 |
2568 |
if ($rtoken_type->[$i_next] eq "b" and $i_next < $max_token_index)
|
|
2358
|
4284 |
108 |
if ($pretype_next ne ":" and $pretype_next ne "'")
|
|
2441
|
479 |
4314 |
unless ($fast_scan_type)
|
|
2469
|
6 |
0 |
if ($input_line =~ /\G\s*
|
|
2478
|
0 |
6 |
$1 ? :
|
|
2489
|
5 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2490
|
1 |
5 |
if (not $next_char or $next_char eq "#")
|
|
2496
|
0 |
6 |
unless ($next_char)
|
|
2507
|
3 |
3 |
unless ($next_char =~ /^[\(\:\{\;\}]/)
|
|
2541
|
0 |
6 |
unless (new_statement_ok())
|
|
2548
|
6 |
0 |
if ($input_line =~ /\G\s*
|
|
2557
|
3 |
3 |
$1 ? :
|
|
2565
|
5 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2566
|
1 |
5 |
if (not $next_char or $next_char eq "#")
|
|
2571
|
0 |
6 |
unless ($next_char)
|
|
2586
|
2 |
4 |
unless ($next_char =~ /^[\:\d\{\;\}]/)
|
|
2638
|
343 |
0 |
if ($typ_d ne "d" and $typ_d eq '+' || $typ_d eq '-' and $i_d < $max_token_index)
|
|
2649
|
1715 |
261 |
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')
|
|
2663
|
1658 |
57 |
if ($tok_d eq 0 or substr($tok_d, 0, 1) ne 0)
|
|
2699
|
619 |
1658 |
unless (defined $number)
|
|
2708
|
9 |
0 |
if ($expecting == -1)
|
|
2709
|
0 |
9 |
if ($really_want_term{$last_nonblank_type})
|
|
2721
|
0 |
769 |
if ($expecting == 1)
|
|
2722
|
0 |
0 |
unless (defined $thing)
|
|
2725
|
0 |
0 |
if ($i_tok == 0)
|
|
2747
|
0 |
31 |
if $expecting == -1
|
|
2757
|
0 |
4 |
if $expecting == -1
|
|
2782
|
0 |
4038 |
if $expecting == 1
|
|
2786
|
1 |
4037 |
if ($identifier eq "\$^W")
|
|
2793
|
62 |
3940 |
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"))
|
|
2809
|
38 |
60 |
unless $Z_test_hash{$next_nonblank_token}
|
|
2824
|
240 |
1886 |
if ($want_paren) { }
|
|
|
14 |
1872 |
elsif ($statement_type =~ /^sub\b/) { }
|
|
2837
|
3 |
1869 |
if ($expecting == 1 and not $last_nonblank_token =~ /^(?:[\]\}\)\&]|\-\>)/)
|
|
2851
|
0 |
3 |
if ($last_last_nonblank_token eq 'do') { }
|
|
2867
|
0 |
3 |
if ($next_nonblank_token ne ")" and $next_nonblank_token ne "#")
|
|
2874
|
0 |
0 |
if ($last_nonblank_type eq 'C') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq 'i') { }
|
|
2879
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_token =~ /^\$/)
|
|
2889
|
0 |
0 |
if ($hint)
|
|
2906
|
61 |
2065 |
if ($last_nonblank_token eq '(') { }
|
|
2939
|
0 |
2126 |
if ($last_nonblank_type eq ")")
|
|
2949
|
1 |
2125 |
if ($last_nonblank_token eq ")")
|
|
2951
|
1 |
0 |
if (defined $rvars)
|
|
2974
|
2126 |
0 |
if (defined $rvars)
|
|
2976
|
2126 |
0 |
if ($type_lp and $type_lp eq "{")
|
|
2985
|
24 |
2102 |
if ($container_type =~ /^sub\b/)
|
|
2990
|
69 |
2057 |
if ($is_for_foreach{$rparen_type->[$paren_depth]})
|
|
2992
|
0 |
69 |
if ($num_sc > 0 and $num_sc != 2)
|
|
2997
|
2126 |
0 |
if ($paren_depth > 0)
|
|
3006
|
10 |
3065 |
if ($last_nonblank_type eq ',') { }
|
|
|
0 |
3065 |
elsif ($last_nonblank_token eq '(' and $last_nonblank_type eq '{') { }
|
|
3020
|
6 |
3069 |
if ($statement_type eq "use")
|
|
3035
|
35 |
2415 |
if ($is_for_foreach{$rparen_type->[$paren_depth]})
|
|
3043
|
34 |
1 |
if ($brace_depth == $rdepth_array->[2][0][$paren_depth] and $square_bracket_depth == $rdepth_array->[2][1][$paren_depth])
|
|
3060
|
0 |
1125 |
if $expecting == 1
|
|
3073
|
0 |
1164 |
if $expecting == 1
|
|
3086
|
0 |
0 |
if $expecting == 1
|
|
3103
|
0 |
207 |
if ($last_nonblank_type eq 'k' and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
0 |
207 |
elsif ($expecting == 0) { }
|
|
3117
|
0 |
0 |
if ($msg)
|
|
3124
|
78 |
129 |
if ($is_pattern) { }
|
|
3131
|
0 |
129 |
if ($$rtokens[$i + 1] eq "=")
|
|
3166
|
34 |
1636 |
if (substr($statement_type, 0, 3) eq 'sub') { }
|
|
|
4 |
1632 |
elsif (substr($statement_type, 0, 7) eq 'package') { }
|
|
|
0 |
1632 |
elsif ($statement_type eq 'case' || $statement_type eq 'when' and $statement_type eq $last_nonblank_token) { }
|
|
|
242 |
1390 |
elsif ($last_nonblank_token eq ')') { }
|
|
|
0 |
1390 |
elsif ($last_nonblank_token eq 'qw' and $is_for_foreach{$want_paren}) { }
|
|
3191
|
0 |
242 |
unless (defined $last_nonblank_token)
|
|
3196
|
228 |
14 |
if ($is_blocktype_with_paren{$last_nonblank_token}) { }
|
|
3199
|
228 |
0 |
if (defined $rvars)
|
|
3215
|
14 |
0 |
if ($rOpts_extended_syntax) { }
|
|
3239
|
0 |
0 |
if ($last_last_nonblank_token eq $want_paren)
|
|
3257
|
367 |
1303 |
if (is_non_structural_brace()) { }
|
|
3263
|
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')
|
|
3283
|
34 |
936 |
if ($block_type and $last_nonblank_type eq "w" and $last_nonblank_i >= 0)
|
|
3287
|
34 |
0 |
if ($routput_token_type->[$last_nonblank_i] eq "w")
|
|
3289
|
5 |
29 |
$is_grep_alias{$block_type} ? :
|
|
3295
|
38 |
1265 |
if ($statement_type eq "case" or $statement_type eq "when")
|
|
3298
|
4 |
34 |
if (not $block_type or $block_type eq "}")
|
|
3310
|
1666 |
4 |
if substr($block_type, 0, 8) ne "package "
|
|
3326
|
974 |
696 |
if ($block_type)
|
|
3327
|
1666 |
4 |
if (defined $rbrace_package->[$brace_depth]) { }
|
|
3337
|
367 |
1303 |
if ($rbrace_structural_type->[$brace_depth] eq "L")
|
|
3344
|
83 |
1587 |
if ($is_block_operator{$block_type})
|
|
3349
|
1670 |
0 |
if ($brace_depth > 0)
|
|
3362
|
107 |
19 |
if ($expecting != 1) { }
|
|
3368
|
104 |
3 |
if ($expecting == -1 or $next_type ne "b")
|
|
3382
|
8 |
21 |
if ($expecting != 1) { }
|
|
3412
|
1 |
186 |
if ($last_nonblank_type eq 'k' and $is_keyword_rejecting_question_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
1 |
185 |
elsif ($last_nonblank_type =~ /^[FUY]$/) { }
|
|
|
11 |
174 |
elsif ($expecting == 0) { }
|
|
3443
|
11 |
0 |
if ($msg)
|
|
3447
|
0 |
187 |
if ($is_pattern) { }
|
|
3465
|
0 |
238 |
if ($expecting == 0 and $last_nonblank_type eq "Z")
|
|
3466
|
0 |
0 |
if ($next_type ne "b" and $next_type ne "(" and $next_type ne "#")
|
|
3473
|
21 |
217 |
if ($expecting == -1) { }
|
|
3478
|
0 |
217 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
|
36 |
181 |
elsif ($$rtokens[$i + 1] eq '*') { }
|
|
3487
|
0 |
36 |
if ($$rtokens[$i + 1] eq "=")
|
|
3505
|
10 |
140 |
if ($expecting != 1) { }
|
|
3507
|
2 |
8 |
if ($type eq ".")
|
|
3508
|
0 |
2 |
if $expecting == -1
|
|
3525
|
0 |
271 |
if ($input_line_number == 1 and $last_nonblank_i == -1) { }
|
|
|
22 |
249 |
elsif ($statement_type =~ /^(sub|package)\b/) { }
|
|
|
1 |
248 |
elsif ($rparen_type->[$paren_depth] =~ /^sub\b/ and not is_balanced_closing_container(3)) { }
|
|
|
15 |
233 |
elsif ($is_my_our_state{$statement_type} and $rcurrent_depth->[3] == 0) { }
|
|
|
46 |
187 |
elsif ($is_case_default{$statement_type} and not is_balanced_closing_container(3)) { }
|
|
3577
|
0 |
187 |
if ($last_nonblank_token eq "?")
|
|
3589
|
13 |
214 |
if ($expecting == -1) { }
|
|
|
211 |
3 |
elsif ($expecting == 1) { }
|
|
3593
|
13 |
0 |
unless (defined $number)
|
|
3598
|
2 |
1 |
if ($next_type eq "w")
|
|
3608
|
0 |
438 |
if $expecting == 1
|
|
3620
|
0 |
202 |
if ($expecting == 0)
|
|
3621
|
0 |
0 |
if ($next_type ne "b" and $next_type ne "(")
|
|
3625
|
192 |
10 |
if ($expecting == -1)
|
|
3644
|
288 |
307 |
unless (is_non_structural_brace())
|
|
3660
|
288 |
307 |
if ($rsquare_bracket_structural_type->[$square_bracket_depth] eq "{")
|
|
3668
|
20 |
575 |
if ($rsquare_bracket_type->[$square_bracket_depth] eq "~~")
|
|
3672
|
595 |
0 |
if ($square_bracket_depth > 0)
|
|
3681
|
10 |
431 |
if ($expecting != 1 and $is_file_test_operator{$next_tok}) { }
|
|
|
330 |
101 |
elsif ($expecting == -1) { }
|
|
|
97 |
4 |
elsif ($expecting == 1) { }
|
|
3690
|
0 |
10 |
if ($next_nonblank_token eq '=') { }
|
|
3703
|
288 |
42 |
unless (defined $number)
|
|
3710
|
4 |
0 |
if ($next_type eq "w")
|
|
3723
|
5 |
7 |
if ($expecting == -1)
|
|
3725
|
5 |
0 |
if ($last_nonblank_token eq '{' and not $next_tok =~ /^\d/ and $next_tok =~ /^\w/) { }
|
|
3730
|
1 |
4 |
if ($next_tok eq "W")
|
|
3748
|
0 |
0 |
if ($last_last_nonblank_type ne "t" and $last_last_nonblank_type ne "Z" and $last_last_nonblank_token ne "\$#")
|
|
3757
|
0 |
0 |
unless ($self->error_if_expecting_TERM)
|
|
3782
|
7 |
0 |
if ($expecting != 1) { }
|
|
3792
|
7 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
3796
|
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+$/) { }
|
|
3801
|
0 |
0 |
unless $here_quote_character
|
|
3814
|
0 |
0 |
unless ($saw_error)
|
|
3847
|
0 |
2 |
if $i >= $max_token_index
|
|
3848
|
2 |
0 |
if ($expecting != 1) { }
|
|
3858
|
2 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
3860
|
0 |
2 |
if (length $here_doc_target > 80) { }
|
|
|
0 |
2 |
elsif (not $here_doc_target =~ /^[A-Z_]\w+$/) { }
|
|
3882
|
0 |
0 |
unless ($saw_error)
|
|
3921
|
37 |
9 |
if ($expecting == 1) { }
|
|
|
7 |
2 |
elsif ($expecting == -1) { }
|
|
3932
|
0 |
2 |
if ($next_nonblank_token eq "#")
|
|
3938
|
0 |
2 |
if ($next_nonblank_token eq "\$")
|
|
3948
|
0 |
1025 |
if ($last_nonblank_type eq $tok)
|
|
3954
|
18 |
1007 |
if ($statement_type eq "use")
|
|
3965
|
0 |
2 |
if ($expecting == 1) { }
|
|
|
2 |
0 |
elsif ($expecting == -1) { }
|
|
3976
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
3982
|
0 |
0 |
if ($next_nonblank_token eq "\$")
|
|
3993
|
0 |
58 |
if $expecting == -1 and $last_nonblank_token ne ","
|
|
4003
|
8 |
66 |
if $expecting == -1 and $last_nonblank_token ne ","
|
|
4013
|
1 |
9 |
if $expecting == -1
|
|
4023
|
0 |
1934 |
if $expecting == 1
|
|
4027
|
0 |
1934 |
unless (defined $number)
|
|
4053
|
18 |
21 |
if ($next_nonblank_token eq '(') { }
|
|
4060
|
2 |
16 |
if ($tok eq "prototype")
|
|
4081
|
2 |
0 |
if ($i > $i_beg)
|
|
4113
|
14 |
772 |
if ($ris_constant->{$current_package}{$tok}) { }
|
|
|
0 |
772 |
elsif ($ris_user_function->{$current_package}{$tok}) { }
|
|
|
0 |
772 |
elsif ($tok =~ /^v\d+$/) { }
|
|
4144
|
3 |
769 |
if ($expecting == 1 and substr($tok, 0, 1) eq 'x' and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/) { }
|
|
4152
|
3 |
0 |
if ($self->split_pretoken(1))
|
|
4171
|
15 |
2 |
if ($tok eq 'x') { }
|
|
4172
|
0 |
15 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
4188
|
2 |
0 |
if ($self->split_pretoken(1))
|
|
4204
|
16 |
0 |
if ($next_nonblank_tok2)
|
|
4206
|
1 |
15 |
if ($is_keyword{$next_nonblank_tok2}) { }
|
|
4241
|
396 |
2248 |
if ($is_blocktype_with_paren{$tok})
|
|
4242
|
309 |
87 |
if (new_statement_ok())
|
|
4248
|
175 |
2469 |
if ($is_use_require{$tok}) { }
|
|
|
629 |
1840 |
elsif ($is_my_our_state{$tok}) { }
|
|
|
29 |
1811 |
elsif ($tok eq 'elsif') { }
|
|
|
44 |
1767 |
elsif ($tok eq 'else') { }
|
|
|
56 |
1711 |
elsif ($tok eq 'when' or $tok eq 'case' or $tok eq 'default') { }
|
|
|
1 |
1710 |
elsif ($tok eq 'err') { }
|
|
4250
|
0 |
175 |
if $expecting == 1
|
|
4263
|
0 |
29 |
if ($last_nonblank_token ne ";" and not $is_if_elsif_unless{$last_nonblank_block_type})
|
|
4277
|
0 |
44 |
if ($last_nonblank_token ne ";" and not $is_if_elsif_unless_case_when{$last_nonblank_block_type} and not $is_if_elsif_unless_case_when{$statement_type})
|
|
4308
|
1 |
0 |
if ($expecting != 1)
|
|
4321
|
0 |
202 |
if ($expecting == 1)
|
|
4345
|
0 |
0 |
unless ($paren_list_possible)
|
|
4356
|
119 |
83 |
$tok eq 'qw' && $rOpts_trim_qw ? :
|
|
4370
|
108 |
850 |
if ($statement_type eq "use" and $last_nonblank_token eq "use")
|
|
4376
|
933 |
25 |
if ($type eq "w")
|
|
4378
|
0 |
933 |
if ($expecting == 1)
|
|
4387
|
0 |
0 |
if ($rsaw_use_module->{$current_package}{'RPerl'} and $tok =~ /^sse_(mul|div|add|sub)$/) { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq '->') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq 'C') { }
|
|
4412
|
0 |
0 |
unless ($tok =~ /::$/)
|
|
4427
|
276 |
657 |
if ($next_tok eq "(")
|
|
4434
|
0 |
276 |
if ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
|
276 |
0 |
elsif ($last_nonblank_type ne '->') { }
|
|
4446
|
0 |
933 |
if ($tok eq "_" and $last_nonblank_type eq "F")
|
|
4452
|
0 |
933 |
if ($tok eq "case" and $rbrace_type->[$brace_depth] eq "switch" or $tok eq "when" and $rbrace_type->[$brace_depth] eq "given")
|
|
4461
|
241 |
692 |
if ($next_nonblank_token eq "(")
|
|
4468
|
0 |
241 |
if ($tok eq 'switch' or $tok eq 'given') { }
|
|
|
0 |
241 |
elsif ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
4494
|
3 |
0 |
if ($is_sub{$tok_kw} and $expecting != 1 and $next_nonblank_token eq ":")
|
|
4524
|
266 |
5572 |
if ($$rtokens[$i + 1] eq ":" and $$rtokens[$i + 2] eq ":")
|
|
4530
|
39 |
5799 |
if ($self->[13])
|
|
4532
|
39 |
0 |
if $is_attribute
|
|
4555
|
670 |
5129 |
if ($last_nonblank_token eq '->') { }
|
|
|
786 |
4343 |
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*$/) { }
|
|
|
100 |
4243 |
elsif ($next_nonblank_token eq '}' and $last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L') { }
|
|
|
17 |
4226 |
elsif ($expecting == 1 and substr($tok, 0, 1) eq 'x' and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/) { }
|
|
|
3 |
4223 |
elsif ($tok_kw eq 'CORE::') { }
|
|
|
14 |
4209 |
elsif ($tok eq 'strict' and $last_nonblank_token eq 'use') { }
|
|
|
7 |
4202 |
elsif ($tok eq 'warnings' and $last_nonblank_token eq 'use') { }
|
|
|
0 |
4202 |
elsif ($tok eq 'AutoLoader' and $self->[26] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+AutoLoader\b/ || $input_line =~ /\bISA\s*=.*\bAutoLoader\b/) { }
|
|
|
0 |
4202 |
elsif ($tok eq 'SelfLoader' and $self->[27] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+SelfLoader\b/ || $input_line =~ /\bISA\s*=.*\bSelfLoader\b/) { }
|
|
|
16 |
4186 |
elsif ($tok eq 'constant' and $last_nonblank_token eq 'use') { }
|
|
|
202 |
3984 |
elsif ($is_q_qq_qw_qx_qr_s_y_tr_m{$tok}) { }
|
|
|
33 |
3951 |
elsif ($next_nonblank_token eq ':' and $$rtokens[$i_next + 1] ne ':' and $i_next <= $max_token_index and not $self->sub_attribute_ok_here($tok_kw, $next_nonblank_token, $i_next) and new_statement_ok()) { }
|
|
|
303 |
3648 |
elsif ($is_sub{$tok_kw}) { }
|
|
|
30 |
3618 |
elsif ($is_package{$tok_kw}) { }
|
|
|
1 |
3617 |
elsif ($tok_kw eq 'format' and new_statement_ok()) { }
|
|
|
7 |
3610 |
elsif (defined $is_END_DATA{$tok_kw}) { }
|
|
|
2644 |
966 |
elsif ($is_keyword{$tok_kw}) { }
|
|
|
19 |
947 |
elsif ($last_nonblank_type eq 'k' and $is_redo_last_next_goto{$last_nonblank_token}) { }
|
|
4680
|
15 |
18 |
unless ($tok =~ /[A-Z]/)
|
|
4694
|
10 |
293 |
if ($tok_kw eq 'method' and $guess_if_method) { }
|
|
4695
|
7 |
3 |
if ($expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->method_ok_here) { }
|
|
4707
|
0 |
293 |
if $expecting == 1
|
|
4722
|
8 |
22 |
if ($tok_kw eq 'class') { }
|
|
4723
|
4 |
4 |
if ($expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->class_ok_here) { }
|
|
4732
|
0 |
22 |
if $expecting == 1
|
|
4786
|
184 |
2584 |
unless (@{$routput_token_list;})
|
|
4818
|
183 |
2585 |
if ($in_quote)
|
|
4829
|
116 |
2469 |
if (++$i > $max_token_index)
|
|
4832
|
144 |
2325 |
if ($allowed_quote_modifiers)
|
|
4835
|
30 |
114 |
if ($rtokens->[$i] =~ /^[A-Za-z_]/)
|
|
4851
|
0 |
30 |
if ($saw_modifier_e and $i_tok >= 0)
|
|
4859
|
0 |
0 |
if ($rht)
|
|
4862
|
0 |
0 |
if ($i_tok < 0)
|
|
4869
|
30 |
0 |
if (defined pos $str) { }
|
|
4872
|
30 |
0 |
if (pos $str == length $str) { }
|
|
4873
|
0 |
30 |
if (++$i > $max_token_index)
|
|
4899
|
0 |
0 |
if (++$i > $max_token_index)
|
|
5103
|
14 |
7504 |
if (substr($untrimmed_input_line, 0, 1) eq "=" and $untrimmed_input_line =~ /^=[A-Za-z_]/)
|
|
5110
|
14 |
0 |
if (not $in_quote and $self->operator_expected("=", "b", $blank_after_Z) == -1)
|
|
5126
|
47 |
7457 |
if ($in_quote and $quote_type eq 'Q') { }
|
|
5135
|
797 |
6660 |
if (not length $input_line) { }
|
|
|
6651 |
9 |
elsif ($input_line =~ /\S/g) { }
|
|
5143
|
3547 |
3104 |
if ($spaces > 0)
|
|
5149
|
213 |
3334 |
if (ord substr($untrimmed_input_line, 0, 1) == 9 and $untrimmed_input_line =~ /^(\t+)/)
|
|
5168
|
7320 |
184 |
unless ($in_quote)
|
|
5171
|
806 |
6514 |
unless (length $input_line)
|
|
5184
|
788 |
5726 |
if (substr($input_line, 0, 1) eq "#")
|
|
5187
|
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/)
|
|
5287
|
2768 |
48058 |
if ($in_quote)
|
|
5289
|
299 |
2469 |
if $in_quote or $i > $max_token_index
|
|
5292
|
35304 |
15223 |
if ($type ne "b" and $type ne "CORE::")
|
|
5295
|
1592 |
33712 |
if ($type eq "n" and $tok ne 0)
|
|
5297
|
9 |
1583 |
if ($last_nonblank_token eq 'eq') { }
|
|
|
0 |
1583 |
elsif ($last_nonblank_token eq 'ne') { }
|
|
5309
|
29532 |
5772 |
if ($i_tok >= 0)
|
|
5321
|
29531 |
1 |
unless ($type eq "R" and $last_nonblank_type eq "Z")
|
|
5332
|
886 |
34418 |
if ($last_last_nonblank_token eq "->")
|
|
5333
|
675 |
211 |
if ($last_nonblank_type eq "w" or $last_nonblank_type eq "i")
|
|
5343
|
44755 |
5772 |
if ($i_tok >= 0)
|
|
5385
|
15365 |
35162 |
if $pre_type eq "b"
|
|
5390
|
328 |
34834 |
if $pre_type eq "#"
|
|
5393
|
17 |
34817 |
if ($id_scan_state)
|
|
5395
|
10 |
7 |
if ($is_sub{$id_scan_state} or $is_package{$id_scan_state}) { }
|
|
5402
|
1 |
16 |
if ($id_scan_state)
|
|
5408
|
0 |
1 |
if $i > $max_token_index
|
|
5415
|
0 |
1 |
if $i_next > $max_token_index
|
|
5421
|
9 |
7 |
if $i > 0 or $type
|
|
5440
|
2561 |
3122 |
if ($can_start_digraph{$tok} and $i < $max_token_index and $is_digraph{$tok . $$rtokens[$i + 1]})
|
|
5460
|
16 |
2545 |
if ($test_tok eq "//" and $last_nonblank_type ne "Z")
|
|
5468
|
4 |
12 |
if $expecting == -1
|
|
5474
|
39 |
2522 |
if ($test_tok eq "**")
|
|
5475
|
37 |
2 |
if ($last_nonblank_type ne "Z")
|
|
5478
|
2520 |
0 |
if ($combine_ok and $test_tok ne "/=" and $test_tok ne "x=" and $test_tok ne "*=")
|
|
5500
|
77 |
2443 |
if ($is_trigraph{$test_tok}) { }
|
|
5509
|
1 |
2442 |
if ($test_tok eq "<<>")
|
|
5511
|
1 |
0 |
if ($is_tetragraph{$test_tok})
|
|
5526
|
8397 |
26427 |
unless (defined $expecting)
|
|
5551
|
5838 |
28986 |
if ($pre_type eq "w")
|
|
5553
|
8 |
5830 |
if $is_last
|
|
5564
|
1934 |
27052 |
if ($pre_type eq "d")
|
|
5573
|
25317 |
1735 |
if ($code)
|
|
5575
|
2367 |
22950 |
if $in_quote
|
|
5580
|
5772 |
138 |
if ($i_tok >= 0)
|
|
5589
|
5437 |
473 |
if ($type ne "b" and $type ne "#")
|
|
5605
|
0 |
5910 |
if ($level_in_tokenizer < 0)
|
|
5606
|
0 |
0 |
if ($input_line =~ /^\s*(sub|package)\s+(\w+)/)
|
|
5613
|
184 |
5726 |
$in_quote ? :
|
|
5646
|
41555 |
9156 |
if (not $routput_type_sequence->[$i]) { }
|
|
5654
|
2676 |
38879 |
if ($is_semicolon_or_t{$type_i}) { }
|
|
|
0 |
38879 |
elsif (not $is_valid_token_type{$type_i}) { }
|
|
5656
|
172 |
2504 |
if ($is_END_DATA_format_sub{$tok_i})
|
|
5711
|
4578 |
4578 |
if ($is_opening_or_ternary_type{$type_i}) { }
|
|
|
4578 |
0 |
elsif ($is_closing_or_ternary_type{$type_i}) { }
|
|
5713
|
187 |
4391 |
if ($type_i eq '?') { }
|
|
5715
|
8 |
179 |
if ($routput_indent_flag->[$i] > 0)
|
|
5728
|
4084 |
307 |
if ($type_i eq "{" or $type_i eq "L")
|
|
5732
|
974 |
3110 |
if ($routput_block_type->[$i]) { }
|
|
5749
|
4391 |
187 |
if ($type_i ne ":")
|
|
5751
|
0 |
4391 |
if ($char ne $matching_start_token{$tok_i})
|
|
5756
|
375 |
486 |
if ($type_i eq "}" or $type_i eq "R" or $type_i eq ":" and $routput_indent_flag->[$i] < 0)
|
|
5767
|
0 |
4092 |
if ($level_in_tokenizer < 0)
|
|
5768
|
0 |
0 |
unless ($self->[33])
|
|
5776
|
4092 |
0 |
if (length $nesting_block_string > 1)
|
|
5804
|
1578 |
7578 |
unless (@levels)
|
|
5824
|
5910 |
0 |
if (@levels)
|
|
5992
|
24 |
8403 |
if (defined $op_expected)
|
|
6011
|
2647 |
5756 |
if ($last_nonblank_type eq 'k') { }
|
|
|
3593 |
2163 |
elsif ($last_nonblank_type eq '}') { }
|
|
|
1985 |
178 |
elsif ($is_n_v{$last_nonblank_type}) { }
|
|
|
137 |
41 |
elsif ($last_nonblank_type eq 'q') { }
|
|
|
40 |
1 |
elsif ($last_nonblank_type eq 'Z') { }
|
|
6014
|
7 |
2640 |
if ($expecting_operator_token{$last_nonblank_token}) { }
|
|
|
2541 |
99 |
elsif ($expecting_term_token{$last_nonblank_token}) { }
|
|
6025
|
1 |
2540 |
if ($tok eq '/' and $next_type eq '/' and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
0 |
2540 |
elsif ($tok eq '?' and $last_nonblank_token eq 'split') { }
|
|
6069
|
82 |
3511 |
if ($is_block_operator{$last_nonblank_token}) { }
|
|
|
2123 |
1388 |
elsif ($is_paren_dollar{substr $last_nonblank_token, 0, 1} or substr($last_nonblank_token, 0, 2) eq '->') { }
|
|
|
20 |
1368 |
elsif ($last_nonblank_token eq '~~') { }
|
|
6080
|
0 |
2123 |
if ($last_nonblank_token eq "\$")
|
|
6101
|
0 |
1368 |
if ($tok eq '/' and $next_type eq '/' and $last_nonblank_token eq ']') { }
|
|
|
1 |
1367 |
elsif ($tok eq '?') { }
|
|
6132
|
11 |
1974 |
if ($statement_type eq "use")
|
|
6141
|
0 |
137 |
if ($last_nonblank_token eq 'prototype') { }
|
|
|
3 |
134 |
elsif ($statement_type =~ /^package\b/) { }
|
|
6162
|
2 |
38 |
if ($last_nonblank_token =~ /^\w/) { }
|
|
|
0 |
38 |
elsif ($tok eq 'x' and $next_type =~ /^[\(\$\@\%]$/) { }
|
|
|
4 |
34 |
elsif ($is_weird_parsing_rule_exception{$tok}) { }
|
|
|
0 |
34 |
elsif ($blank_after_Z and $next_type ne 'b') { }
|
|
|
9 |
25 |
elsif ($tok =~ m[^([x/\+\-\*\%\&\.]|\>\>)$]) { }
|
|
6204
|
9 |
0 |
if ($statement_type ne "use")
|
|
6250
|
59 |
377 |
if ($last_nonblank_token eq '{') { }
|
|
|
99 |
278 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
6298
|
90 |
1213 |
if ($last_nonblank_token eq '{' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
48 |
1165 |
elsif ($last_nonblank_token eq ';') { }
|
|
|
9 |
1156 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
34 |
1122 |
elsif ($last_nonblank_type eq 'J') { }
|
|
|
481 |
641 |
elsif ($is_code_block_token{$last_nonblank_token} or $is_grep_alias{$last_nonblank_token}) { }
|
|
|
295 |
346 |
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 |
346 |
elsif ($statement_type =~ /^(sub|package)\b/) { }
|
|
|
0 |
346 |
elsif ($last_nonblank_type eq 'G') { }
|
|
|
22 |
324 |
elsif ($last_nonblank_type eq 'w') { }
|
|
|
81 |
243 |
elsif ($last_nonblank_token eq '(') { }
|
|
|
14 |
229 |
elsif ($last_nonblank_token =~ /\(\)$/) { }
|
|
6304
|
90 |
0 |
if ($rbrace_type->[$brace_depth]) { }
|
|
6330
|
9 |
0 |
if ($last_nonblank_block_type) { }
|
|
6368
|
0 |
481 |
if ($last_nonblank_type eq 'k' and $last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless') { }
|
|
6407
|
1 |
21 |
if $statement_type eq "use"
|
|
6421
|
1 |
80 |
if ($paren_type and $is_sort_map_grep{$paren_type}) { }
|
|
6466
|
5 |
163 |
if ($next_nonblank_token eq '}') { }
|
|
6494
|
139 |
24 |
if ($next_nonblank_token ne "#")
|
|
6503
|
155 |
8 |
if (defined $rpre_types and @{$rpre_types;})
|
|
6513
|
59 |
104 |
if $pre_types[0] eq "b"
|
|
6521
|
1 |
162 |
if ($pre_types[$j] =~ /^[\'\"]/) { }
|
|
|
8 |
154 |
elsif ($pre_types[$j] eq 'd') { }
|
|
|
71 |
83 |
elsif ($pre_types[$j] eq 'w') { }
|
|
|
0 |
83 |
elsif ($pre_types[$j] eq '-' and $pre_types[++$j] eq 'w') { }
|
|
6526
|
1 |
0 |
if ($pre_types[$k] eq $quote_mark)
|
|
6545
|
80 |
83 |
if ($j > $jbeg)
|
|
6547
|
73 |
7 |
if $pre_types[$j] eq "b"
|
|
6550
|
18 |
62 |
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 ">")
|
|
6567
|
145 |
18 |
if ($code_block_type)
|
|
6573
|
18 |
127 |
if $code_block_type =~ /^\w/
|
|
6588
|
0 |
0 |
if (++$self->[38] <= 6)
|
|
6598
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_i >= 0)
|
|
6601
|
0 |
0 |
if ($$rpretoken_type[$i_tok - 1] eq 'b') { }
|
|
6607
|
0 |
0 |
if ($num > 40)
|
|
6744
|
4578 |
13734 |
if $bb == $aa
|
|
6750
|
187 |
4391 |
if ($aa == 3)
|
|
6752
|
17 |
170 |
if ($cd_aa > 1)
|
|
6753
|
16 |
1 |
if ($$rnested_ternary_flag[$cd_aa - 1] == 0)
|
|
6755
|
8 |
8 |
if ($pdepth == $total_depth - 1)
|
|
6778
|
39 |
8 |
if $cd_aa <= 0
|
|
6782
|
0 |
8 |
if $bb == $aa
|
|
6784
|
8 |
0 |
if $rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb]
|
|
6805
|
4578 |
0 |
if ($cd_aa > 0) { }
|
|
6809
|
187 |
4391 |
if ($aa == 3)
|
|
6818
|
1 |
0 |
if ($aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w" and $rbrace_structural_type->[$brace_depth] eq "L")
|
|
6828
|
4578 |
13734 |
if $bb == $aa
|
|
6830
|
0 |
13734 |
if ($rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb])
|
|
6836
|
0 |
0 |
if ($saw_brace_error <= 6 and $diff > 0 || $saw_brace_error <= 0)
|
|
6851
|
0 |
0 |
if ($diff == 1 or $diff == -1) { }
|
|
6857
|
0 |
0 |
$diff > 0 ? :
|
|
6866
|
0 |
0 |
if ($diff > 0)
|
|
6887
|
0 |
0 |
if ($saw_brace_error <= 6)
|
|
6897
|
0 |
0 |
if $closing_brace_names[$aa] ne "':'"
|
|
6911
|
0 |
2248 |
if ($cd_aa)
|
|
6941
|
6 |
176 |
if length $line <= 0
|
|
6942
|
14 |
162 |
if $line =~ /^#/
|
|
6960
|
25 |
144 |
if length $line <= 0
|
|
6961
|
21 |
123 |
if $line =~ /^#/
|
|
6968
|
35 |
320 |
if $tok =~ /
|
|
6995
|
0 |
11 |
if ($i >= $max_token_index) { }
|
|
7030
|
11 |
0 |
if ($in_quote) { }
|
|
7048
|
0 |
0 |
if ($tok eq ":")
|
|
7049
|
0 |
0 |
if ($tok eq "'")
|
|
7050
|
0 |
0 |
if ($tok eq "\"")
|
|
7052
|
0 |
0 |
if ($s_quote % 2 or $d_quote % 2 or $colons) { }
|
|
|
0 |
0 |
elsif ($self->pattern_expected($i, $rtokens, $max_token_index) >= 0) { }
|
|
7099
|
0 |
0 |
if ($i >= $max_token_index) { }
|
|
7107
|
0 |
0 |
if ($divide_possible < 0)
|
|
7143
|
0 |
0 |
if ($in_quote) { }
|
|
7147
|
0 |
0 |
if ($divide_possible >= 0) { }
|
|
7168
|
0 |
0 |
if ($pattern_expected >= 0) { }
|
|
7171
|
0 |
0 |
if ($divide_possible >= 0) { }
|
|
7179
|
0 |
0 |
if ($is_known_constant{$last_nonblank_token}) { }
|
|
|
0 |
0 |
elsif ($is_known_function{$last_nonblank_token}) { }
|
|
|
0 |
0 |
elsif ($divide_possible > $pattern_expected) { }
|
|
|
0 |
0 |
elsif ($is_pattern_by_spacing) { }
|
|
7222
|
0 |
0 |
if ($divide_possible >= 0) { }
|
|
7229
|
0 |
0 |
if ($is_pattern_by_spacing) { }
|
|
7265
|
0 |
0 |
if ($line =~ /^$next_token$/)
|
|
7270
|
0 |
0 |
if $k >= $HERE_DOC_WINDOW
|
|
7273
|
0 |
0 |
unless ($here_doc_expected)
|
|
7275
|
0 |
0 |
if (not defined $line) { }
|
|
7282
|
0 |
0 |
if (not $ris_constant->{$current_package}{$next_token}) { }
|
|
7317
|
9 |
1665 |
if ($tok eq "::")
|
|
7318
|
0 |
1674 |
if ($tok eq "->")
|
|
7327
|
1674 |
0 |
if ($input_line =~ /\G\s*((?:\w*(?:'|::)))*(?:(?:->)?(\w+))?/cg) { }
|
|
7338
|
1669 |
5 |
if (defined $2)
|
|
7339
|
274 |
1400 |
if (defined $1) { }
|
|
7345
|
0 |
274 |
if (not $sub_name and substr($package, -1, 1) eq "'")
|
|
7350
|
9 |
265 |
if ($package =~ /^\:/)
|
|
7357
|
0 |
1400 |
if ($is_keyword{$tok} and $last_nonblank_type ne "->")
|
|
7363
|
1004 |
670 |
if ($type eq "w" and $last_nonblank_type ne "->")
|
|
7367
|
2 |
1002 |
if ($tok =~ /^v\d[_\d]*$/) { }
|
|
|
12 |
990 |
elsif ($ris_constant->{$package}{$sub_name}) { }
|
|
|
1 |
989 |
elsif ($last_nonblank_token eq 'sort' and $last_nonblank_type eq 'k') { }
|
|
|
0 |
989 |
elsif ($ris_block_function->{$package}{$sub_name}) { }
|
|
|
0 |
989 |
elsif ($ris_block_list_function->{$package}{$sub_name}) { }
|
|
|
6 |
983 |
elsif ($ris_user_function->{$package}{$sub_name}) { }
|
|
|
4 |
979 |
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]}) { }
|
|
7371
|
2 |
0 |
if ($input_line =~ /\G(\.\d[_\d]*)+/cg)
|
|
7448
|
4 |
0 |
if (pos $input_line == length $input_line or $input_line =~ /\G[;\s]/cg) { }
|
|
7464
|
1 |
3 |
if ($sub_name =~ /[a-z]/)
|
|
7468
|
1 |
0 |
if ($input_line =~ /\G\s*\(/cg)
|
|
7494
|
0 |
1674 |
if ($error)
|
|
7540
|
10 |
322 |
if ($id_scan_state) { }
|
|
7556
|
2 |
330 |
if ($i_beg > $max_token_index) { }
|
|
7562
|
0 |
330 |
if ($next_nonblank_token eq "#")
|
|
7563
|
0 |
0 |
if ($tok ne "\$")
|
|
7568
|
310 |
20 |
if ($next_nonblank_token =~ /^\s/)
|
|
7572
|
4 |
306 |
if ($next_nonblank_token =~ /(^#|^\s*$)/)
|
|
7579
|
326 |
6 |
unless ($blank_line)
|
|
7581
|
300 |
26 |
if ($is_sub{$id_scan_state}) { }
|
|
|
26 |
0 |
elsif ($is_package{$id_scan_state}) { }
|
|
7610
|
0 |
332 |
if ($id_scan_state and not defined $type && $type)
|
|
7633
|
0 |
138 |
unless defined $package
|
|
7634
|
0 |
138 |
unless defined $subname
|
|
7635
|
34 |
104 |
if (defined $proto) { }
|
|
7638
|
5 |
29 |
if ($proto) { }
|
|
7643
|
1 |
4 |
if ($proto =~ /\&/)
|
|
7647
|
0 |
1 |
if ($proto =~ /\&$/) { }
|
|
7698
|
26 |
0 |
if ($input_line =~ /\G\s*((?:\w*(?:'|::))*\w*)/cg) { }
|
|
7700
|
26 |
0 |
defined $1 && $1 ? :
|
|
7702
|
0 |
26 |
if ($package =~ /^\:/)
|
|
7715
|
0 |
26 |
if ($error)
|
|
7735
|
26 |
0 |
if ($next_nonblank_token =~ /^([v\.\d;\{\}\#\:])|v\d|\d+$/) { }
|
|
7819
|
0 |
486 |
if ($tok_begin eq ":")
|
|
7848
|
31 |
483 |
if ($tok eq '$') { }
|
|
|
253 |
230 |
elsif ($tok =~ /^\w/) { }
|
|
|
16 |
214 |
elsif ($tok eq '::') { }
|
|
|
0 |
214 |
elsif ($tok =~ /^[\@\%\&\*]$/ and $identifier =~ /\-\>$/) { }
|
|
|
0 |
214 |
elsif ($tok eq q['] and $allow_tick) { }
|
|
|
99 |
115 |
elsif ($tok eq '#') { }
|
|
|
38 |
77 |
elsif ($tok eq '{') { }
|
|
|
20 |
57 |
elsif ($tok =~ /^\s*$/) { }
|
|
|
11 |
46 |
elsif ($tok eq '^') { }
|
|
7853
|
0 |
31 |
if ($i == $max_token_index)
|
|
7863
|
29 |
224 |
$tok =~ /^\d/ ? :
|
|
7892
|
95 |
4 |
if (not $last_tok_is_blank || $in_prototype_or_signature and $identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/ and not $is_punct_var) { }
|
|
7919
|
0 |
4 |
if ($identifier eq '->') { }
|
|
|
0 |
4 |
elsif ($is_punct_var) { }
|
|
|
4 |
0 |
elsif ($id_scan_state eq $scan_state_SIGIL) { }
|
|
7931
|
1 |
37 |
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]/) { }
|
|
7955
|
26 |
11 |
if ($identifier eq "\$" or $i == 0)
|
|
7968
|
20 |
0 |
if ($identifier =~ /^[\$\%\*\&\@]/) { }
|
|
|
0 |
0 |
elsif ($identifier eq '->') { }
|
|
7970
|
8 |
12 |
if (length $identifier > 1) { }
|
|
7978
|
1 |
11 |
if ($i == $max_token_index) { }
|
|
|
1 |
10 |
elsif (not $identifier =~ /^[\@\$]$/) { }
|
|
8005
|
0 |
0 |
if ($i == $max_token_index)
|
|
8023
|
11 |
0 |
if ($identifier =~ /^[\$\*\@\%]$/) { }
|
|
8030
|
9 |
2 |
if ($is_special_variable_char{$chr}) { }
|
|
8039
|
3 |
6 |
length $next1 > 1 ? :
|
|
8056
|
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 '->') { }
|
|
8066
|
1 |
2 |
if ($i == $i_begin) { }
|
|
8077
|
0 |
2 |
if ($id_scan_state eq $scan_state_SIGIL and $tok eq "#")
|
|
8099
|
0 |
2 |
if ($tok eq '{') { }
|
|
|
0 |
2 |
elsif ($tok =~ /^[\:\-\+]$/) { }
|
|
8124
|
0 |
0 |
if ($tok eq '{') { }
|
|
8132
|
0 |
0 |
if (length $identifier == 1)
|
|
8148
|
100 |
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 /) { }
|
|
8181
|
97 |
337 |
if ($tok eq '::') { }
|
|
|
20 |
317 |
elsif ($tok =~ /^\w/) { }
|
|
|
12 |
305 |
elsif ($tok eq q['] and $allow_tick) { }
|
|
|
0 |
305 |
elsif ($tok_is_blank and $identifier =~ /^sub /) { }
|
|
|
0 |
305 |
elsif ($tok eq '(' and $identifier =~ /^sub /) { }
|
|
8192
|
0 |
12 |
if ($is_keyword{$identifier}) { }
|
|
8221
|
0 |
0 |
if ($tok eq '(') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^\s*$/) { }
|
|
8244
|
0 |
0 |
if ($tok eq ')') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^[\s\$\%\\\*\@\&\;]/) { }
|
|
8264
|
88 |
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 '^') { }
|
|
8278
|
2 |
0 |
if (length $identifier == 1 and $i == $max_token_index)
|
|
8288
|
15 |
0 |
if ($identifier eq "&" or $i == 0)
|
|
8295
|
0 |
0 |
if ($identifier eq '&') { }
|
|
8304
|
0 |
0 |
if ($is_special_variable_char{$chr}) { }
|
|
8312
|
0 |
0 |
length $next1 > 1 ? :
|
|
8343
|
0 |
0 |
if ($identifier eq '&' and $expecting and $tok ne '#') { }
|
|
8402
|
479 |
7 |
if (not $id_scan_state) { }
|
|
8406
|
0 |
479 |
if ($tok eq ">")
|
|
8412
|
6 |
473 |
if ($last_nonblank_token eq '->') { }
|
|
|
293 |
180 |
elsif ($tok eq '$' or $tok eq '*') { }
|
|
|
77 |
103 |
elsif ($tok eq '%' or $tok eq '@') { }
|
|
|
103 |
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 '->') { }
|
|
8449
|
0 |
0 |
unless ($self->[7])
|
|
8483
|
3 |
1166 |
unless ($code)
|
|
8485
|
3 |
0 |
if ($id_scan_state eq $scan_state_SPLIT) { }
|
|
8507
|
11 |
1155 |
if ($tok_is_blank) { }
|
|
8513
|
113 |
1053 |
if ($tok eq ":" and $$rtokens[$i + 1] eq ":")
|
|
8522
|
389 |
777 |
if $i <= $i_start_loop
|
|
8531
|
20 |
466 |
if ($id_scan_state)
|
|
8533
|
13 |
7 |
unless ($is_returnable_scan_state{$id_scan_state})
|
|
8535
|
3 |
10 |
if ($id_scan_state eq $scan_state_SPLIT)
|
|
8539
|
0 |
13 |
if ($id_scan_state eq $scan_state_RPAREN)
|
|
8549
|
0 |
20 |
if ($identifier eq "\$#")
|
|
8553
|
0 |
486 |
if ($i < 0)
|
|
8556
|
458 |
28 |
unless ($type)
|
|
8558
|
452 |
6 |
if ($saw_type) { }
|
|
|
5 |
1 |
elsif ($saw_alpha) { }
|
|
8560
|
348 |
104 |
if ($saw_alpha) { }
|
|
|
0 |
104 |
elsif ($identifier eq '->') { }
|
|
|
53 |
51 |
elsif (length $identifier > 1 and not $identifier =~ /\$$/ && $tok eq '{' and $identifier ne 'sub ' and $identifier ne 'package ') { }
|
|
8565
|
0 |
348 |
if ($identifier =~ /^->/ and $last_nonblank_type eq 'w' and substr($identifier, 2, 1) =~ /^\w/) { }
|
|
8601
|
5 |
0 |
if ($id_scan_state_begin and $identifier =~ /^([\$\%\@\*\&]|->)/)
|
|
8613
|
444 |
42 |
if ($identifier) { }
|
|
8615
|
1 |
443 |
if ($message)
|
|
8725
|
5 |
295 |
$tok eq '(' ? :
|
|
|
2 |
300 |
$tok eq 'prototype' ? :
|
|
8741
|
123 |
179 |
if ($call_type == 1 and $input_line =~ /\G\s*
|
|
8754
|
0 |
0 |
if ($is_lexical_sub and $1)
|
|
8759
|
0 |
123 |
if ($is_lexical_sub) { }
|
|
8765
|
0 |
0 |
unless defined $seqno
|
|
8767
|
0 |
0 |
if ($warn_if_lexical{$subname})
|
|
8778
|
6 |
117 |
defined $1 && $1 ? :
|
|
8780
|
0 |
123 |
if ($package =~ /^\:/)
|
|
8812
|
45 |
257 |
if ($input_line =~ /\G(\s*\([^\)\(\}\{\,#A-Za-z]*\))? # PROTO
|
|
8825
|
24 |
21 |
if ($proto and $match || $call_type == 3) { }
|
|
|
2 |
19 |
elsif ($call_type == 2) { }
|
|
8844
|
2 |
43 |
if ($tok eq "sub" and not $proto)
|
|
8847
|
138 |
164 |
if ($match) { }
|
|
8852
|
15 |
123 |
if ($attrs)
|
|
8859
|
1 |
137 |
if ($pos == $pos_beg and $tok eq ':') { }
|
|
8872
|
0 |
137 |
if ($error)
|
|
8880
|
2 |
0 |
if ($type eq "k" and $attrs and $i > $i_entry and substr($rtokens->[$i], 0, 1) =~ /\s/)
|
|
8894
|
7 |
131 |
if ($next_nonblank_token =~ /^(\s*|#)$/)
|
|
8898
|
7 |
0 |
if (defined $rpre_tokens and @{$rpre_tokens;}) { }
|
|
8907
|
106 |
32 |
if ($next_nonblank_token eq '{') { }
|
|
|
1 |
31 |
elsif ($next_nonblank_token eq ';') { }
|
|
|
0 |
31 |
elsif ($next_nonblank_token eq '}') { }
|
|
|
16 |
15 |
elsif ($next_nonblank_token eq ':') { }
|
|
|
15 |
0 |
elsif ($next_nonblank_token eq '(') { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token) { }
|
|
8908
|
96 |
10 |
if ($subname)
|
|
8913
|
0 |
96 |
if ($rsaw_function_definition->{$subname}{$package} and not $subname =~ /^[A-Z]+$/)
|
|
8918
|
0 |
0 |
if ($package =~ /^\d/) { }
|
|
8946
|
14 |
2 |
if ($call_type == 1)
|
|
8947
|
13 |
1 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
8961
|
4 |
11 |
unless ($saw_opening_paren)
|
|
8964
|
15 |
0 |
if ($call_type == 1)
|
|
8965
|
15 |
0 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
8973
|
0 |
0 |
if ($rinput_hash->{'tok'} eq 'method' and $call_type == 1) { }
|
|
8985
|
0 |
0 |
unless defined $subname
|
|
9023
|
9 |
6157 |
if ($i == $max_token_index - 1 and $rtokens->[$max_token_index] =~ /^\s+$/)
|
|
9029
|
127 |
6039 |
if ($i >= $max_token_index)
|
|
9030
|
125 |
2 |
unless (peeked_ahead())
|
|
9037
|
0 |
6166 |
unless defined $next_nonblank_token and length $next_nonblank_token
|
|
9043
|
2353 |
3813 |
if ($ord >= 33 and $ord <= 126) { }
|
|
|
3813 |
0 |
elsif ($ord == 32 or $ord == 9) { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token =~ /^\s*$/) { }
|
|
9052
|
0 |
3813 |
unless defined $next_nonblank_token
|
|
9058
|
0 |
0 |
unless defined $next_nonblank_token
|
|
9079
|
0 |
98 |
if ($next_nonblank_token eq "#")
|
|
9086
|
98 |
0 |
if ($next_nonblank_token and $next_nonblank_token ne " " and defined $$rtokens[$i_next + 1])
|
|
9091
|
15 |
83 |
if ($is_digraph{$test2})
|
|
9096
|
15 |
0 |
if (defined $$rtokens[$i_next + 1])
|
|
9098
|
0 |
15 |
if ($is_trigraph{$test3})
|
|
9121
|
0 |
0 |
if ($next_token eq "=")
|
|
9125
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
9131
|
0 |
0 |
if ($next_nonblank_token =~ / [ \( \$ \w \. \@ ] /x) { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token =~ /^\s*$/) { }
|
|
9172
|
0 |
0 |
if ($next_token =~ /^[msixpodualgc]/)
|
|
9178
|
0 |
0 |
if ($pattern_test{$next_nonblank_token}) { }
|
|
9184
|
0 |
0 |
if ($next_nonblank_token =~ /^\s*$/ or $next_nonblank_token eq '#') { }
|
|
9201
|
449 |
8 |
if ($i < $max_token_index) { }
|
|
9204
|
121 |
328 |
if ($next_nonblank_token =~ /^\s*$/)
|
|
9206
|
119 |
2 |
if ($i < $max_token_index)
|
|
9232
|
6 |
2 |
if ($expecting == -1) { }
|
|
|
2 |
0 |
elsif ($expecting == 0) { }
|
|
9273
|
8 |
0 |
if ($input_line =~ /($filter)/g)
|
|
9275
|
8 |
0 |
if ($1 eq '>') { }
|
|
9291
|
1 |
7 |
if ($last_nonblank_type eq "Z")
|
|
9294
|
0 |
0 |
unless (substr($last_nonblank_token, 0, 1) =~ /[A-Za-z_]/ or substr($str, 1, 1) =~ /[A-Za-z_]/)
|
|
9303
|
2 |
6 |
if ($expecting eq 0)
|
|
9305
|
1 |
1 |
if ($check eq "-")
|
|
9321
|
0 |
7 |
if ($error)
|
|
9339
|
0 |
7 |
if ($str =~ /^<\s*!/) { }
|
|
|
0 |
7 |
elsif ($str =~ m[^<\s*/\w+\s*>$]) { }
|
|
|
0 |
7 |
elsif ($str =~ /^<\?xml\s.*\?>$/i and $is_first_string) { }
|
|
9341
|
0 |
0 |
if ($is_first_string)
|
|
9363
|
0 |
7 |
if ($is_html_tag)
|
|
9369
|
1 |
6 |
if $str =~ /<\s+/
|
|
9370
|
1 |
6 |
if $str =~ /\s+>/
|
|
9374
|
6 |
1 |
if ($expecting == -1) { }
|
|
|
0 |
1 |
elsif ($is_html_tag) { }
|
|
|
1 |
0 |
elsif ($i <= $i_beg + 3 + $blank_count) { }
|
|
|
0 |
0 |
elsif ($str =~ /^<\s*\$?(\w|::|\s)+\s*>$/) { }
|
|
9410
|
0 |
0 |
if ($br or $sb or $pr) { }
|
|
9431
|
0 |
0 |
if ($expecting == -1)
|
|
9463
|
0 |
629 |
unless ($first_char =~ /[\d\.\+\-Ee]/)
|
|
9477
|
0 |
629 |
if ($input_line =~ /\G((\d[_\d]*)?\.[\d_]+(\.[\d_]+)+)/g)
|
|
9486
|
629 |
0 |
unless (defined $number)
|
|
9493
|
72 |
557 |
if ($input_line =~ /
|
|
9536
|
557 |
72 |
unless (defined $number)
|
|
9539
|
557 |
0 |
if ($input_line =~ /\G([+-]?[\d_]*(\.[\d_]*)?([Ee][+-]?(\d+))?)/g)
|
|
9543
|
37 |
520 |
if (substr($input_line, $pos - 1, 1) eq "." and substr($input_line, $pos, 1) eq ".")
|
|
9556
|
303 |
326 |
if (not $number =~ /\d/ or $number =~ /^(.*)[eE]/ and not $1 =~ /\d/)
|
|
9573
|
0 |
326 |
if ($error)
|
|
9587
|
2135 |
1905 |
if ($pos <= $rtoken_map->[$i])
|
|
9592
|
0 |
2135 |
if ($pos < $rtoken_map->[$i])
|
|
9624
|
0 |
9 |
if ($next_token eq "\\")
|
|
9632
|
6 |
3 |
if ($next_nonblank_token =~ /[\'\"\`]/) { }
|
|
|
0 |
3 |
elsif ($next_token =~ /^\s*$/ and $expecting == -1) { }
|
|
|
3 |
0 |
elsif ($next_token =~ /^\w/) { }
|
|
9646
|
0 |
6 |
if ($in_quote) { }
|
|
9648
|
0 |
0 |
if ($expecting == -1)
|
|
9665
|
0 |
0 |
if $tokj eq "\\" and $j < $i - 1 and $$rtokens[$j + 1] eq $here_quote_character
|
|
9682
|
0 |
3 |
if ($expecting == 0) { }
|
|
9689
|
3 |
0 |
if ($here_doc_expected)
|
|
9698
|
0 |
0 |
if ($expecting == -1) { }
|
|
9708
|
0 |
9 |
if ($found_target and $backslash)
|
|
9742
|
29 |
2739 |
if ($in_quote == 2)
|
|
9751
|
29 |
0 |
if ($in_quote == 1) { }
|
|
9752
|
0 |
29 |
if ($quote_character =~ /[\{\[\<\(]/)
|
|
9760
|
2768 |
0 |
if ($in_quote == 1)
|
|
9769
|
183 |
2585 |
if ($in_quote == 1)
|
|
9826
|
183 |
2631 |
if (not $beginning_tok =~ /^\s*$/) { }
|
|
9832
|
254 |
2377 |
$i < 0 ? :
|
|
9837
|
2631 |
0 |
if (not $tok =~ /^\s*$/) { }
|
|
9839
|
0 |
2631 |
if ($tok eq '#' and $allow_quote_comments) { }
|
|
9844
|
1 |
2630 |
if (length $tok > 1) { }
|
|
9845
|
1 |
0 |
if ($quote_pos <= 0)
|
|
9874
|
1 |
2813 |
if ($beginning_tok =~ /\w/) { }
|
|
9878
|
1 |
0 |
if ($in_quote == 1)
|
|
9886
|
3 |
1 |
if ($quote_pos == 0 or $i < 0)
|
|
9889
|
1 |
2 |
if ($tok eq "\\")
|
|
9892
|
1 |
0 |
unless $$rtokens[$i + 1] eq $end_tok
|
|
9895
|
0 |
1 |
if $i >= $max_token_index
|
|
9903
|
1 |
3 |
if ($quote_pos > 0) { }
|
|
9915
|
1 |
0 |
if ($quote_depth == 0)
|
|
9921
|
3 |
0 |
if ($old_pos <= length $tok)
|
|
9936
|
2620 |
8178 |
if ($tok eq $end_tok) { }
|
|
|
1 |
8177 |
elsif ($tok eq $beginning_tok) { }
|
|
|
376 |
7801 |
elsif ($tok eq '\\') { }
|
|
9939
|
2619 |
1 |
if ($quote_depth == 0)
|
|
9951
|
368 |
8 |
if $tok ne $end_tok and $tok ne $beginning_tok
|
|
9960
|
0 |
2814 |
if ($i > $max_token_index)
|
|
10025
|
0 |
0 |
$pos < 60 ? :
|
|
10027
|
0 |
0 |
$excess > 0 ? :
|
|
10029
|
0 |
0 |
if (defined $numc) { }
|
|
10030
|
0 |
0 |
if ($offset == 0) { }
|
|
10039
|
0 |
0 |
if ($offset == 0) { }
|
|
10076
|
0 |
0 |
if ($pos < 0 or $pos > length $underline)
|
|
10080
|
0 |
0 |
if ($excess > 0)
|
|
10117
|
5910 |
285 |
unless ($max_tokens_wanted)
|
|
10121
|
76179 |
6051 |
if ($str =~ /
|
|
10133
|
2598 |
16670 |
defined $4 ? :
|
|
|
38164 |
19268 |
defined $3 ? :
|
|
|
18747 |
57432 |
defined $2 ? :
|
|
10177
|
373 |
2625 |
if ($matching_end_token{$beginning_token})
|