| line |
true |
false |
branch |
|
236
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
271
|
0 |
0 |
if (not ref $self) { }
|
|
273
|
0 |
0 |
if ($self and length $self < 200)
|
|
301
|
1116 |
2 |
unless ($param)
|
|
303
|
0 |
1118 |
unless ($param =~ /^#/)
|
|
307
|
0 |
1118 |
if (Perl::Tidy::Formatter::bad_pattern($pattern))
|
|
331
|
3 |
556 |
if ($rOpts->{'sub-alias-list'})
|
|
349
|
2 |
557 |
if ($is_sub{'method'})
|
|
356
|
0 |
559 |
if ($rOpts->{'use-feature'})
|
|
357
|
0 |
0 |
if ($rOpts->{'use-feature'} =~ /\bnoclass\b/) { }
|
|
|
0 |
0 |
elsif ($rOpts->{'use-feature'} =~ /\bclass\b/) { }
|
|
390
|
559 |
0 |
if ($use_feature_class)
|
|
405
|
559 |
0 |
if ($rOpts->{'grep-alias-list'})
|
|
452
|
0 |
561 |
unless (defined $source_object)
|
|
457
|
0 |
561 |
unless (ref $source_object)
|
|
549
|
0 |
561 |
unless $self->[19]
|
|
550
|
12 |
549 |
unless $self->[20]
|
|
560
|
0 |
561 |
if (_increment_count() > 1)
|
|
593
|
0 |
561 |
if (not $rsource) { }
|
|
|
0 |
561 |
elsif ($rsource eq 'ARRAY') { }
|
|
|
561 |
0 |
elsif ($rsource eq 'SCALAR') { }
|
|
633
|
1222 |
12 |
if ($line_index < @{$rinput_lines;})
|
|
648
|
0 |
0 |
if ($logger_object)
|
|
661
|
0 |
0 |
if ($logger_object)
|
|
672
|
32 |
0 |
if ($logger_object)
|
|
684
|
1851 |
6 |
if ($logger_object)
|
|
695
|
0 |
0 |
if ($logger_object)
|
|
706
|
0 |
0 |
if ($logger_object)
|
|
717
|
0 |
0 |
if ($logger_object)
|
|
731
|
0 |
0 |
if ($logger_object)
|
|
746
|
0 |
0 |
if ($logger_object)
|
|
759
|
0 |
0 |
if ($diagnostics_object)
|
|
788
|
559 |
2 |
if ($logger_object)
|
|
795
|
0 |
561 |
unless defined $maxle
|
|
796
|
0 |
561 |
unless defined $maxue
|
|
799
|
0 |
561 |
if ($level != $self->[17])
|
|
802
|
0 |
0 |
if ($level_diff < 0)
|
|
807
|
0 |
0 |
if ($maxle >= 0 and $level_diff > $maxle)
|
|
821
|
0 |
561 |
if ($self->[51] > 2)
|
|
825
|
0 |
561 |
if ($self->[21] and not $self->[36])
|
|
832
|
0 |
561 |
if ($self->[6])
|
|
836
|
0 |
561 |
if ($self->[12])
|
|
841
|
0 |
561 |
if ($self->[11])
|
|
846
|
0 |
0 |
if ($self->[38] or $self->[37]) { }
|
|
860
|
0 |
561 |
if ($self->[1])
|
|
865
|
0 |
0 |
if ($here_doc_target) { }
|
|
878
|
0 |
0 |
if ($nearly_matched_here_target_at)
|
|
886
|
0 |
561 |
if ($self->[14])
|
|
890
|
0 |
0 |
$self->[13] ? :
|
|
899
|
0 |
561 |
if ($self->[31])
|
|
910
|
0 |
561 |
if ($maxue > 0 and $ue_count > $maxue)
|
|
917
|
545 |
16 |
unless ($self->[27])
|
|
918
|
0 |
545 |
if ($] < 5.006) { }
|
|
926
|
0 |
561 |
if ($self->[26])
|
|
931
|
547 |
14 |
unless ($self->[28])
|
|
937
|
12 |
549 |
if ($self->[48])
|
|
952
|
2 |
0 |
unless ($self->[29])
|
|
955
|
0 |
2 |
if ($] < "5.006")
|
|
992
|
7660 |
561 |
if ($line_index < @{$rinput_lines;})
|
|
999
|
561 |
7660 |
unless defined $input_line
|
|
1006
|
7659 |
1 |
if (chomp $input_line)
|
|
1012
|
24 |
7636 |
if ($other_line_endings{substr $input_line, -1})
|
|
1013
|
24 |
0 |
if ($input_line =~ s/([\r\035\032])+$//)
|
|
1073
|
24 |
7636 |
if ($self->[1]) { }
|
|
|
3 |
7633 |
elsif ($self->[6]) { }
|
|
|
47 |
7586 |
elsif ($self->[11]) { }
|
|
|
8 |
7578 |
elsif ($self->[12]) { }
|
|
|
0 |
7578 |
elsif ($self->[7]) { }
|
|
|
1 |
7577 |
elsif ($self->[4]) { }
|
|
|
48 |
7529 |
elsif ($self->[5]) { }
|
|
1083
|
4 |
20 |
if ($here_quote_character =~ /^\s/)
|
|
1086
|
9 |
15 |
if ($candidate_target eq $here_doc_target) { }
|
|
1092
|
0 |
9 |
if (@{$rhere_target_list;}) { }
|
|
1115
|
0 |
15 |
if ($candidate_target eq $here_doc_target)
|
|
1125
|
1 |
2 |
if ($input_line =~ /^\.[\s#]*$/) { }
|
|
1131
|
1 |
0 |
unless ($self->[6])
|
|
1143
|
0 |
2 |
if ($input_line =~ /^\s*format\s+\w+/)
|
|
1157
|
20 |
27 |
if ($input_line =~ /^=cut/)
|
|
1162
|
0 |
47 |
if ($input_line =~ /^\#\!.*perl\b/ and not $self->[5])
|
|
1175
|
2 |
6 |
if ($input_line =~ /$code_skipping_pattern_end/) { }
|
|
|
0 |
6 |
elsif ($input_line =~ /$code_skipping_pattern_begin/) { }
|
|
1210
|
0 |
1 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1229
|
6 |
42 |
if ($input_line =~ /^=(\w+)\b/ and $1 ne 'cut') { }
|
|
1245
|
15 |
6966 |
if (not $self->[36] and substr($input_line, 0, 2) eq "#!" and $input_line =~ /^\#\!.*perl\b/)
|
|
1252
|
0 |
15 |
if ($input_line =~ /^\#\!.*perl\s.*-.*P/)
|
|
1256
|
8 |
7 |
if ($input_line =~ /^\#\!.*perl\s.*-.*w/)
|
|
1260
|
1 |
14 |
if ($input_line_number > 1 and not $last_nonblank_block_type && $last_nonblank_block_type eq 'BEGIN' and not $self->[21] and $input_line =~ /^\#\!(\s+)?(\S+)?perl/) { }
|
|
1290
|
0 |
1 |
if ($self->[40]) { }
|
|
1309
|
5 |
7510 |
if ($self->[21] and not $self->[36])
|
|
1318
|
0 |
7510 |
if ($input_line_number == 1 and $input_line =~ /^\s*\:\s*\#/)
|
|
1339
|
0 |
7510 |
if ($self->[7])
|
|
1348
|
14 |
7496 |
if ($self->[11])
|
|
1354
|
0 |
14 |
if ($input_line =~ /^=cut\b/) { }
|
|
1355
|
0 |
0 |
if ($self->[38] or $self->[37]) { }
|
|
1380
|
2 |
7494 |
if ($self->[12])
|
|
1389
|
9 |
7485 |
if (@{$rhere_target_list;})
|
|
1403
|
1 |
7493 |
if ($self->[4]) { }
|
|
|
6 |
7487 |
elsif ($self->[5]) { }
|
|
1409
|
0 |
1 |
if ($self->[35])
|
|
1424
|
0 |
6 |
if ($self->[34])
|
|
1439
|
557 |
310 |
unless ($self->[40] or $input_line =~ /^\s*$/ or $input_line =~ /^\s*#/)
|
|
1446
|
7 |
7480 |
if ($self->[41])
|
|
1452
|
1 |
7486 |
if ($self->[6])
|
|
1456
|
49 |
7438 |
if ($self->[14] and $self->[16] < 0) { }
|
|
|
48 |
7390 |
elsif ($self->[16] >= 0 and not $self->[14]) { }
|
|
1461
|
48 |
1 |
unless ((my $quote_target = $self->[15]) =~ /^\s*$/)
|
|
1493
|
1 |
560 |
if ($self->[18]) { }
|
|
|
1 |
559 |
elsif ($self->[21]) { }
|
|
1514
|
13 |
857 |
if ($i == 1 and $line =~ /^\#\!/)
|
|
1520
|
296 |
561 |
if ($line =~ /^\s*#/)
|
|
1521
|
296 |
0 |
if (not $in_code_skipping) { }
|
|
1522
|
0 |
296 |
if ($rOpts_code_skipping and $line =~ /$code_skipping_pattern_begin/)
|
|
1529
|
0 |
0 |
if ($line =~ /$code_skipping_pattern_end/)
|
|
1535
|
0 |
561 |
if $in_code_skipping
|
|
1537
|
18 |
543 |
if $line =~ /^\s*$/
|
|
1572
|
543 |
0 |
if ($line =~ /^(\t+)?(\s+)?(\w+:[^:])?/)
|
|
1576
|
2 |
541 |
if ($1)
|
|
1578
|
79 |
464 |
if ($2)
|
|
1581
|
1 |
0 |
if ($3 and $self->[24])
|
|
1590
|
0 |
543 |
unless $indent_columns
|
|
1604
|
0 |
0 |
if ($ris_block_list_function->{$pkg}{$sub})
|
|
1608
|
0 |
0 |
if ($ris_block_function->{$pkg}{$sub})
|
|
1972
|
8 |
0 |
if ($pretoken and length $pretoken > $numc and substr($pretoken, $numc) =~ /^(\d*)(.*)$/) { }
|
|
1979
|
8 |
0 |
defined $1 ? :
|
|
1980
|
8 |
0 |
defined $2 ? :
|
|
1997
|
5 |
3 |
if ($len_1)
|
|
2006
|
4 |
4 |
if ($len_2)
|
|
2039
|
125 |
127 |
defined $flag ? :
|
|
2189
|
0 |
0 |
unless $replacement_text =~ /<</
|
|
2213
|
0 |
0 |
if ($tokenizer->[1])
|
|
2220
|
0 |
0 |
if ($tokenizer->[0])
|
|
2261
|
3 |
483 |
if ($split_pretoken_flag)
|
|
2264
|
3 |
0 |
if ($i > 0 and $$rtokens[$i - 1] eq '^' and $self->split_pretoken(1)) { }
|
|
2330
|
6 |
4785 |
if ($last_nonblank_token eq '->') { }
|
|
|
4678 |
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 '[') { }
|
|
2344
|
4390 |
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 '%') { }
|
|
2346
|
4274 |
116 |
if ($i_plus_1 < $max_token_index)
|
|
2348
|
1707 |
2567 |
if ($rtoken_type->[$i_next] eq "b" and $i_next < $max_token_index)
|
|
2355
|
4282 |
108 |
if ($pretype_next ne ":" and $pretype_next ne "'")
|
|
2438
|
479 |
4312 |
unless ($fast_scan_type)
|
|
2466
|
6 |
0 |
if ($input_line =~ /\G\s*
|
|
2475
|
0 |
6 |
$1 ? :
|
|
2486
|
5 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2487
|
1 |
5 |
if (not $next_char or $next_char eq "#")
|
|
2493
|
0 |
6 |
unless ($next_char)
|
|
2504
|
3 |
3 |
unless ($next_char =~ /^[\(\:\{\;\}]/)
|
|
2538
|
0 |
6 |
unless (new_statement_ok())
|
|
2545
|
6 |
0 |
if ($input_line =~ /\G\s*
|
|
2554
|
3 |
3 |
$1 ? :
|
|
2562
|
5 |
1 |
if ($input_line =~ /\s*(\S)/cgx)
|
|
2563
|
1 |
5 |
if (not $next_char or $next_char eq "#")
|
|
2568
|
0 |
6 |
unless ($next_char)
|
|
2583
|
2 |
4 |
unless ($next_char =~ /^[\:\d\{\;\}]/)
|
|
2635
|
343 |
0 |
if ($typ_d ne "d" and $typ_d eq '+' || $typ_d eq '-' and $i_d < $max_token_index)
|
|
2646
|
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')
|
|
2660
|
1658 |
57 |
if ($tok_d eq 0 or substr($tok_d, 0, 1) ne 0)
|
|
2696
|
619 |
1658 |
unless (defined $number)
|
|
2705
|
9 |
0 |
if ($expecting == -1)
|
|
2706
|
0 |
9 |
if ($really_want_term{$last_nonblank_type})
|
|
2718
|
0 |
769 |
if ($expecting == 1)
|
|
2719
|
0 |
0 |
unless (defined $thing)
|
|
2722
|
0 |
0 |
if ($i_tok == 0)
|
|
2744
|
0 |
31 |
if $expecting == -1
|
|
2754
|
0 |
4 |
if $expecting == -1
|
|
2779
|
0 |
4036 |
if $expecting == 1
|
|
2783
|
1 |
4035 |
if ($identifier eq "\$^W")
|
|
2790
|
62 |
3938 |
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"))
|
|
2806
|
38 |
60 |
unless $Z_test_hash{$next_nonblank_token}
|
|
2821
|
240 |
1885 |
if ($want_paren) { }
|
|
|
14 |
1871 |
elsif ($statement_type =~ /^sub\b/) { }
|
|
2834
|
3 |
1868 |
if ($expecting == 1 and not $last_nonblank_token =~ /^(?:[\]\}\)\&]|\-\>)/)
|
|
2848
|
0 |
3 |
if ($last_last_nonblank_token eq 'do') { }
|
|
2864
|
0 |
3 |
if ($next_nonblank_token ne ")" and $next_nonblank_token ne "#")
|
|
2871
|
0 |
0 |
if ($last_nonblank_type eq 'C') { }
|
|
|
0 |
0 |
elsif ($last_nonblank_type eq 'i') { }
|
|
2876
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_token =~ /^\$/)
|
|
2886
|
0 |
0 |
if ($hint)
|
|
2903
|
61 |
2064 |
if ($last_nonblank_token eq '(') { }
|
|
2936
|
0 |
2125 |
if ($last_nonblank_type eq ")")
|
|
2946
|
1 |
2124 |
if ($last_nonblank_token eq ")")
|
|
2948
|
1 |
0 |
if (defined $rvars)
|
|
2971
|
2125 |
0 |
if (defined $rvars)
|
|
2973
|
2125 |
0 |
if ($type_lp and $type_lp eq "{")
|
|
2982
|
24 |
2101 |
if ($container_type =~ /^sub\b/)
|
|
2987
|
69 |
2056 |
if ($is_for_foreach{$rparen_type->[$paren_depth]})
|
|
2989
|
0 |
69 |
if ($num_sc > 0 and $num_sc != 2)
|
|
2994
|
2125 |
0 |
if ($paren_depth > 0)
|
|
3003
|
10 |
3065 |
if ($last_nonblank_type eq ',') { }
|
|
|
0 |
3065 |
elsif ($last_nonblank_token eq '(' and $last_nonblank_type eq '{') { }
|
|
3017
|
6 |
3069 |
if ($statement_type eq "use")
|
|
3032
|
35 |
2413 |
if ($is_for_foreach{$rparen_type->[$paren_depth]})
|
|
3040
|
34 |
1 |
if ($brace_depth == $rdepth_array->[2][0][$paren_depth] and $square_bracket_depth == $rdepth_array->[2][1][$paren_depth])
|
|
3057
|
0 |
1125 |
if $expecting == 1
|
|
3070
|
0 |
1164 |
if $expecting == 1
|
|
3083
|
0 |
0 |
if $expecting == 1
|
|
3100
|
0 |
207 |
if ($last_nonblank_type eq 'k' and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
0 |
207 |
elsif ($expecting == 0) { }
|
|
3114
|
0 |
0 |
if ($msg)
|
|
3121
|
78 |
129 |
if ($is_pattern) { }
|
|
3128
|
0 |
129 |
if ($$rtokens[$i + 1] eq "=")
|
|
3163
|
34 |
1634 |
if (substr($statement_type, 0, 3) eq 'sub') { }
|
|
|
4 |
1630 |
elsif (substr($statement_type, 0, 7) eq 'package') { }
|
|
|
0 |
1630 |
elsif ($statement_type eq 'case' || $statement_type eq 'when' and $statement_type eq $last_nonblank_token) { }
|
|
|
241 |
1389 |
elsif ($last_nonblank_token eq ')') { }
|
|
|
0 |
1389 |
elsif ($last_nonblank_token eq 'qw' and $is_for_foreach{$want_paren}) { }
|
|
3188
|
0 |
241 |
unless (defined $last_nonblank_token)
|
|
3193
|
227 |
14 |
if ($is_blocktype_with_paren{$last_nonblank_token}) { }
|
|
3196
|
227 |
0 |
if (defined $rvars)
|
|
3200
|
0 |
227 |
unless ($want_brace)
|
|
3208
|
14 |
0 |
if ($self->[49]) { }
|
|
3232
|
0 |
0 |
if ($last_last_nonblank_token eq $want_paren)
|
|
3250
|
367 |
1301 |
if (is_non_structural_brace()) { }
|
|
3256
|
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')
|
|
3276
|
34 |
934 |
if ($block_type and $last_nonblank_type eq "w" and $last_nonblank_i >= 0)
|
|
3280
|
34 |
0 |
if ($routput_token_type->[$last_nonblank_i] eq "w")
|
|
3282
|
5 |
29 |
$is_grep_alias{$block_type} ? :
|
|
3288
|
38 |
1263 |
if ($statement_type eq "case" or $statement_type eq "when")
|
|
3291
|
4 |
34 |
if (not $block_type or $block_type eq "}")
|
|
3303
|
1664 |
4 |
if substr($block_type, 0, 8) ne "package "
|
|
3319
|
972 |
696 |
if ($block_type)
|
|
3320
|
1664 |
4 |
if (defined $rbrace_package->[$brace_depth]) { }
|
|
3330
|
367 |
1301 |
if ($rbrace_structural_type->[$brace_depth] eq "L")
|
|
3337
|
83 |
1585 |
if ($is_block_operator{$block_type})
|
|
3342
|
1668 |
0 |
if ($brace_depth > 0)
|
|
3355
|
107 |
19 |
if ($expecting != 1) { }
|
|
3361
|
104 |
3 |
if ($expecting == -1 or $next_type ne "b")
|
|
3375
|
8 |
21 |
if ($expecting != 1) { }
|
|
3405
|
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) { }
|
|
3436
|
11 |
0 |
if ($msg)
|
|
3440
|
0 |
187 |
if ($is_pattern) { }
|
|
3458
|
0 |
238 |
if ($expecting == 0 and $last_nonblank_type eq "Z")
|
|
3459
|
0 |
0 |
if ($next_type ne "b" and $next_type ne "(" and $next_type ne "#")
|
|
3466
|
21 |
217 |
if ($expecting == -1) { }
|
|
3471
|
0 |
217 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
|
36 |
181 |
elsif ($$rtokens[$i + 1] eq '*') { }
|
|
3480
|
0 |
36 |
if ($$rtokens[$i + 1] eq "=")
|
|
3498
|
10 |
140 |
if ($expecting != 1) { }
|
|
3500
|
2 |
8 |
if ($type eq ".")
|
|
3501
|
0 |
2 |
if $expecting == -1
|
|
3518
|
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)) { }
|
|
3570
|
0 |
187 |
if ($last_nonblank_token eq "?")
|
|
3582
|
13 |
214 |
if ($expecting == -1) { }
|
|
|
211 |
3 |
elsif ($expecting == 1) { }
|
|
3586
|
13 |
0 |
unless (defined $number)
|
|
3591
|
2 |
1 |
if ($next_type eq "w")
|
|
3601
|
0 |
438 |
if $expecting == 1
|
|
3613
|
0 |
202 |
if ($expecting == 0)
|
|
3614
|
0 |
0 |
if ($next_type ne "b" and $next_type ne "(")
|
|
3618
|
192 |
10 |
if ($expecting == -1)
|
|
3637
|
287 |
307 |
unless (is_non_structural_brace())
|
|
3653
|
287 |
307 |
if ($rsquare_bracket_structural_type->[$square_bracket_depth] eq "{")
|
|
3661
|
20 |
574 |
if ($rsquare_bracket_type->[$square_bracket_depth] eq "~~")
|
|
3665
|
594 |
0 |
if ($square_bracket_depth > 0)
|
|
3674
|
10 |
431 |
if ($expecting != 1 and $is_file_test_operator{$next_tok}) { }
|
|
|
330 |
101 |
elsif ($expecting == -1) { }
|
|
|
97 |
4 |
elsif ($expecting == 1) { }
|
|
3683
|
0 |
10 |
if ($next_nonblank_token eq '=') { }
|
|
3696
|
288 |
42 |
unless (defined $number)
|
|
3703
|
4 |
0 |
if ($next_type eq "w")
|
|
3716
|
5 |
7 |
if ($expecting == -1)
|
|
3718
|
5 |
0 |
if ($last_nonblank_token eq '{' and not $next_tok =~ /^\d/ and $next_tok =~ /^\w/) { }
|
|
3723
|
1 |
4 |
if ($next_tok eq "W")
|
|
3741
|
0 |
0 |
if ($last_last_nonblank_type ne "t" and $last_last_nonblank_type ne "Z" and $last_last_nonblank_token ne "\$#")
|
|
3750
|
0 |
0 |
unless ($self->error_if_expecting_TERM)
|
|
3775
|
7 |
0 |
if ($expecting != 1) { }
|
|
3785
|
7 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
3789
|
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+$/) { }
|
|
3794
|
0 |
0 |
unless $here_quote_character
|
|
3807
|
0 |
0 |
unless ($saw_error)
|
|
3840
|
0 |
2 |
if $i >= $max_token_index
|
|
3841
|
2 |
0 |
if ($expecting != 1) { }
|
|
3851
|
2 |
0 |
if ($found_target) { }
|
|
|
0 |
0 |
elsif ($expecting == -1) { }
|
|
3853
|
0 |
2 |
if (length $here_doc_target > 80) { }
|
|
|
0 |
2 |
elsif (not $here_doc_target =~ /^[A-Z_]\w+$/) { }
|
|
3875
|
0 |
0 |
unless ($saw_error)
|
|
3914
|
37 |
9 |
if ($expecting == 1) { }
|
|
|
7 |
2 |
elsif ($expecting == -1) { }
|
|
3925
|
0 |
2 |
if ($next_nonblank_token eq "#")
|
|
3931
|
0 |
2 |
if ($next_nonblank_token eq "\$")
|
|
3941
|
0 |
1025 |
if ($last_nonblank_type eq $tok)
|
|
3947
|
18 |
1007 |
if ($statement_type eq "use")
|
|
3958
|
0 |
2 |
if ($expecting == 1) { }
|
|
|
2 |
0 |
elsif ($expecting == -1) { }
|
|
3969
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
3975
|
0 |
0 |
if ($next_nonblank_token eq "\$")
|
|
3986
|
0 |
58 |
if $expecting == -1 and $last_nonblank_token ne ","
|
|
3996
|
8 |
66 |
if $expecting == -1 and $last_nonblank_token ne ","
|
|
4006
|
1 |
9 |
if $expecting == -1
|
|
4016
|
0 |
1934 |
if $expecting == 1
|
|
4020
|
0 |
1934 |
unless (defined $number)
|
|
4046
|
18 |
21 |
if ($next_nonblank_token eq '(') { }
|
|
4053
|
2 |
16 |
if ($tok eq "prototype")
|
|
4074
|
2 |
0 |
if ($i > $i_beg)
|
|
4106
|
14 |
772 |
if ($ris_constant->{$current_package}{$tok}) { }
|
|
|
0 |
772 |
elsif ($ris_user_function->{$current_package}{$tok}) { }
|
|
|
0 |
772 |
elsif ($tok =~ /^v\d+$/) { }
|
|
4137
|
3 |
769 |
if ($expecting == 1 and substr($tok, 0, 1) eq 'x' and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/) { }
|
|
4145
|
3 |
0 |
if ($self->split_pretoken(1))
|
|
4164
|
15 |
2 |
if ($tok eq 'x') { }
|
|
4165
|
0 |
15 |
if ($$rtokens[$i + 1] eq '=') { }
|
|
4181
|
2 |
0 |
if ($self->split_pretoken(1))
|
|
4197
|
16 |
0 |
if ($next_nonblank_tok2)
|
|
4199
|
1 |
15 |
if ($is_keyword{$next_nonblank_tok2}) { }
|
|
4234
|
395 |
2246 |
if ($is_blocktype_with_paren{$tok})
|
|
4235
|
309 |
86 |
if (new_statement_ok())
|
|
4241
|
175 |
2466 |
if ($is_use_require{$tok}) { }
|
|
|
628 |
1838 |
elsif ($is_my_our_state{$tok}) { }
|
|
|
29 |
1809 |
elsif ($tok eq 'elsif') { }
|
|
|
44 |
1765 |
elsif ($tok eq 'else') { }
|
|
|
56 |
1709 |
elsif ($tok eq 'when' or $tok eq 'case' or $tok eq 'default') { }
|
|
|
1 |
1708 |
elsif ($tok eq 'err') { }
|
|
4243
|
0 |
175 |
if $expecting == 1
|
|
4256
|
0 |
29 |
if ($last_nonblank_token ne ";" and not $is_if_elsif_unless{$last_nonblank_block_type})
|
|
4270
|
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})
|
|
4301
|
1 |
0 |
if ($expecting != 1)
|
|
4314
|
0 |
202 |
if ($expecting == 1)
|
|
4338
|
0 |
0 |
unless ($paren_list_possible)
|
|
4349
|
119 |
83 |
$tok eq 'qw' && $self->[22] ? :
|
|
4363
|
108 |
849 |
if ($statement_type eq "use" and $last_nonblank_token eq "use")
|
|
4369
|
932 |
25 |
if ($type eq "w")
|
|
4371
|
0 |
932 |
if ($expecting == 1)
|
|
4380
|
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') { }
|
|
4405
|
0 |
0 |
unless ($tok =~ /::$/)
|
|
4420
|
276 |
656 |
if ($next_tok eq "(")
|
|
4427
|
0 |
276 |
if ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
|
276 |
0 |
elsif ($last_nonblank_type ne '->') { }
|
|
4439
|
0 |
932 |
if ($tok eq "_" and $last_nonblank_type eq "F")
|
|
4445
|
0 |
932 |
if ($tok eq "case" and $rbrace_type->[$brace_depth] eq "switch" or $tok eq "when" and $rbrace_type->[$brace_depth] eq "given")
|
|
4454
|
241 |
691 |
if ($next_nonblank_token eq "(")
|
|
4461
|
0 |
241 |
if ($tok eq 'switch' or $tok eq 'given') { }
|
|
|
0 |
241 |
elsif ($tok eq 'x' and $last_nonblank_type eq 'w') { }
|
|
4487
|
3 |
0 |
if ($is_sub{$tok_kw} and $expecting != 1 and $next_nonblank_token eq ":")
|
|
4517
|
266 |
5566 |
if ($$rtokens[$i + 1] eq ":" and $$rtokens[$i + 2] eq ":")
|
|
4523
|
39 |
5793 |
if ($self->[13])
|
|
4525
|
39 |
0 |
if $is_attribute
|
|
4548
|
669 |
5124 |
if ($last_nonblank_token eq '->') { }
|
|
|
786 |
4338 |
elsif (not $is_END_or_DATA and $next_nonblank_token eq '=' and $$rtokens[$i_next + 1] eq '>') { }
|
|
|
100 |
4238 |
elsif ($next_nonblank_token eq '}' and $last_nonblank_type eq 'L' || $last_nonblank_type eq 'm' && $last_last_nonblank_type eq 'L') { }
|
|
|
17 |
4221 |
elsif ($expecting == 1 and substr($tok, 0, 1) eq 'x' and length $tok == 1 || substr($tok, 1, 1) =~ /^\d/) { }
|
|
|
3 |
4218 |
elsif ($tok_kw eq 'CORE::') { }
|
|
|
14 |
4204 |
elsif ($tok eq 'strict' and $last_nonblank_token eq 'use') { }
|
|
|
7 |
4197 |
elsif ($tok eq 'warnings' and $last_nonblank_token eq 'use') { }
|
|
|
0 |
4197 |
elsif ($tok eq 'AutoLoader' and $self->[32] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+AutoLoader\b/ || $input_line =~ /\bISA\s*=.*\bAutoLoader\b/) { }
|
|
|
0 |
4197 |
elsif ($tok eq 'SelfLoader' and $self->[33] and $last_nonblank_token eq 'use' || $input_line =~ /^\s*(use|require)\s+SelfLoader\b/ || $input_line =~ /\bISA\s*=.*\bSelfLoader\b/) { }
|
|
|
16 |
4181 |
elsif ($tok eq 'constant' and $last_nonblank_token eq 'use') { }
|
|
|
202 |
3979 |
elsif ($is_q_qq_qw_qx_qr_s_y_tr_m{$tok}) { }
|
|
|
33 |
3946 |
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()) { }
|
|
|
302 |
3644 |
elsif ($is_sub{$tok_kw}) { }
|
|
|
30 |
3614 |
elsif ($is_package{$tok_kw}) { }
|
|
|
1 |
3613 |
elsif ($tok_kw eq 'format' and new_statement_ok()) { }
|
|
|
7 |
3606 |
elsif ($is_END_DATA{$tok_kw}) { }
|
|
|
2641 |
965 |
elsif ($is_keyword{$tok_kw}) { }
|
|
|
19 |
946 |
elsif ($last_nonblank_type eq 'k' and $is_redo_last_next_goto{$last_nonblank_token}) { }
|
|
4670
|
15 |
18 |
unless ($tok =~ /[A-Z]/)
|
|
4684
|
10 |
292 |
if ($tok_kw eq 'method' and $guess_if_method) { }
|
|
4685
|
7 |
3 |
if ($expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->method_ok_here) { }
|
|
4697
|
0 |
292 |
if $expecting == 1
|
|
4712
|
8 |
22 |
if ($tok_kw eq 'class') { }
|
|
4713
|
4 |
4 |
if ($expecting == 1 or not $next_nonblank_token =~ /^[\w\:]/ or not $self->class_ok_here) { }
|
|
4722
|
0 |
22 |
if $expecting == 1
|
|
4776
|
184 |
2584 |
unless (@{$routput_token_list;})
|
|
4808
|
183 |
2585 |
if ($in_quote)
|
|
4819
|
116 |
2469 |
if (++$i > $max_token_index)
|
|
4822
|
144 |
2325 |
if ($allowed_quote_modifiers)
|
|
4825
|
30 |
114 |
if ($rtokens->[$i] =~ /^[A-Za-z_]/)
|
|
4841
|
0 |
30 |
if ($saw_modifier_e and $i_tok >= 0)
|
|
4849
|
0 |
0 |
if ($rht)
|
|
4852
|
0 |
0 |
if ($i_tok < 0)
|
|
4859
|
30 |
0 |
if (defined pos $str) { }
|
|
4862
|
30 |
0 |
if (pos $str == length $str) { }
|
|
4863
|
0 |
30 |
if (++$i > $max_token_index)
|
|
4889
|
0 |
0 |
if (++$i > $max_token_index)
|
|
5093
|
14 |
7496 |
if (substr($untrimmed_input_line, 0, 1) eq "=" and $untrimmed_input_line =~ /^=[A-Za-z_]/)
|
|
5100
|
14 |
0 |
if (not $in_quote and $self->operator_expected("=", "b", $blank_after_Z) == -1)
|
|
5121
|
47 |
7449 |
if ($in_quote and $quote_type eq 'Q') { }
|
|
5130
|
797 |
6652 |
if (not length $input_line) { }
|
|
|
6643 |
9 |
elsif ($input_line =~ /\S/g) { }
|
|
5138
|
3541 |
3102 |
if ($spaces > 0)
|
|
5144
|
213 |
3328 |
if (ord substr($untrimmed_input_line, 0, 1) == 9 and $untrimmed_input_line =~ /^(\t+)/)
|
|
5167
|
7312 |
184 |
unless ($in_quote)
|
|
5170
|
806 |
6506 |
unless (length $input_line)
|
|
5183
|
788 |
5718 |
if (substr($input_line, 0, 1) eq "#")
|
|
5186
|
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/)
|
|
5212
|
7 |
5711 |
if (substr($input_line, 0, 1) eq "_" and $input_line =~ /^__(END|DATA)__\s*$/)
|
|
5296
|
2768 |
48028 |
if ($in_quote)
|
|
5298
|
299 |
2469 |
if $in_quote or $i > $max_token_index
|
|
5301
|
35283 |
15214 |
if ($type ne "b" and $type ne "CORE::")
|
|
5304
|
1592 |
33691 |
if ($type eq "n" and $tok ne 0)
|
|
5306
|
9 |
1583 |
if ($last_nonblank_token eq 'eq') { }
|
|
|
0 |
1583 |
elsif ($last_nonblank_token eq 'ne') { }
|
|
5318
|
29519 |
5764 |
if ($i_tok >= 0)
|
|
5330
|
29518 |
1 |
unless ($type eq "R" and $last_nonblank_type eq "Z")
|
|
5341
|
885 |
34398 |
if ($last_last_nonblank_token eq "->")
|
|
5342
|
674 |
211 |
if ($last_nonblank_type eq "w" or $last_nonblank_type eq "i")
|
|
5352
|
44733 |
5764 |
if ($i_tok >= 0)
|
|
5394
|
15356 |
35141 |
if $pre_type eq "b"
|
|
5399
|
328 |
34813 |
if $pre_type eq "#"
|
|
5402
|
17 |
34796 |
if ($id_scan_state)
|
|
5404
|
10 |
7 |
if ($is_sub{$id_scan_state} or $is_package{$id_scan_state}) { }
|
|
5411
|
1 |
16 |
if ($id_scan_state)
|
|
5417
|
0 |
1 |
if $i > $max_token_index
|
|
5424
|
0 |
1 |
if $i_next > $max_token_index
|
|
5430
|
9 |
7 |
if $i > 0 or $type
|
|
5449
|
2559 |
3121 |
if ($can_start_digraph{$tok} and $i < $max_token_index and $is_digraph{$tok . $$rtokens[$i + 1]})
|
|
5469
|
16 |
2543 |
if ($test_tok eq "//" and $last_nonblank_type ne "Z")
|
|
5477
|
4 |
12 |
if $expecting == -1
|
|
5483
|
39 |
2520 |
if ($test_tok eq "**")
|
|
5484
|
37 |
2 |
if ($last_nonblank_type ne "Z")
|
|
5487
|
2518 |
0 |
if ($combine_ok and $test_tok ne "/=" and $test_tok ne "x=" and $test_tok ne "*=")
|
|
5509
|
76 |
2442 |
if ($is_trigraph{$test_tok}) { }
|
|
5518
|
1 |
2441 |
if ($test_tok eq "<<>")
|
|
5520
|
1 |
0 |
if ($is_tetragraph{$test_tok})
|
|
5535
|
8391 |
26412 |
unless (defined $expecting)
|
|
5560
|
5832 |
28971 |
if ($pre_type eq "w")
|
|
5562
|
8 |
5824 |
if $is_last
|
|
5573
|
1934 |
27037 |
if ($pre_type eq "d")
|
|
5582
|
25304 |
1733 |
if ($code)
|
|
5584
|
2367 |
22937 |
if $in_quote
|
|
5589
|
5764 |
138 |
if ($i_tok >= 0)
|
|
5598
|
5429 |
473 |
if ($type ne "b" and $type ne "#")
|
|
5614
|
0 |
5902 |
if ($level_in_tokenizer < 0)
|
|
5615
|
0 |
0 |
if ($input_line =~ /^\s*(sub|package)\s+(\w+)/)
|
|
5622
|
184 |
5718 |
$in_quote ? :
|
|
5655
|
41533 |
9148 |
if (not $routput_type_sequence->[$i]) { }
|
|
5663
|
2674 |
38859 |
if ($is_semicolon_or_t{$type_i}) { }
|
|
|
0 |
38859 |
elsif (not $is_valid_token_type{$type_i}) { }
|
|
5665
|
172 |
2502 |
if ($is_END_DATA_format_sub{$tok_i})
|
|
5720
|
4574 |
4574 |
if ($is_opening_or_ternary_type{$type_i}) { }
|
|
|
4574 |
0 |
elsif ($is_closing_or_ternary_type{$type_i}) { }
|
|
5722
|
187 |
4387 |
if ($type_i eq '?') { }
|
|
5724
|
8 |
179 |
if ($routput_indent_flag->[$i] > 0)
|
|
5737
|
4080 |
307 |
if ($type_i eq "{" or $type_i eq "L")
|
|
5741
|
972 |
3108 |
if ($routput_block_type->[$i]) { }
|
|
5758
|
4387 |
187 |
if ($type_i ne ":")
|
|
5760
|
0 |
4387 |
if ($char ne $matching_start_token{$tok_i})
|
|
5765
|
375 |
486 |
if ($type_i eq "}" or $type_i eq "R" or $type_i eq ":" and $routput_indent_flag->[$i] < 0)
|
|
5776
|
0 |
4088 |
if ($level_in_tokenizer < 0)
|
|
5777
|
0 |
0 |
unless ($self->[39])
|
|
5785
|
4088 |
0 |
if (length $nesting_block_string > 1)
|
|
5813
|
1574 |
7574 |
unless (@levels)
|
|
5833
|
5902 |
0 |
if (@levels)
|
|
6001
|
24 |
8397 |
if (defined $op_expected)
|
|
6020
|
2644 |
5753 |
if ($last_nonblank_type eq 'k') { }
|
|
|
3590 |
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') { }
|
|
6023
|
7 |
2637 |
if ($expecting_operator_token{$last_nonblank_token}) { }
|
|
|
2538 |
99 |
elsif ($expecting_term_token{$last_nonblank_token}) { }
|
|
6034
|
1 |
2537 |
if ($tok eq '/' and $next_type eq '/' and $is_keyword_rejecting_slash_as_pattern_delimiter{$last_nonblank_token}) { }
|
|
|
0 |
2537 |
elsif ($tok eq '?' and $last_nonblank_token eq 'split') { }
|
|
6078
|
82 |
3508 |
if ($is_block_operator{$last_nonblank_token}) { }
|
|
|
2122 |
1386 |
elsif ($is_paren_dollar{substr $last_nonblank_token, 0, 1} or substr($last_nonblank_token, 0, 2) eq '->') { }
|
|
|
20 |
1366 |
elsif ($last_nonblank_token eq '~~') { }
|
|
6089
|
0 |
2122 |
if ($last_nonblank_token eq "\$")
|
|
6110
|
0 |
1366 |
if ($tok eq '/' and $next_type eq '/' and $last_nonblank_token eq ']') { }
|
|
|
1 |
1365 |
elsif ($tok eq '?') { }
|
|
6141
|
11 |
1974 |
if ($statement_type eq "use")
|
|
6150
|
0 |
137 |
if ($last_nonblank_token eq 'prototype') { }
|
|
|
3 |
134 |
elsif ($statement_type =~ /^package\b/) { }
|
|
6171
|
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/\+\-\*\%\&\.]|\>\>)$]) { }
|
|
6213
|
9 |
0 |
if ($statement_type ne "use")
|
|
6259
|
59 |
376 |
if ($last_nonblank_token eq '{') { }
|
|
|
99 |
277 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
6307
|
90 |
1211 |
if ($last_nonblank_token eq '{' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
48 |
1163 |
elsif ($last_nonblank_token eq ';') { }
|
|
|
9 |
1154 |
elsif ($last_nonblank_token eq '}' and $last_nonblank_type eq $last_nonblank_token) { }
|
|
|
34 |
1120 |
elsif ($last_nonblank_type eq 'J') { }
|
|
|
480 |
640 |
elsif ($is_code_block_token{$last_nonblank_token} or $is_grep_alias{$last_nonblank_token}) { }
|
|
|
294 |
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 =~ /\(\)$/) { }
|
|
6313
|
90 |
0 |
if ($rbrace_type->[$brace_depth]) { }
|
|
6339
|
9 |
0 |
if ($last_nonblank_block_type) { }
|
|
6377
|
0 |
480 |
if ($last_nonblank_type eq 'k' and $last_nonblank_token eq 'if' || $last_nonblank_token eq 'unless') { }
|
|
6416
|
1 |
21 |
if $statement_type eq "use"
|
|
6430
|
1 |
80 |
if ($paren_type and $is_sort_map_grep{$paren_type}) { }
|
|
6475
|
5 |
163 |
if ($next_nonblank_token eq '}') { }
|
|
6503
|
139 |
24 |
if ($next_nonblank_token ne "#")
|
|
6512
|
155 |
8 |
if (defined $rpre_types and @{$rpre_types;})
|
|
6522
|
59 |
104 |
if $pre_types[0] eq "b"
|
|
6530
|
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') { }
|
|
6535
|
1 |
0 |
if ($pre_types[$k] eq $quote_mark)
|
|
6554
|
80 |
83 |
if ($j > $jbeg)
|
|
6556
|
73 |
7 |
if $pre_types[$j] eq "b"
|
|
6559
|
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 ">")
|
|
6576
|
145 |
18 |
if ($code_block_type)
|
|
6582
|
18 |
127 |
if $code_block_type =~ /^\w/
|
|
6597
|
0 |
0 |
if (++$self->[44] <= 6)
|
|
6607
|
0 |
0 |
if ($i_tok > 0 and $last_nonblank_i >= 0)
|
|
6610
|
0 |
0 |
if ($$rpretoken_type[$i_tok - 1] eq 'b') { }
|
|
6616
|
0 |
0 |
if ($num > 40)
|
|
6753
|
4574 |
13722 |
if $bb == $aa
|
|
6759
|
187 |
4387 |
if ($aa == 3)
|
|
6761
|
17 |
170 |
if ($cd_aa > 1)
|
|
6762
|
16 |
1 |
if ($$rnested_ternary_flag[$cd_aa - 1] == 0)
|
|
6764
|
8 |
8 |
if ($pdepth == $total_depth - 1)
|
|
6787
|
39 |
8 |
if $cd_aa <= 0
|
|
6791
|
0 |
8 |
if $bb == $aa
|
|
6793
|
8 |
0 |
if $rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb]
|
|
6814
|
4574 |
0 |
if ($cd_aa > 0) { }
|
|
6818
|
187 |
4387 |
if ($aa == 3)
|
|
6827
|
1 |
0 |
if ($aa == 0 and $saved_type eq "Z" and $last_nonblank_type eq "w" and $rbrace_structural_type->[$brace_depth] eq "L")
|
|
6837
|
4574 |
13722 |
if $bb == $aa
|
|
6839
|
0 |
13722 |
if ($rdepth_array->[$aa][$bb][$cd_aa] != $rcurrent_depth->[$bb])
|
|
6845
|
0 |
0 |
if ($saw_brace_error <= 6 and $diff > 0 || $saw_brace_error <= 0)
|
|
6860
|
0 |
0 |
if ($diff == 1 or $diff == -1) { }
|
|
6866
|
0 |
0 |
$diff > 0 ? :
|
|
6875
|
0 |
0 |
if ($diff > 0)
|
|
6896
|
0 |
0 |
if ($saw_brace_error <= 6)
|
|
6906
|
0 |
0 |
if $closing_brace_names[$aa] ne "':'"
|
|
6920
|
0 |
2244 |
if ($cd_aa)
|
|
6950
|
6 |
176 |
if length $line <= 0
|
|
6951
|
14 |
162 |
if $line =~ /^#/
|
|
6969
|
25 |
144 |
if length $line <= 0
|
|
6970
|
21 |
123 |
if $line =~ /^#/
|
|
6977
|
35 |
320 |
if $tok =~ /
|
|
7004
|
0 |
11 |
if ($i >= $max_token_index) { }
|
|
7039
|
11 |
0 |
if ($in_quote) { }
|
|
7057
|
0 |
0 |
if ($tok eq ":")
|
|
7058
|
0 |
0 |
if ($tok eq "'")
|
|
7059
|
0 |
0 |
if ($tok eq "\"")
|
|
7061
|
0 |
0 |
if ($s_quote % 2 or $d_quote % 2 or $colons) { }
|
|
|
0 |
0 |
elsif ($self->pattern_expected($i, $rtokens, $max_token_index) >= 0) { }
|
|
7108
|
0 |
0 |
if ($i >= $max_token_index) { }
|
|
7116
|
0 |
0 |
if ($divide_possible < 0)
|
|
7152
|
0 |
0 |
if ($in_quote) { }
|
|
7156
|
0 |
0 |
if ($divide_possible >= 0) { }
|
|
7177
|
0 |
0 |
if ($pattern_expected >= 0) { }
|
|
7180
|
0 |
0 |
if ($divide_possible >= 0) { }
|
|
7188
|
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) { }
|
|
7231
|
0 |
0 |
if ($divide_possible >= 0) { }
|
|
7238
|
0 |
0 |
if ($is_pattern_by_spacing) { }
|
|
7274
|
0 |
0 |
if ($line =~ /^$next_token$/)
|
|
7279
|
0 |
0 |
if $k >= $HERE_DOC_WINDOW
|
|
7282
|
0 |
0 |
unless ($here_doc_expected)
|
|
7284
|
0 |
0 |
if (not defined $line) { }
|
|
7291
|
0 |
0 |
if (not $ris_constant->{$current_package}{$next_token}) { }
|
|
7326
|
9 |
1663 |
if ($tok eq "::")
|
|
7327
|
0 |
1672 |
if ($tok eq "->")
|
|
7336
|
1672 |
0 |
if ($input_line =~ /\G\s*((?:\w*(?:'|::)))*(?:(?:->)?(\w+))?/cg) { }
|
|
7347
|
1667 |
5 |
if (defined $2)
|
|
7348
|
274 |
1398 |
if (defined $1) { }
|
|
7354
|
0 |
274 |
if (not $sub_name and substr($package, -1, 1) eq "'")
|
|
7359
|
9 |
265 |
if ($package =~ /^\:/)
|
|
7366
|
0 |
1398 |
if ($is_keyword{$tok} and $last_nonblank_type ne "->")
|
|
7372
|
1003 |
669 |
if ($type eq "w" and $last_nonblank_type ne "->")
|
|
7376
|
2 |
1001 |
if ($tok =~ /^v\d[_\d]*$/) { }
|
|
|
12 |
989 |
elsif ($ris_constant->{$package}{$sub_name}) { }
|
|
|
1 |
988 |
elsif ($last_nonblank_token eq 'sort' and $last_nonblank_type eq 'k') { }
|
|
|
0 |
988 |
elsif ($ris_block_function->{$package}{$sub_name}) { }
|
|
|
0 |
988 |
elsif ($ris_block_list_function->{$package}{$sub_name}) { }
|
|
|
6 |
982 |
elsif ($ris_user_function->{$package}{$sub_name}) { }
|
|
|
4 |
978 |
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]}) { }
|
|
7380
|
2 |
0 |
if ($input_line =~ /\G(\.\d[_\d]*)+/cg)
|
|
7457
|
4 |
0 |
if (pos $input_line == length $input_line or $input_line =~ /\G[;\s]/cg) { }
|
|
7473
|
1 |
3 |
if ($sub_name =~ /[a-z]/)
|
|
7477
|
1 |
0 |
if ($input_line =~ /\G\s*\(/cg)
|
|
7503
|
0 |
1672 |
if ($error)
|
|
7549
|
10 |
321 |
if ($id_scan_state) { }
|
|
7565
|
2 |
329 |
if ($i_beg > $max_token_index) { }
|
|
7571
|
0 |
329 |
if ($next_nonblank_token eq "#")
|
|
7572
|
0 |
0 |
if ($tok ne "\$")
|
|
7577
|
309 |
20 |
if ($next_nonblank_token =~ /^\s/)
|
|
7581
|
4 |
305 |
if ($next_nonblank_token =~ /(^#|^\s*$)/)
|
|
7588
|
325 |
6 |
unless ($blank_line)
|
|
7590
|
299 |
26 |
if ($is_sub{$id_scan_state}) { }
|
|
|
26 |
0 |
elsif ($is_package{$id_scan_state}) { }
|
|
7619
|
0 |
331 |
if ($id_scan_state and not defined $type && $type)
|
|
7642
|
0 |
137 |
unless defined $package
|
|
7643
|
0 |
137 |
unless defined $subname
|
|
7644
|
34 |
103 |
if (defined $proto) { }
|
|
7647
|
5 |
29 |
if ($proto) { }
|
|
7652
|
1 |
4 |
if ($proto =~ /\&/)
|
|
7656
|
0 |
1 |
if ($proto =~ /\&$/) { }
|
|
7707
|
26 |
0 |
if ($input_line =~ /\G\s*((?:\w*(?:'|::))*\w*)/cg) { }
|
|
7709
|
26 |
0 |
defined $1 && $1 ? :
|
|
7711
|
0 |
26 |
if ($package =~ /^\:/)
|
|
7724
|
0 |
26 |
if ($error)
|
|
7744
|
26 |
0 |
if ($next_nonblank_token =~ /^([v\.\d;\{\}\#\:])|v\d|\d+$/) { }
|
|
7828
|
0 |
486 |
if ($tok_begin eq ":")
|
|
7857
|
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 '^') { }
|
|
7862
|
0 |
31 |
if ($i == $max_token_index)
|
|
7872
|
29 |
224 |
$tok =~ /^\d/ ? :
|
|
7901
|
95 |
4 |
if (not $last_tok_is_blank || $in_prototype_or_signature and $identifier =~ /^[\%\@\$\*]$/ || $identifier =~ /\$$/ and not $is_punct_var) { }
|
|
7928
|
0 |
4 |
if ($identifier eq '->') { }
|
|
|
0 |
4 |
elsif ($is_punct_var) { }
|
|
|
4 |
0 |
elsif ($id_scan_state eq $scan_state_SIGIL) { }
|
|
7940
|
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]/) { }
|
|
7964
|
26 |
11 |
if ($identifier eq "\$" or $i == 0)
|
|
7977
|
20 |
0 |
if ($identifier =~ /^[\$\%\*\&\@]/) { }
|
|
|
0 |
0 |
elsif ($identifier eq '->') { }
|
|
7979
|
8 |
12 |
if (length $identifier > 1) { }
|
|
7987
|
1 |
11 |
if ($i == $max_token_index) { }
|
|
|
1 |
10 |
elsif (not $identifier =~ /^[\@\$]$/) { }
|
|
8014
|
0 |
0 |
if ($i == $max_token_index)
|
|
8032
|
11 |
0 |
if ($identifier =~ /^[\$\*\@\%]$/) { }
|
|
8039
|
9 |
2 |
if ($is_special_variable_char{$chr}) { }
|
|
8048
|
3 |
6 |
length $next1 > 1 ? :
|
|
8065
|
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 '->') { }
|
|
8075
|
1 |
2 |
if ($i == $i_begin) { }
|
|
8086
|
0 |
2 |
if ($id_scan_state eq $scan_state_SIGIL and $tok eq "#")
|
|
8108
|
0 |
2 |
if ($tok eq '{') { }
|
|
|
0 |
2 |
elsif ($tok =~ /^[\:\-\+]$/) { }
|
|
8133
|
0 |
0 |
if ($tok eq '{') { }
|
|
8141
|
0 |
0 |
if (length $identifier == 1)
|
|
8157
|
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 /) { }
|
|
8190
|
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 /) { }
|
|
8201
|
0 |
12 |
if ($is_keyword{$identifier}) { }
|
|
8230
|
0 |
0 |
if ($tok eq '(') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^\s*$/) { }
|
|
8253
|
0 |
0 |
if ($tok eq ')') { }
|
|
|
0 |
0 |
elsif ($tok =~ /^[\s\$\%\\\*\@\&\;]/) { }
|
|
8273
|
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 '^') { }
|
|
8287
|
2 |
0 |
if (length $identifier == 1 and $i == $max_token_index)
|
|
8297
|
15 |
0 |
if ($identifier eq "&" or $i == 0)
|
|
8304
|
0 |
0 |
if ($identifier eq '&') { }
|
|
8313
|
0 |
0 |
if ($is_special_variable_char{$chr}) { }
|
|
8321
|
0 |
0 |
length $next1 > 1 ? :
|
|
8352
|
0 |
0 |
if ($identifier eq '&' and $expecting and $tok ne '#') { }
|
|
8411
|
479 |
7 |
if (not $id_scan_state) { }
|
|
8415
|
0 |
479 |
if ($tok eq ">")
|
|
8421
|
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 '->') { }
|
|
8458
|
0 |
0 |
unless ($self->[7])
|
|
8492
|
3 |
1166 |
unless ($code)
|
|
8494
|
3 |
0 |
if ($id_scan_state eq $scan_state_SPLIT) { }
|
|
8516
|
11 |
1155 |
if ($tok_is_blank) { }
|
|
8522
|
113 |
1053 |
if ($tok eq ":" and $$rtokens[$i + 1] eq ":")
|
|
8531
|
389 |
777 |
if $i <= $i_start_loop
|
|
8540
|
20 |
466 |
if ($id_scan_state)
|
|
8542
|
13 |
7 |
unless ($is_returnable_scan_state{$id_scan_state})
|
|
8544
|
3 |
10 |
if ($id_scan_state eq $scan_state_SPLIT)
|
|
8548
|
0 |
13 |
if ($id_scan_state eq $scan_state_RPAREN)
|
|
8558
|
0 |
20 |
if ($identifier eq "\$#")
|
|
8562
|
0 |
486 |
if ($i < 0)
|
|
8565
|
458 |
28 |
unless ($type)
|
|
8567
|
452 |
6 |
if ($saw_type) { }
|
|
|
5 |
1 |
elsif ($saw_alpha) { }
|
|
8569
|
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 ') { }
|
|
8574
|
0 |
348 |
if ($identifier =~ /^->/ and $last_nonblank_type eq 'w' and substr($identifier, 2, 1) =~ /^\w/) { }
|
|
8610
|
5 |
0 |
if ($id_scan_state_begin and $identifier =~ /^([\$\%\@\*\&]|->)/)
|
|
8622
|
444 |
42 |
if ($identifier) { }
|
|
8624
|
1 |
443 |
if ($message)
|
|
8734
|
5 |
294 |
$tok eq '(' ? :
|
|
|
2 |
299 |
$tok eq 'prototype' ? :
|
|
8750
|
122 |
179 |
if ($call_type == 1 and $input_line =~ /\G\s*
|
|
8763
|
0 |
0 |
if ($is_lexical_sub and $1)
|
|
8768
|
0 |
122 |
if ($is_lexical_sub) { }
|
|
8774
|
0 |
0 |
unless defined $seqno
|
|
8776
|
0 |
0 |
if ($warn_if_lexical{$subname})
|
|
8787
|
6 |
116 |
defined $1 && $1 ? :
|
|
8789
|
0 |
122 |
if ($package =~ /^\:/)
|
|
8821
|
45 |
256 |
if ($input_line =~ /\G(\s*\([^\)\(\}\{\,#A-Za-z]*\))? # PROTO
|
|
8834
|
24 |
21 |
if ($proto and $match || $call_type == 3) { }
|
|
|
2 |
19 |
elsif ($call_type == 2) { }
|
|
8853
|
2 |
43 |
if ($tok eq "sub" and not $proto)
|
|
8856
|
137 |
164 |
if ($match) { }
|
|
8861
|
15 |
122 |
if ($attrs)
|
|
8868
|
1 |
136 |
if ($pos == $pos_beg and $tok eq ':') { }
|
|
8881
|
0 |
136 |
if ($error)
|
|
8889
|
2 |
0 |
if ($type eq "k" and $attrs and $i > $i_entry and substr($rtokens->[$i], 0, 1) =~ /\s/)
|
|
8903
|
7 |
130 |
if ($next_nonblank_token =~ /^(\s*|#)$/)
|
|
8907
|
7 |
0 |
if (defined $rpre_tokens and @{$rpre_tokens;}) { }
|
|
8916
|
105 |
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) { }
|
|
8917
|
95 |
10 |
if ($subname)
|
|
8922
|
0 |
95 |
if ($rsaw_function_definition->{$subname}{$package} and not $subname =~ /^[A-Z]+$/)
|
|
8927
|
0 |
0 |
if ($package =~ /^\d/) { }
|
|
8955
|
14 |
2 |
if ($call_type == 1)
|
|
8956
|
13 |
1 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
8970
|
4 |
11 |
unless ($saw_opening_paren)
|
|
8973
|
15 |
0 |
if ($call_type == 1)
|
|
8974
|
15 |
0 |
substr($tok, 0, 3) eq 'sub' ? :
|
|
8982
|
0 |
0 |
if ($rinput_hash->{'tok'} eq 'method' and $call_type == 1) { }
|
|
8994
|
0 |
0 |
unless defined $subname
|
|
9032
|
9 |
6151 |
if ($i == $max_token_index - 1 and $rtokens->[$max_token_index] =~ /^\s+$/)
|
|
9038
|
127 |
6033 |
if ($i >= $max_token_index)
|
|
9039
|
125 |
2 |
unless (peeked_ahead())
|
|
9046
|
0 |
6160 |
unless defined $next_nonblank_token and length $next_nonblank_token
|
|
9052
|
2353 |
3807 |
if ($ord >= 33 and $ord <= 126) { }
|
|
|
3807 |
0 |
elsif ($ord == 32 or $ord == 9) { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token =~ /^\s*$/) { }
|
|
9061
|
0 |
3807 |
unless defined $next_nonblank_token
|
|
9067
|
0 |
0 |
unless defined $next_nonblank_token
|
|
9088
|
0 |
98 |
if ($next_nonblank_token eq "#")
|
|
9095
|
98 |
0 |
if ($next_nonblank_token and $next_nonblank_token ne " " and defined $$rtokens[$i_next + 1])
|
|
9100
|
15 |
83 |
if ($is_digraph{$test2})
|
|
9105
|
15 |
0 |
if (defined $$rtokens[$i_next + 1])
|
|
9107
|
0 |
15 |
if ($is_trigraph{$test3})
|
|
9130
|
0 |
0 |
if ($next_token eq "=")
|
|
9134
|
0 |
0 |
if ($next_nonblank_token eq "#")
|
|
9140
|
0 |
0 |
if ($next_nonblank_token =~ / [ \( \$ \w \. \@ ] /x) { }
|
|
|
0 |
0 |
elsif ($next_nonblank_token =~ /^\s*$/) { }
|
|
9181
|
0 |
0 |
if ($next_token =~ /^[msixpodualgc]/)
|
|
9187
|
0 |
0 |
if ($pattern_test{$next_nonblank_token}) { }
|
|
9193
|
0 |
0 |
if ($next_nonblank_token =~ /^\s*$/ or $next_nonblank_token eq '#') { }
|
|
9210
|
447 |
8 |
if ($i < $max_token_index) { }
|
|
9213
|
120 |
327 |
if ($next_nonblank_token =~ /^\s*$/)
|
|
9215
|
118 |
2 |
if ($i < $max_token_index)
|
|
9241
|
6 |
2 |
if ($expecting == -1) { }
|
|
|
2 |
0 |
elsif ($expecting == 0) { }
|
|
9282
|
8 |
0 |
if ($input_line =~ /($filter)/g)
|
|
9284
|
8 |
0 |
if ($1 eq '>') { }
|
|
9300
|
1 |
7 |
if ($last_nonblank_type eq "Z")
|
|
9303
|
0 |
0 |
unless (substr($last_nonblank_token, 0, 1) =~ /[A-Za-z_]/ or substr($str, 1, 1) =~ /[A-Za-z_]/)
|
|
9312
|
2 |
6 |
if ($expecting eq 0)
|
|
9314
|
1 |
1 |
if ($check eq "-")
|
|
9330
|
0 |
7 |
if ($error)
|
|
9348
|
0 |
7 |
if ($str =~ /^<\s*!/) { }
|
|
|
0 |
7 |
elsif ($str =~ m[^<\s*/\w+\s*>$]) { }
|
|
|
0 |
7 |
elsif ($str =~ /^<\?xml\s.*\?>$/i and $is_first_string) { }
|
|
9350
|
0 |
0 |
if ($is_first_string)
|
|
9372
|
0 |
7 |
if ($is_html_tag)
|
|
9378
|
1 |
6 |
if $str =~ /<\s+/
|
|
9379
|
1 |
6 |
if $str =~ /\s+>/
|
|
9383
|
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*>$/) { }
|
|
9419
|
0 |
0 |
if ($br or $sb or $pr) { }
|
|
9440
|
0 |
0 |
if ($expecting == -1)
|
|
9472
|
0 |
629 |
unless ($first_char =~ /[\d\.\+\-Ee]/)
|
|
9486
|
0 |
629 |
if ($input_line =~ /\G((\d[_\d]*)?\.[\d_]+(\.[\d_]+)+)/g)
|
|
9495
|
629 |
0 |
unless (defined $number)
|
|
9502
|
72 |
557 |
if ($input_line =~ /
|
|
9545
|
557 |
72 |
unless (defined $number)
|
|
9548
|
557 |
0 |
if ($input_line =~ /\G([+-]?[\d_]*(\.[\d_]*)?([Ee][+-]?(\d+))?)/g)
|
|
9552
|
37 |
520 |
if (substr($input_line, $pos - 1, 1) eq "." and substr($input_line, $pos, 1) eq ".")
|
|
9565
|
303 |
326 |
if (not $number =~ /\d/ or $number =~ /^(.*)[eE]/ and not $1 =~ /\d/)
|
|
9582
|
0 |
326 |
if ($error)
|
|
9596
|
2132 |
1903 |
if ($pos <= $rtoken_map->[$i])
|
|
9601
|
0 |
2132 |
if ($pos < $rtoken_map->[$i])
|
|
9633
|
0 |
9 |
if ($next_token eq "\\")
|
|
9641
|
6 |
3 |
if ($next_nonblank_token =~ /[\'\"\`]/) { }
|
|
|
0 |
3 |
elsif ($next_token =~ /^\s*$/ and $expecting == -1) { }
|
|
|
3 |
0 |
elsif ($next_token =~ /^\w/) { }
|
|
9655
|
0 |
6 |
if ($in_quote) { }
|
|
9657
|
0 |
0 |
if ($expecting == -1)
|
|
9674
|
0 |
0 |
if $tokj eq "\\" and $j < $i - 1 and $$rtokens[$j + 1] eq $here_quote_character
|
|
9691
|
0 |
3 |
if ($expecting == 0) { }
|
|
9698
|
3 |
0 |
if ($here_doc_expected)
|
|
9707
|
0 |
0 |
if ($expecting == -1) { }
|
|
9717
|
0 |
9 |
if ($found_target and $backslash)
|
|
9751
|
29 |
2739 |
if ($in_quote == 2)
|
|
9760
|
29 |
0 |
if ($in_quote == 1) { }
|
|
9761
|
0 |
29 |
if ($quote_character =~ /[\{\[\<\(]/)
|
|
9769
|
2768 |
0 |
if ($in_quote == 1)
|
|
9778
|
183 |
2585 |
if ($in_quote == 1)
|
|
9835
|
183 |
2631 |
if (not $beginning_tok =~ /^\s*$/) { }
|
|
9841
|
254 |
2377 |
$i < 0 ? :
|
|
9846
|
2631 |
0 |
if (not $tok =~ /^\s*$/) { }
|
|
9848
|
0 |
2631 |
if ($tok eq '#' and $allow_quote_comments) { }
|
|
9853
|
1 |
2630 |
if (length $tok > 1) { }
|
|
9854
|
1 |
0 |
if ($quote_pos <= 0)
|
|
9883
|
1 |
2813 |
if ($beginning_tok =~ /\w/) { }
|
|
9887
|
1 |
0 |
if ($in_quote == 1)
|
|
9895
|
3 |
1 |
if ($quote_pos == 0 or $i < 0)
|
|
9898
|
1 |
2 |
if ($tok eq "\\")
|
|
9901
|
1 |
0 |
unless $$rtokens[$i + 1] eq $end_tok
|
|
9904
|
0 |
1 |
if $i >= $max_token_index
|
|
9912
|
1 |
3 |
if ($quote_pos > 0) { }
|
|
9924
|
1 |
0 |
if ($quote_depth == 0)
|
|
9930
|
3 |
0 |
if ($old_pos <= length $tok)
|
|
9945
|
2620 |
8178 |
if ($tok eq $end_tok) { }
|
|
|
1 |
8177 |
elsif ($tok eq $beginning_tok) { }
|
|
|
376 |
7801 |
elsif ($tok eq '\\') { }
|
|
9948
|
2619 |
1 |
if ($quote_depth == 0)
|
|
9960
|
368 |
8 |
if $tok ne $end_tok and $tok ne $beginning_tok
|
|
9969
|
0 |
2814 |
if ($i > $max_token_index)
|
|
10034
|
0 |
0 |
$pos < 60 ? :
|
|
10036
|
0 |
0 |
$excess > 0 ? :
|
|
10038
|
0 |
0 |
if (defined $numc) { }
|
|
10039
|
0 |
0 |
if ($offset == 0) { }
|
|
10048
|
0 |
0 |
if ($offset == 0) { }
|
|
10085
|
0 |
0 |
if ($pos < 0 or $pos > length $underline)
|
|
10089
|
0 |
0 |
if ($excess > 0)
|
|
10126
|
5902 |
285 |
unless ($max_tokens_wanted)
|
|
10130
|
76142 |
6043 |
if ($str =~ /
|
|
10142
|
2598 |
16661 |
defined $4 ? :
|
|
|
38146 |
19259 |
defined $3 ? :
|
|
|
18737 |
57405 |
defined $2 ? :
|
|
10186
|
373 |
2625 |
if ($matching_end_token{$beginning_token})
|