| line |
true |
false |
branch |
|
97
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
159
|
0 |
0 |
if ($stay_alive and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762.
|
|
1056
|
0 |
658 |
if (@arglist % 2)
|
|
1078
|
0 |
658 |
unless (defined $sink_object)
|
|
1123
|
0 |
86198 |
unless (exists $self->[$_])
|
|
1127
|
0 |
658 |
if (@missing)
|
|
1132
|
0 |
658 |
if (_increment_count() > 1)
|
|
1138
|
656 |
2 |
if ($logger_object)
|
|
1141
|
2 |
654 |
if ($rOpts->{'entab-leading-whitespace'}) { }
|
|
|
0 |
654 |
elsif ($rOpts->{'tabs'}) { }
|
|
1359
|
0 |
0 |
if (defined $Klimit and $Klimit != $num - 1 or not defined $Klimit and $num > 0)
|
|
1369
|
0 |
0 |
unless defined $Klimit
|
|
1370
|
0 |
0 |
unless $msg
|
|
1392
|
0 |
0 |
if ($exact_match)
|
|
1393
|
0 |
0 |
if ($error)
|
|
1422
|
0 |
0 |
if ($nvars != 8)
|
|
1425
|
0 |
0 |
unless defined $type
|
|
1437
|
0 |
0 |
unless (defined $rLL->[$KK][$var])
|
|
1457
|
0 |
0 |
unless (defined $K_next_seqno)
|
|
1458
|
0 |
0 |
if ($K_next_seqno <= $KK or $K_next_seqno > $Klimit)
|
|
1465
|
0 |
0 |
unless ($rLL->[$K_next_seqno][7])
|
|
1475
|
0 |
0 |
if (defined $K_last_seqno)
|
|
1478
|
0 |
0 |
unless defined $Ktest
|
|
1495
|
0 |
0 |
if ($seqno_parent >= $seqno)
|
|
1566
|
0 |
0 |
if ($logger_object)
|
|
1575
|
3552 |
6 |
if ($logger_object)
|
|
1589
|
7 |
0 |
if ($logger_object)
|
|
1598
|
656 |
2 |
if ($logger_object)
|
|
1607
|
656 |
2 |
if ($logger_object)
|
|
1617
|
0 |
0 |
if ($diagnostics_object)
|
|
1681
|
7182 |
4007 |
unless defined $str
|
|
1684
|
658 |
3349 |
unless length $str
|
|
1698
|
0 |
600 |
unless defined $KK
|
|
1699
|
0 |
600 |
if $KK < 0
|
|
1703
|
600 |
0 |
unless defined $rLL
|
|
1708
|
563 |
466 |
if ($type ne "b" and $type ne "#")
|
|
1728
|
0 |
815 |
unless defined $KK
|
|
1729
|
0 |
815 |
if $KK < 0
|
|
1732
|
562 |
253 |
unless defined $rLL
|
|
1738
|
813 |
505 |
if ($rLL->[$KK][6] ne "b")
|
|
1758
|
2068 |
859 |
unless defined $rLL
|
|
1761
|
2 |
2925 |
unless (defined $KK)
|
|
1763
|
0 |
2927 |
if ($KK > $Num)
|
|
1778
|
2926 |
1206 |
if ($type ne "b" and $type ne "#")
|
|
1799
|
847 |
589 |
unless defined $rLL
|
|
1801
|
515 |
921 |
unless (defined $KK)
|
|
1803
|
0 |
1436 |
if ($KK > $Num)
|
|
1819
|
1426 |
1048 |
if ($rLL->[$KK][6] ne "b")
|
|
1835
|
0 |
0 |
unless defined $rLL
|
|
1837
|
0 |
0 |
unless @{$rLL;}
|
|
1840
|
0 |
0 |
if ($type ne "b" and $type ne "#")
|
|
1854
|
0 |
0 |
unless defined $rLL
|
|
1856
|
0 |
0 |
unless @{$rLL;}
|
|
1859
|
0 |
0 |
if ($type ne "b" and $type ne "#")
|
|
1871
|
1459 |
0 |
if ($seqno)
|
|
1875
|
1459 |
1445 |
if $seqno == 1
|
|
1876
|
0 |
1445 |
if ($seqno >= $seqno_last)
|
|
1903
|
0 |
520 |
unless $seqno
|
|
1904
|
520 |
0 |
unless (defined $value)
|
|
1908
|
520 |
343 |
if $seqno == 1
|
|
1909
|
0 |
343 |
if ($seqno >= $seqno_last)
|
|
1969
|
0 |
251 |
unless defined $KK
|
|
1971
|
101 |
150 |
if ($type_sequence) { }
|
|
1976
|
127 |
23 |
if (defined $Kt)
|
|
1981
|
24 |
103 |
if ($is_closing_type{$type}) { }
|
|
1991
|
0 |
251 |
unless defined $parent_seqno
|
|
2006
|
0 |
0 |
unless defined $seqno_paren
|
|
2012
|
0 |
0 |
if $seqno == 1
|
|
2013
|
0 |
0 |
if ($self->[10]{$seqno})
|
|
2016
|
0 |
0 |
if ($seqno >= $seqno_last)
|
|
2042
|
0 |
0 |
unless defined $KK
|
|
2046
|
0 |
0 |
if ($self->[10]{$parent_seqno}) { }
|
|
2065
|
0 |
19 |
unless (defined $seqno_parent_1 and defined $seqno_parent_2)
|
|
2084
|
0 |
364 |
if ($i < 0)
|
|
2090
|
210 |
154 |
if not $seqno or $seqno == 1
|
|
2091
|
40 |
114 |
if $self->[8]{$seqno}
|
|
2105
|
119 |
45 |
if not $parent_seqno or $parent_seqno == 1
|
|
2115
|
0 |
1925 |
unless $seqno
|
|
2116
|
1305 |
620 |
if $seqno == 1
|
|
2117
|
162 |
458 |
if ($self->[39]{$seqno})
|
|
2129
|
0 |
46 |
unless defined $seqno
|
|
2179
|
39 |
23 |
if ($ltype eq 'HERE') { }
|
|
|
23 |
0 |
elsif ($ltype eq 'HERE_END') { }
|
|
2208
|
0 |
0 |
if ($type_KK ne ",")
|
|
2214
|
0 |
0 |
if (defined $Knnb)
|
|
2217
|
0 |
0 |
if ($type_sequence and $is_closing_type{$type_Knnb})
|
|
2230
|
0 |
59 |
$KK <= 0 ? :
|
|
2299
|
0 |
0 |
unless ($is_qwaf_Q)
|
|
2304
|
0 |
0 |
unless (defined $nch)
|
|
2308
|
0 |
0 |
unless defined $nch
|
|
2340
|
0 |
3 |
unless defined $rlist
|
|
2344
|
0 |
4 |
unless (is_keyword($word))
|
|
2348
|
3 |
0 |
unless @unknown_words
|
|
2350
|
0 |
0 |
if ($option_name)
|
|
2357
|
0 |
0 |
if $die_on_error
|
|
2379
|
0 |
40 |
unless defined $rlist
|
|
2382
|
12 |
28 |
if (defined $rkeyword_list)
|
|
2388
|
0 |
0 |
unless (is_valid_token_type($type) or $in_keyword_list{$type})
|
|
2392
|
40 |
0 |
unless @unknown_types
|
|
2394
|
0 |
0 |
if ($option_name)
|
|
2402
|
0 |
0 |
if $die_on_error
|
|
2422
|
0 |
657 |
if ($rOpts->{'dump-want-left-space'})
|
|
2427
|
0 |
657 |
if ($rOpts->{'dump-want-right-space'})
|
|
2478
|
0 |
657 |
if ($rOpts->{'dump-cuddled-block-list'})
|
|
2487
|
3 |
654 |
if ($rOpts->{'indent-only'})
|
|
2489
|
0 |
3 |
if ($rOpts->{'dump-mismatched-args'} or $rOpts->{'dump-mismatched-returns'})
|
|
2495
|
0 |
3 |
if ($rOpts->{'dump-block-summary'})
|
|
2512
|
0 |
657 |
if ($_ and $_ > $MAX_SIL)
|
|
2522
|
0 |
657 |
if (not $_ or $_ <= 0)
|
|
2550
|
4 |
653 |
unless ($rOpts->{'maximum-line-length'})
|
|
2555
|
0 |
657 |
unless ($rOpts->{'long-block-line-count'})
|
|
2588
|
12 |
645 |
if ($rOpts_delete_old_whitespace and not $rOpts_add_whitespace)
|
|
2592
|
0 |
72 |
if ($closing_vertical_tightness{$_} == 2)
|
|
2640
|
2 |
0 |
if (defined $opt_value)
|
|
2645
|
0 |
2 |
unless (defined $opt_value and length $opt_value)
|
|
2646
|
0 |
0 |
if ($rhs_required)
|
|
2653
|
1 |
0 |
unless ($opt_value =~ /[\(\{\[]/ or $opt_value =~ /\s/ or $$rvalid_regex{substr $opt_value, -1, 1})
|
|
2659
|
0 |
3 |
unless defined $rvalid_regex
|
|
2661
|
0 |
3 |
unless ($regex2 and $opt_value =~ /$regex2/)
|
|
2685
|
1 |
1 |
if ($item =~ /^ ([^\(\[\{]*)? ([\(\{\[]) ([^\(\[\{]*)? $/x) { }
|
|
|
1 |
0 |
elsif ($$rvalid_regex{substr $item, -1, 1}) { }
|
|
2687
|
1 |
0 |
if length $1
|
|
2689
|
0 |
1 |
if length $3
|
|
2697
|
0 |
1 |
if (length $item > 1)
|
|
2707
|
0 |
2 |
if (not defined $flag2 and $rhs_required)
|
|
2715
|
2 |
0 |
if ($rvalid_regex)
|
|
2717
|
0 |
2 |
if (defined $flag1 and not defined $regex1 && $flag1 =~ /$regex1/)
|
|
2724
|
0 |
2 |
if (defined $flag2 and not defined $regex2 && $flag2 =~ /$regex2/)
|
|
2732
|
2 |
0 |
unless (defined $control_hash{$key})
|
|
2739
|
0 |
0 |
if (defined $rflags->[0] and $rflags->[0] ne $flag1)
|
|
2743
|
0 |
0 |
if (defined $rflags->[1] and $rflags->[1] ne $flag2)
|
|
2749
|
0 |
1 |
if (%multiple_entries)
|
|
2762
|
656 |
1 |
unless defined $opt
|
|
2767
|
0 |
0 |
if ($opt =~ /\W/g and $opt ne "-" and $opt ne "*")
|
|
2794
|
2 |
655 |
if (defined $olbxl)
|
|
2796
|
2 |
0 |
if (@list)
|
|
2798
|
0 |
2 |
if (@unknown)
|
|
2817
|
656 |
1 |
unless ($is_olb_exclusion_word{'*'})
|
|
2819
|
2623 |
1 |
unless ($is_olb_exclusion_word{$_})
|
|
2828
|
657 |
0 |
if (@grep_aliases)
|
|
2832
|
656 |
1 |
if ($want_one_line_block{'grep'})
|
|
2887
|
653 |
4 |
unless $opt_value
|
|
2890
|
0 |
4 |
unless $opt_value
|
|
2941
|
0 |
9 |
unless (defined $key)
|
|
2945
|
8 |
1 |
unless (defined $weld_nested_exclusion_rules{$key})
|
|
2951
|
1 |
8 |
if ($tok eq "q")
|
|
2959
|
5 |
3 |
if ($item)
|
|
2960
|
5 |
0 |
if ($item =~ /^([\^\.])?([kKfFwW])?$/) { }
|
|
2961
|
5 |
0 |
if $1
|
|
2962
|
3 |
2 |
if $2
|
|
2971
|
6 |
2 |
if ($pos eq "^" or $pos eq "*")
|
|
2972
|
0 |
6 |
if (defined $rflags->[0] and $rflags->[0] ne $select)
|
|
2977
|
5 |
3 |
if ($pos eq "." or $pos eq "*")
|
|
2978
|
0 |
5 |
if (defined $rflags->[1] and $rflags->[1] ne $select)
|
|
2983
|
0 |
8 |
if ($err)
|
|
2985
|
0 |
4 |
if ($msg1)
|
|
2991
|
0 |
4 |
if ($msg2)
|
|
3007
|
1 |
656 |
if ($rOpts->{'weld-fat-comma'})
|
|
3027
|
0 |
657 |
if ($lpxl and $lpil)
|
|
3032
|
3 |
654 |
if ($lpxl) { }
|
|
|
1 |
653 |
elsif ($lpil) { }
|
|
3062
|
0 |
4 |
unless $opt_value
|
|
3065
|
0 |
4 |
unless $opt_value
|
|
3083
|
10 |
0 |
if ($item =~ /^ ([^\(\[\{]*)? ([\(\{\[]) (\d)? $/x) { }
|
|
3085
|
3 |
7 |
if $1
|
|
3086
|
10 |
0 |
if $2
|
|
3087
|
3 |
7 |
if defined $3
|
|
3094
|
0 |
10 |
unless (defined $key)
|
|
3100
|
7 |
3 |
unless (defined $flag1)
|
|
3102
|
0 |
10 |
unless ($flag1 =~ /^[kKfFwW\*]$/)
|
|
3112
|
7 |
3 |
unless (defined $flag2)
|
|
3114
|
0 |
10 |
unless ($flag2 =~ /^[012]$/)
|
|
3119
|
10 |
0 |
unless (defined $line_up_parentheses_control_hash{$key})
|
|
3127
|
0 |
0 |
if (defined $rflags->[0] and $rflags->[0] ne $flag1)
|
|
3131
|
0 |
0 |
if (defined $rflags->[1] and $rflags->[1] ne $flag2)
|
|
3135
|
0 |
0 |
if $err
|
|
3138
|
0 |
4 |
if ($msg1)
|
|
3144
|
0 |
4 |
if ($msg2)
|
|
3152
|
3 |
1 |
if ($line_up_parentheses_control_is_lpxl)
|
|
3156
|
5 |
0 |
if (defined $rflags)
|
|
3158
|
2 |
3 |
if ($flag1 and $flag1 ne "*")
|
|
3159
|
0 |
3 |
if ($flag2)
|
|
3162
|
1 |
2 |
if ($all_off)
|
|
3180
|
1 |
656 |
if (my(@q) = split_words($rOpts->{'nospace-after-keyword'}))
|
|
3183
|
0 |
1 |
if (@q == 1 and $q[0] eq '*') { }
|
|
3190
|
1 |
656 |
if (my(@q) = split_words($rOpts->{'space-after-keyword'}))
|
|
3206
|
656 |
1 |
unless $opt_value
|
|
3209
|
0 |
1 |
unless $opt_value
|
|
3233
|
0 |
1 |
if ($error_message)
|
|
3240
|
0 |
1 |
unless ($rcontrol_hash)
|
|
3266
|
2 |
655 |
if (@hct)
|
|
3285
|
657 |
0 |
if (defined $hxlo_value)
|
|
3291
|
1 |
656 |
if (defined $hxs_str)
|
|
3294
|
1 |
0 |
if ($hxs_str =~ /^(\d+)?(;?)(\d+)?$/) { }
|
|
3296
|
1 |
0 |
defined $2 ? :
|
|
3310
|
1 |
656 |
if (defined $htxp_str)
|
|
3312
|
0 |
1 |
if (bad_pattern($pattern))
|
|
3329
|
656 |
1 |
unless $opt_value
|
|
3332
|
0 |
1 |
unless $opt_value
|
|
3347
|
0 |
1 |
if ($error_message)
|
|
3354
|
0 |
1 |
unless ($rcontrol_hash)
|
|
3360
|
0 |
1 |
unless ($rOpts->{'break-at-old-comma-breakpoints'})
|
|
3370
|
1 |
1 |
if $key_mate
|
|
3382
|
1 |
656 |
if (@okw) { }
|
|
3401
|
1 |
656 |
if (@kpit) { }
|
|
3419
|
2 |
655 |
if (defined $kpit_value and $kpit_value != 1)
|
|
3450
|
2 |
655 |
if ($rOpts->{$long_name})
|
|
3461
|
2 |
2 |
if (defined $hash{$word}) { }
|
|
|
0 |
2 |
elsif ($word eq 'k') { }
|
|
|
1 |
1 |
elsif ($word eq 't') { }
|
|
|
1 |
0 |
elsif ($word eq 'kt') { }
|
|
3481
|
0 |
2 |
if (@unknown)
|
|
3510
|
2 |
152 |
if ($tok eq "?")
|
|
3511
|
0 |
154 |
if ($tok eq ",")
|
|
3514
|
24 |
128 |
if (defined $lbs and defined $rbs and $lbs < $rbs)
|
|
3528
|
0 |
385 |
if ($tok eq ",")
|
|
3531
|
368 |
16 |
if (defined $lbs and defined $rbs and $rbs < $lbs)
|
|
3548
|
2 |
655 |
if $rOpts->{'break-after-all-operators'}
|
|
3550
|
1 |
656 |
if $rOpts->{'break-before-all-operators'}
|
|
3559
|
1 |
656 |
if (my(@q) = split_words($rOpts->{$optname}))
|
|
3564
|
11 |
646 |
if (my(@q) = split_words($rOpts->{$optname}))
|
|
3575
|
39420 |
0 |
if (defined $lbs and defined $rbs)
|
|
3587
|
2 |
655 |
unless ($want_break_before{':'})
|
|
3597
|
5 |
652 |
if $_ and $_ > 0
|
|
3600
|
0 |
657 |
if $_ and $_ > 0
|
|
3603
|
5 |
652 |
if $_ and $_ > 0
|
|
3615
|
4 |
653 |
if ($rOpts->{'extended-line-up-parentheses'})
|
|
3619
|
33 |
624 |
if ($rOpts->{'line-up-parentheses'})
|
|
3621
|
0 |
33 |
if ($rOpts->{'indent-only'} or not $rOpts->{'add-newlines'} or not $rOpts->{'delete-old-newlines'})
|
|
3638
|
0 |
33 |
if ($rOpts->{'whitespace-cycle'})
|
|
3651
|
0 |
0 |
if ($rOpts->{'variable-maximum-line-length'} and $rOpts->{'line-up-parentheses'} and $rOpts->{'add-trailing-commas'} and $rOpts->{'delete-trailing-commas'} and $rOpts->{'want-trailing-commas'})
|
|
3684
|
1 |
656 |
if ($rOpts->{$long_name})
|
|
3687
|
0 |
1 |
if ($word eq "?")
|
|
3688
|
0 |
1 |
if ($word eq "/")
|
|
3689
|
0 |
1 |
if ($word eq "-")
|
|
3690
|
1 |
0 |
if ($is_ok{$word}) { }
|
|
3693
|
0 |
1 |
if (@unknown)
|
|
3714
|
657 |
0 |
unless $rOpts->{'tabs'}
|
|
3723
|
0 |
0 |
if ($rOpts->{$opt})
|
|
3744
|
5 |
0 |
if (defined $opt and $opt > 0 and $break_before_container_types{$tok})
|
|
3750
|
3 |
2 |
if ($opt == 2)
|
|
3751
|
1 |
2 |
if ($rOpts->{'line-up-parentheses'} or $rOpts->{'indent-columns'} <= $rOpts->{'continuation-indentation'})
|
|
3768
|
2 |
655 |
if ($rOpts->{'ignore-old-breakpoints'})
|
|
3771
|
0 |
2 |
if ($rOpts->{'break-at-old-method-breakpoints'})
|
|
3775
|
0 |
2 |
if ($rOpts->{'break-at-old-comma-breakpoints'})
|
|
3779
|
0 |
2 |
if ($rOpts->{'break-at-old-semicolon-breakpoints'})
|
|
3783
|
0 |
2 |
if ($rOpts->{'keep-old-breakpoints-before'})
|
|
3787
|
0 |
2 |
if ($rOpts->{'keep-old-breakpoints-after'})
|
|
3792
|
0 |
2 |
if (@conflicts)
|
|
3823
|
0 |
1 |
if (defined $want_break_before{$key} and not $want_break_before{$key} and $is_soft_keep_break_type{$key})
|
|
3832
|
0 |
0 |
if (defined $want_break_before{$key} and $want_break_before{$key} and $is_soft_keep_break_type{$key})
|
|
3853
|
1312 |
2 |
unless $str
|
|
3868
|
1 |
1 |
if ($short_name eq 'kbb') { }
|
|
|
1 |
0 |
elsif ($short_name eq 'kba') { }
|
|
3884
|
0 |
3 |
if ($item =~ /^( [ \w\* ] )( [ \{\(\[\}\)\] ] )$/x)
|
|
3886
|
0 |
0 |
if (defined $flags{$2}) { }
|
|
3898
|
0 |
0 |
if (length $flag != 1) { }
|
|
|
0 |
0 |
elsif ($key eq '(' || $key eq ')' and not $flag =~ /^[kKfFwW\*]$/) { }
|
|
|
0 |
0 |
elsif ($key eq '}' || $key eq '}' and not $flag =~ /^[bB\*]$/) { }
|
|
3961
|
656 |
1 |
unless ($opt)
|
|
3987
|
1 |
0 |
if (defined $opt)
|
|
3992
|
1 |
0 |
if ($word eq 'q*') { }
|
|
|
0 |
0 |
elsif ($word eq $neg_char . 'q*') { }
|
|
|
0 |
0 |
elsif ($is_valid_term{$word}) { }
|
|
|
0 |
0 |
elsif (substr($word, 0, 1) eq $neg_char and $is_valid_term{substr $word, 1}) { }
|
|
4014
|
0 |
1 |
if ($error_string)
|
|
4022
|
1 |
0 |
unless ($negative_input{'<<>>'})
|
|
4031
|
0 |
10 |
if $negative_input{$word}
|
|
4033
|
2 |
8 |
if ($is_type_option{$word}) { }
|
|
|
8 |
0 |
elsif ($is_Q_subtype_option{$word}) { }
|
|
4034
|
1 |
1 |
if ($word eq "qw")
|
|
4052
|
1 |
0 |
if (@Q_subtype_list)
|
|
4054
|
0 |
1 |
if (bad_pattern($regex))
|
|
4273
|
2 |
655 |
if ($rOpts_whitespace_cycle)
|
|
4274
|
2 |
0 |
if ($rOpts_whitespace_cycle > 0) { }
|
|
4289
|
1 |
656 |
if ($rOpts_variable_maximum_line_length)
|
|
4313
|
644 |
11639 |
if ($excess_inside_space <= 0)
|
|
4336
|
644 |
9719 |
if $remaining_cycles <= 3
|
|
4345
|
0 |
657 |
$rOpts->{'variable-maximum-line-length'} && $rOpts->{'line-up-parentheses'} ? :
|
|
4377
|
3 |
654 |
if ($option)
|
|
4383
|
3 |
654 |
if (defined $option and length $option)
|
|
4391
|
3 |
0 |
if (length $option == 1) { }
|
|
4394
|
3 |
0 |
if ($option)
|
|
4413
|
0 |
0 |
unless $val
|
|
4415
|
0 |
0 |
if ($val and not $is_valid_flag{$val})
|
|
4428
|
0 |
0 |
if (length $part)
|
|
4430
|
0 |
0 |
if ($is_opening_token{$token})
|
|
4441
|
0 |
0 |
if (length $part)
|
|
4444
|
0 |
0 |
unless ($paren_flag =~ /^[kKfFwW]$/)
|
|
4449
|
0 |
0 |
unless ($is_paren)
|
|
4456
|
0 |
0 |
if (length $part)
|
|
4463
|
0 |
0 |
if (defined $rule_hash{$key})
|
|
4468
|
0 |
0 |
if ($duplicate)
|
|
4476
|
0 |
3 |
if ($error_message) { }
|
|
4498
|
655 |
2 |
unless $opt
|
|
4503
|
0 |
2 |
if ($opt eq "kf" or $opt eq "fk")
|
|
4506
|
0 |
2 |
if (length $opt != 1) { }
|
|
|
0 |
2 |
elsif (not $opt =~ /^[kKfFwW\*01]$/) { }
|
|
4579
|
12 |
645 |
if ($option)
|
|
4587
|
3 |
654 |
if (defined $tc_paren_rule)
|
|
4592
|
15 |
642 |
if (defined $option and length $option)
|
|
4600
|
15 |
0 |
if (length $option == 1) { }
|
|
4604
|
15 |
30 |
if ($key eq ")")
|
|
4621
|
0 |
0 |
if ($val and not $is_valid_flag{$val})
|
|
4635
|
0 |
0 |
if (length $part)
|
|
4637
|
0 |
0 |
if ($is_opening_token{$token})
|
|
4648
|
0 |
0 |
if (length $part)
|
|
4650
|
0 |
0 |
if ($sign eq '+') { }
|
|
|
0 |
0 |
elsif ($sign eq '-') { }
|
|
4664
|
0 |
0 |
if (length $part)
|
|
4667
|
0 |
0 |
unless ($paren_flag =~ /^[kKfFwW]$/)
|
|
4672
|
0 |
0 |
unless ($is_paren)
|
|
4679
|
0 |
0 |
if (length $part)
|
|
4692
|
0 |
0 |
if ($key eq ")")
|
|
4696
|
0 |
0 |
if (defined $rule_hash{$sign}{$key})
|
|
4704
|
0 |
0 |
if ($duplicate)
|
|
4712
|
15 |
0 |
unless ($error_message)
|
|
4715
|
15 |
0 |
if (defined $radd and defined $rdelete)
|
|
4719
|
45 |
0 |
if (defined $radd_info and defined $rdelete_info)
|
|
4722
|
45 |
0 |
if $add_val eq $delete_val
|
|
4725
|
0 |
0 |
unless (defined $add_order)
|
|
4731
|
0 |
0 |
unless (defined $delete_order)
|
|
4737
|
0 |
0 |
if ($add_order <= $delete_order)
|
|
4747
|
0 |
15 |
if ($error_message) { }
|
|
4761
|
4 |
653 |
if ($rOpts_add_trailing_commas and $rOpts_delete_trailing_commas)
|
|
4771
|
0 |
4 |
if ($rOpts_whitespace_cycle and $rOpts_whitespace_cycle <= 4) { }
|
|
|
0 |
4 |
elsif (%trailing_comma_break_rules) { }
|
|
4780
|
0 |
0 |
unless defined $delete_rule
|
|
4781
|
0 |
0 |
if $delete_rule->[0] ne "i"
|
|
4783
|
0 |
0 |
unless defined $break_rule
|
|
4787
|
0 |
0 |
if ($break_rule->[0])
|
|
4812
|
0 |
2 |
if ($opt_add and $opt_delete and not $opt_style)
|
|
4819
|
656 |
1 |
unless defined $opt_style
|
|
4823
|
0 |
1 |
unless length $opt_style
|
|
4825
|
0 |
1 |
if ($opt_style eq '0') { }
|
|
|
0 |
1 |
elsif ($opt_style eq '1') { }
|
|
|
0 |
1 |
elsif ($opt_style eq '*') { }
|
|
4845
|
15 |
1 |
if ($opt_style =~ /
|
|
4857
|
3 |
12 |
if ($1)
|
|
4858
|
4 |
8 |
if ($2)
|
|
4859
|
4 |
0 |
if (not $ch1) { }
|
|
4863
|
3 |
5 |
if ($3)
|
|
4864
|
3 |
0 |
if ($ch1) { }
|
|
4868
|
4 |
1 |
if ($4)
|
|
4869
|
4 |
0 |
if ($ch1 or $ch2) { }
|
|
4871
|
4 |
0 |
if (not defined $rule_hash{$key}) { }
|
|
4872
|
3 |
1 |
$ch2 ? :
|
|
4886
|
0 |
1 |
if ($5)
|
|
4888
|
0 |
0 |
if (length $bad > 10)
|
|
4902
|
0 |
1 |
if ($err_msg)
|
|
4904
|
0 |
0 |
if ($pos_last and length $opt_style < 20)
|
|
5039
|
13 |
644 |
unless ($rOpts->{'space-for-semicolon'})
|
|
5045
|
2 |
655 |
if ($rOpts->{'space-terminal-semicolon'})
|
|
5050
|
5 |
652 |
if (my(@q) = split_words($rOpts->{'want-left-space'}))
|
|
5055
|
5 |
652 |
if (my(@q) = split_words($rOpts->{'want-right-space'}))
|
|
5060
|
6 |
651 |
if (my(@q) = split_words($rOpts->{'nowant-left-space'}))
|
|
5065
|
10 |
647 |
if (my(@q) = split_words($rOpts->{'nowant-right-space'}))
|
|
5141
|
4 |
651 |
if $jmax < 0
|
|
5156
|
25 |
4 |
if ($rOpts_space_signature_paren == 1) { }
|
|
5165
|
20 |
5 |
$have_blank ? :
|
|
5168
|
2 |
2 |
$rOpts_space_signature_paren == 0 ? :
|
|
5200
|
18087 |
42945 |
if (($type = $rtokh->[6]) eq "b")
|
|
5214
|
5335 |
37610 |
if ($last_type_is_opening)
|
|
5220
|
595 |
4740 |
$seqno ? :
|
|
5226
|
5335 |
0 |
$last_seqno ? :
|
|
5233
|
244 |
5091 |
if ($token eq $matching_token{$last_token}) { }
|
|
5234
|
51 |
193 |
if ($block_type) { }
|
|
5249
|
1130 |
3961 |
if ($last_block_type and $last_token eq '{') { }
|
|
5269
|
5 |
5086 |
if ($type eq "w" and substr($token, 0, 1) eq "^")
|
|
5275
|
4 |
5087 |
if (defined $tseq)
|
|
5279
|
1094 |
3997 |
if ($tightness_here <= 0) { }
|
|
|
208 |
3789 |
elsif ($tightness_here > 1) { }
|
|
5297
|
3 |
3786 |
if ($regex and length $regex == 1 || $token =~ /$regex/) { }
|
|
|
1604 |
2182 |
elsif (defined $j_closing and $j_closing - $j < 5 and $rLL->[$j_closing][7] eq $last_seqno) { }
|
|
5311
|
1324 |
280 |
if ($j + 1 >= $j_closing) { }
|
|
5327
|
67 |
213 |
if ($ws == -1)
|
|
5339
|
23 |
5312 |
if (%opening_container_inside_ws and $last_seqno)
|
|
5341
|
6 |
17 |
if ($ws_override)
|
|
5356
|
9516 |
33429 |
if ($is_special_ws_type{$type}) { }
|
|
|
5335 |
28094 |
elsif ($is_closing_type{$type}) { }
|
|
|
5335 |
22759 |
elsif ($is_opening_type{$type}) { }
|
|
5358
|
3292 |
6224 |
if ($type eq 'k') { }
|
|
|
1212 |
5012 |
elsif ($type eq '#') { }
|
|
|
2916 |
2096 |
elsif ($type eq 'Q') { }
|
|
|
1707 |
389 |
elsif ($type eq 'w' or $type eq 'C') { }
|
|
|
389 |
0 |
elsif ($type eq 'm' or $type eq '-') { }
|
|
5363
|
1 |
0 |
if ($is_for_foreach{$token} and %keyword_paren_inner_tightness and defined $keyword_paren_inner_tightness{$token} and $j < $jmax)
|
|
5377
|
1 |
2 |
if $type_p eq "b"
|
|
5381
|
1 |
1 |
if ($token_p eq '(') { }
|
|
|
0 |
1 |
elsif ($type_p eq 'k') { }
|
|
|
1 |
0 |
elsif ($type_p eq 'i') { }
|
|
5386
|
0 |
0 |
if $token_p eq "my" and $it_count == 1
|
|
5389
|
1 |
0 |
if $it_count < 3
|
|
5418
|
11 |
2905 |
if ($last_type eq "\\" and $token =~ /^[\"\']/)
|
|
5419
|
2 |
0 |
$rOpts_space_backslash_quote == 2 ? :
|
|
|
7 |
2 |
$rOpts_space_backslash_quote == 1 ? :
|
|
|
2 |
9 |
!$rOpts_space_backslash_quote ? :
|
|
5429
|
6 |
1701 |
if $last_type eq "-"
|
|
5436
|
4 |
385 |
if $last_type eq "w"
|
|
5456
|
1391 |
3944 |
if ($j == $j_tight_closing_paren) { }
|
|
5463
|
3700 |
244 |
unless (defined $ws)
|
|
5469
|
1128 |
2572 |
if ($block_type and $token eq '}') { }
|
|
5476
|
209 |
3491 |
$tightness_here > 1 ? :
|
|
5481
|
23 |
5312 |
if (%closing_container_inside_ws and $seqno)
|
|
5483
|
6 |
17 |
if ($ws_override)
|
|
5488
|
0 |
4 |
$tseq > 0 ? :
|
|
|
4 |
5331 |
if (defined $tseq)
|
|
5501
|
2447 |
2888 |
if ($token eq '(') { }
|
|
|
2 |
2886 |
elsif ($token eq '{' and $type ne 'L' and $last_token eq ']') { }
|
|
5514
|
8 |
2439 |
if ($last_type eq '}' and $last_token ne ')') { }
|
|
|
779 |
1660 |
elsif ($last_type eq 'k') { }
|
|
|
987 |
673 |
elsif ($is_wCUG_arrow{$last_type} or $is_wi{$last_type} and $last_token =~ /^([\&]|->)/ || $rtokh_last_last->[6] eq '->' || $rtokh_last_last->[6] eq 't' && $rtokh_last_last->[4] =~ /^\&\s*$/) { }
|
|
|
46 |
627 |
elsif ($last_type eq 'i' and $last_token =~ /^[\$\%\@]/) { }
|
|
|
0 |
627 |
elsif ($last_type eq 'C' and $$rLL[$j + 1][4] eq ')') { }
|
|
|
20 |
607 |
elsif ($last_type eq 'S') { }
|
|
5524
|
9 |
770 |
if ($last_token eq 'sub') { }
|
|
5530
|
352 |
411 |
unless $rOpts_space_keyword_paren or $space_after_keyword{$last_token}
|
|
5580
|
37 |
950 |
$rOpts_space_function_paren ? :
|
|
5593
|
311 |
676 |
if ($last_type eq "U")
|
|
5595
|
46 |
265 |
if ($pos >= 0)
|
|
5637
|
4307 |
1028 |
if ($type eq "{")
|
|
5638
|
168 |
9 |
if ($last_token eq "sub" and $last_type eq "k" and $token ne "(")
|
|
5646
|
323 |
3984 |
if ($last_token eq ")" and $token eq "{")
|
|
5652
|
0 |
3158 |
if (not $block_type and $last_type eq "i" and $last_token =~ /^\@/)
|
|
5660
|
60 |
5275 |
if ($rOpts_extended_block_tightness and $token eq "{")
|
|
5662
|
32 |
22 |
if (not $rblock_type_of_seqno->{$seqno} and $extended_block_tightness_list{$last_token})
|
|
5678
|
44 |
41689 |
if ($last_type eq "Z" and $last_token ne "_")
|
|
5682
|
0 |
44 |
if ($last_type eq 'Z' and $last_token eq '$' and $token eq '{') { }
|
|
5693
|
29417 |
12316 |
unless (defined $ws)
|
|
5699
|
1376 |
28041 |
if (defined $binary_ws_rules{$last_type}{$type}) { }
|
|
5730
|
7525 |
20516 |
if (not defined $wl) { }
|
|
|
19948 |
568 |
elsif (not defined $wr or $wr == $wl or $wr == 0 or $wl == -1) { }
|
|
5731
|
7150 |
375 |
defined $wr ? :
|
|
5752
|
297 |
41436 |
if (not $ws and $rtokh->[2] != $rtokh_last->[2])
|
|
5760
|
40 |
6 |
if (not $last_token and $last_type eq "," and $type eq "Q" and $rOpts_qw_as_function)
|
|
5784
|
0 |
0 |
unless (defined $ws_1)
|
|
5785
|
0 |
0 |
unless (defined $ws_2)
|
|
5786
|
0 |
0 |
unless (defined $ws_3)
|
|
5787
|
0 |
0 |
unless (defined $ws_4)
|
|
5799
|
1 |
650 |
if ($rOpts->{'tight-secret-operators'})
|
|
5820
|
1746 |
12 |
unless %keyword_paren_inner_tightness
|
|
5824
|
0 |
12 |
unless $word
|
|
5826
|
12 |
0 |
if ($sequence_number) { }
|
|
5828
|
6 |
6 |
if (defined $tightness_here and $tightness_here != 1)
|
|
5829
|
6 |
0 |
$tightness_here == 0 ? :
|
|
5855
|
0 |
280 |
if ($j + 1 >= $j_closing)
|
|
5863
|
5 |
0 |
if $token eq "-" and $last_token eq "{" and $$rLL[$j + 1][6] eq "w"
|
|
5871
|
0 |
0 |
if ($type eq 'm' || $type eq 'p' and $j < $j_closing + 1 and $$rLL[$j + 1][6] eq "b" and $$rLL[$j + 2][6] eq "n" and $$rLL[$j + 2][4] =~ /^\d/)
|
|
5881
|
2 |
278 |
if ($j_here + 1 >= $j_closing)
|
|
5884
|
104 |
174 |
$$rLL[$j_here + 1][6] eq 'b' ? :
|
|
5889
|
65 |
213 |
$j_next == $j_closing ? :
|
|
5925
|
0 |
6 |
if ($type_ll eq "k" and $is_indirect_object_taker{$tok_ll})
|
|
5930
|
5 |
0 |
if ($rOpts_qw_as_function and $rtokh_last->[6] eq "U" and $rtokh_last->[4] eq "qw")
|
|
6089
|
18 |
4 |
if (not $tokenl and $typel eq "," and $typer eq "Q" and $rOpts_qw_as_function)
|
|
6100
|
5828 |
1361 |
if $essential_whitespace_filter_l1{$typel} and not $essential_whitespace_filter_r1{$typer}
|
|
6105
|
320 |
1041 |
if $essential_whitespace_filter_r2{$typer} and not $essential_whitespace_filter_l2{$typel}
|
|
6120
|
6 |
1035 |
if ($typer eq "#")
|
|
6122
|
2 |
4 |
if $tokenl and $typel eq '?' || substr($tokenl, -1) eq '$'
|
|
6133
|
0 |
1035 |
ord $tokenr_leading_ch > 126 ? :
|
|
6374
|
3 |
6 |
if $type eq "b"
|
|
6377
|
4 |
2 |
unless $is_leading_secret_token{$token}
|
|
6385
|
1 |
3 |
if $jend <= $jmax and $rLL->[$jend][6] eq "b"
|
|
6389
|
1 |
3 |
if ($jend > $jmax or $tok ne $rLL->[$jend][4])
|
|
6397
|
1 |
1 |
if ($jend)
|
|
6960
|
20719 |
14146 |
if ($type ne "b")
|
|
6967
|
12850 |
22015 |
if ($type eq "b" and $last_type ne "b")
|
|
6980
|
14146 |
7869 |
$next_type eq 'b' ? :
|
|
7000
|
1383 |
20632 |
if ($type eq "k")
|
|
7001
|
158 |
1225 |
if (defined $right_bond_strength{$token})
|
|
7008
|
1296 |
20719 |
if ($i_next_nonblank > $max_index_to_go)
|
|
7015
|
671 |
625 |
if (not defined $bsr or $bsr > "0.55")
|
|
7017
|
77 |
594 |
if ($ris_list_by_seqno->{$seqno_px})
|
|
7021
|
17 |
60 |
if ($seqno_n and $seqno_n eq $seqno_px)
|
|
7029
|
803 |
21212 |
if ($next_nonblank_type eq "k")
|
|
7030
|
158 |
645 |
if (defined $left_bond_strength{$next_nonblank_token})
|
|
7042
|
6354 |
15661 |
unless (defined $bsr)
|
|
7043
|
4820 |
17195 |
unless (defined $bsl)
|
|
7044
|
13921 |
8094 |
$bsr < $bsl ? :
|
|
7068
|
91 |
21924 |
if ($type eq "||" or $type eq "k" and $token eq "or")
|
|
7071
|
4 |
87 |
if ($is_die_confess_croak_warn{$next_nonblank_token})
|
|
7072
|
4 |
0 |
if ($want_break_before{$token} and $i > 0) { }
|
|
7077
|
1 |
3 |
if ($types_to_go[$i - 1] eq "b" and $i > 2)
|
|
7088
|
217 |
21798 |
if ($type eq "}" and $block_type)
|
|
7091
|
165 |
52 |
if ($next_nonblank_type ne ';' and $next_nonblank_type ne ',') { }
|
|
7107
|
1383 |
20632 |
if ($type eq "k")
|
|
7110
|
5 |
52 |
if ($next_nonblank_type eq "k" and $is_last_next_redo_return{$token})
|
|
7123
|
264 |
1119 |
if ($token eq "my")
|
|
7129
|
802 |
21213 |
if ($next_nonblank_type eq 'k' and $type ne 'CORE::') { }
|
|
|
949 |
20264 |
elsif ($next_nonblank_type eq '=>') { }
|
|
7131
|
69 |
733 |
if ($is_keyword_returning_list{$next_nonblank_token})
|
|
7132
|
0 |
69 |
if $bond_str > $list_str
|
|
7137
|
20 |
782 |
if ($is_good_keyword_breakpoint{$next_nonblank_token})
|
|
7144
|
206 |
743 |
if ($bond_str < "2.1")
|
|
7155
|
0 |
252 |
if ($token eq "(" and $next_nonblank_type eq "i" and $last_nonblank_type eq "k" and $is_sort_map_grep{$last_nonblank_token})
|
|
7167
|
2 |
22013 |
if ($last_nonblank_type eq "F" and $next_nonblank_token eq "(")
|
|
7174
|
2 |
22013 |
if ($type eq 'Z') { }
|
|
|
1063 |
20950 |
elsif ($type eq 'w') { }
|
|
7177
|
1 |
1 |
if ($next_type ne "b" and defined $want_left_space{$next_type} and $want_left_space{$next_type} == -1 or not $old_breakpoint_to_go[$i] and substr($next_nonblank_token, 0, 1) eq "/")
|
|
7201
|
0 |
1049 |
if not $old_breakpoint_to_go[$i] and substr($next_nonblank_token, 0, 1) eq "/" and $next_nonblank_type ne "//"
|
|
7215
|
130 |
21885 |
if ($next_nonblank_type eq '?') { }
|
|
|
124 |
21761 |
elsif ($next_nonblank_type eq '.') { }
|
|
|
2706 |
19055 |
elsif ($next_nonblank_type eq ',' or $next_nonblank_type eq ';' and not $rOpts_add_semicolons) { }
|
|
7216
|
1 |
129 |
if $types_to_go[$i_next_nonblank + 1] eq "Q"
|
|
7226
|
0 |
124 |
if $types_to_go[$i_next_nonblank + 1] eq "n"
|
|
7235
|
30 |
2676 |
unless (length $next_nonblank_token)
|
|
7258
|
5614 |
260 |
if ($seqno and $is_container_token{$token})
|
|
7262
|
5487 |
268 |
if ($next_nonblank_seqno and $is_container_token{$next_nonblank_token})
|
|
7283
|
2040 |
19975 |
if ($binary_bond_strength{$ltype}{$rtype})
|
|
7289
|
255 |
21760 |
if ($binary_bond_strength_nospace{$ltype}{$next_type})
|
|
7294
|
50 |
21965 |
if ($nobreak_rhs{$ltype} or $nobreak_lhs{$rtype})
|
|
7328
|
0 |
1383 |
$token eq 'err' ? :
|
|
|
1383 |
20632 |
$type eq 'k' ? :
|
|
7331
|
0 |
803 |
$next_nonblank_token eq 'err' ? :
|
|
|
803 |
21212 |
$next_nonblank_type eq 'k' ? :
|
|
7341
|
471 |
21544 |
if (defined $bias{$left_key})
|
|
7342
|
30 |
441 |
unless ($want_break_before{$left_key})
|
|
7349
|
470 |
21545 |
if (defined $bias{$right_key})
|
|
7350
|
440 |
30 |
if ($want_break_before{$right_key})
|
|
7354
|
123 |
317 |
if ($right_key eq '.') { }
|
|
7361
|
83 |
40 |
unless ($is_short_quote)
|
|
7382
|
20503 |
1512 |
if (defined $bond_str and not $nobreak_to_go[$i]) { }
|
|
7383
|
16596 |
3907 |
if ($total_nesting_depth > 0) { }
|
|
7397
|
96 |
1416 |
if $nobreak_to_go[$i] and $nobreak_to_go[$i] > 1
|
|
7407
|
950 |
21065 |
if ($total_weld_count)
|
|
7409
|
97 |
853 |
if ($rK_weld_right->{$KK}) { }
|
|
|
27 |
826 |
elsif ($rK_weld_left->{$KK} and $is_opening_token{$token}) { }
|
|
7425
|
50 |
21965 |
if ($type eq "#")
|
|
7432
|
3000 |
19015 |
if ($strength >= 10000 and $next_nonblank_type ne "?")
|
|
7477
|
14 |
643 |
if ($rOpts->{'cuddled-else'})
|
|
7481
|
14 |
0 |
unless $rOpts->{'cuddled-block-list-exclusive'}
|
|
7487
|
3 |
11 |
if ($cuddled_block_list)
|
|
7528
|
0 |
79 |
unless $string
|
|
7532
|
0 |
79 |
if @words <= 0
|
|
7538
|
0 |
79 |
if (@words > 1)
|
|
7544
|
14 |
65 |
unless (defined $rcuddled_block_types->{$start})
|
|
7555
|
0 |
79 |
if (defined $rbad)
|
|
7556
|
0 |
0 |
unless ($cuddled_block_list)
|
|
7566
|
0 |
79 |
unless $word
|
|
7567
|
0 |
79 |
if ($no_cuddle{$word})
|
|
7618
|
0 |
0 |
unless $cuddled_string
|
|
7621
|
0 |
0 |
if $rOpts->{'cuddled-else'}
|
|
7624
|
0 |
0 |
unless ($rOpts->{'cuddled-else'})
|
|
7650
|
1 |
656 |
if ($rOpts->{'static-block-comment-prefix'})
|
|
7656
|
1 |
0 |
unless ($prefix =~ /^\^#/)
|
|
7657
|
0 |
1 |
unless ($prefix =~ /^#/)
|
|
7664
|
0 |
1 |
if (bad_pattern($pattern))
|
|
7677
|
1312 |
2 |
unless ($param)
|
|
7679
|
0 |
1314 |
unless ($param =~ /^#/)
|
|
7683
|
0 |
1314 |
if (bad_pattern($pattern))
|
|
7700
|
1 |
656 |
if (my $prefix = $rOpts->{'non-indenting-brace-prefix'})
|
|
7702
|
0 |
1 |
unless ($prefix =~ /^#/)
|
|
7706
|
0 |
1 |
if (bad_pattern($pattern))
|
|
7729
|
1 |
656 |
if (defined $cscl and $cscl)
|
|
7736
|
1 |
656 |
if (defined $cscxl and $cscxl)
|
|
7739
|
1 |
0 |
if ($cscxl =~ /\basub\b/)
|
|
7759
|
5 |
652 |
if ($rOpts->{'closing-side-comments'}) { }
|
|
|
0 |
652 |
elsif ($rOpts->{'closing-side-comment-warnings'}) { }
|
|
7760
|
5 |
0 |
unless ($rOpts->{'closing-side-comment-warnings'} or $rOpts->{'indent-only'})
|
|
7772
|
0 |
0 |
if ($rOpts->{'delete-closing-side-comments'})
|
|
7789
|
654 |
3 |
if (not $comment) { }
|
|
7797
|
0 |
3 |
if (substr($comment, 0, 1) ne "#")
|
|
7831
|
3 |
654 |
if ($sub_alias_list) { }
|
|
7839
|
657 |
0 |
unless (defined $rOpts->{'use-feature'} and $rOpts->{'use-feature'} =~ /\bnoclass\b/)
|
|
7848
|
657 |
0 |
if (@words > 1)
|
|
7874
|
1 |
0 |
if (defined $rOpts->{$bll_long_name} and $rOpts->{$bll_long_name})
|
|
7877
|
1 |
656 |
if ($bl_list_string =~ /\bsub\b/)
|
|
7880
|
1 |
656 |
if ($bl_list_string =~ /\basub\b/)
|
|
7887
|
656 |
1 |
if ($bl_pattern =~ /\.\*/)
|
|
7889
|
647 |
9 |
unless (defined $rOpts->{$sbl_long_name})
|
|
7893
|
0 |
656 |
if (not defined $rOpts->{$asbl_long_name} and defined $rOpts->{$bll_long_name})
|
|
7900
|
1 |
0 |
if (defined $rOpts->{$blxl_long_name} and $rOpts->{$blxl_long_name})
|
|
7904
|
0 |
1 |
if ($bl_exclusion_list_string =~ /\bsub\b/)
|
|
7907
|
0 |
1 |
if ($bl_exclusion_list_string =~ /\basub\b/)
|
|
7923
|
3 |
0 |
if (defined $rOpts->{'brace-left-and-indent-list'} and $rOpts->{'brace-left-and-indent-list'})
|
|
7931
|
1 |
0 |
if (defined $rOpts->{'brace-left-and-indent-exclusion-list'} and $rOpts->{'brace-left-and-indent-exclusion-list'})
|
|
7948
|
0 |
0 |
if (defined $rOpts->{'keyword-group-blanks-list'} and $rOpts->{'keyword-group-blanks-list'})
|
|
7955
|
0 |
0 |
if ($word eq 'BC' or $word eq 'SBC') { }
|
|
7957
|
0 |
0 |
if ($word eq "SBC")
|
|
7963
|
0 |
0 |
if (@keyword_list)
|
|
7969
|
0 |
0 |
if (@comment_list)
|
|
7982
|
0 |
0 |
if (defined $rOpts->{'block-brace-vertical-tightness-list'} and $rOpts->{'block-brace-vertical-tightness-list'})
|
|
7996
|
1 |
0 |
if (defined $rOpts->{$key} and $rOpts->{$key})
|
|
8003
|
1 |
0 |
if (defined $rOpts->{$key} and $rOpts->{$key})
|
|
8037
|
660 |
9827 |
if ($i eq "*")
|
|
8038
|
0 |
9827 |
if $seen{$i}
|
|
8040
|
656 |
9171 |
if ($i eq 'sub') { }
|
|
|
658 |
8513 |
elsif ($i eq 'asub') { }
|
|
|
0 |
8513 |
elsif ($i eq ';') { }
|
|
|
0 |
8513 |
elsif ($i eq '{') { }
|
|
|
654 |
7859 |
elsif ($i eq ':') { }
|
|
|
7859 |
0 |
elsif ($i =~ /^\w+$/ and not $i =~ /^\d/) { }
|
|
8063
|
659 |
1313 |
unless (@words)
|
|
8067
|
656 |
1316 |
if ($seen{'sub'})
|
|
8070
|
658 |
1314 |
if ($seen{'asub'})
|
|
8073
|
1313 |
659 |
if ($sub_patterns)
|
|
8086
|
0 |
657 |
if (my $prefix = $rOpts->{'static-side-comment-prefix'})
|
|
8089
|
0 |
0 |
if (bad_pattern($pattern))
|
|
8105
|
655 |
2 |
if (not defined $csc_prefix) { }
|
|
8111
|
0 |
2 |
unless ($test_csc_prefix =~ /^#/)
|
|
8133
|
0 |
2 |
if (bad_pattern($test_csc_prefix_pattern)) { }
|
|
8168
|
656 |
1 |
unless $dscxp_string
|
|
8171
|
0 |
1 |
if $dscxp_string =~ /^\s*$/
|
|
8174
|
0 |
1 |
if (substr($dscxp_string, 0, 1) ne "#" and substr($dscxp_string, 0, 2) ne "\\#")
|
|
8184
|
0 |
1 |
if (bad_pattern($pattern))
|
|
8201
|
649 |
8 |
unless defined $opts
|
|
8227
|
3 |
5 |
if ($top{$str}) { }
|
|
|
5 |
0 |
elsif ($bottom{$str}) { }
|
|
8230
|
0 |
3 |
unless (defined $tok)
|
|
8241
|
0 |
5 |
unless (defined $tok)
|
|
8253
|
0 |
8 |
if (@unknown_types)
|
|
8332
|
0 |
0 |
if $jmax < 0
|
|
8337
|
0 |
0 |
unless defined $seqno
|
|
8341
|
0 |
0 |
if (not $seqno) { }
|
|
8346
|
0 |
0 |
if ($is_opening_sequence_token{$token} and $type ne "q" and $type ne "Q")
|
|
8362
|
0 |
0 |
unless (defined $initial_seqno)
|
|
8367
|
0 |
0 |
if ($initial_seqno != 2)
|
|
8383
|
0 |
0 |
if ($is_opening_sequence_token{$token}) { }
|
|
|
0 |
0 |
elsif ($is_closing_sequence_token{$token}) { }
|
|
8386
|
0 |
0 |
if ($initial_seqno == 2 and $seqno != $last_seqno + 1)
|
|
8396
|
0 |
0 |
if ($saw_opening_seqno{$seqno})
|
|
8409
|
0 |
0 |
if ($saw_closing_seqno{$seqno})
|
|
8420
|
0 |
0 |
unless ($saw_opening_seqno{$seqno})
|
|
8481
|
260 |
8893 |
if ($line_type ne 'CODE') { }
|
|
8498
|
7840 |
1053 |
if ($jmax >= 0) { }
|
|
8500
|
7186 |
654 |
defined $Klimit ? :
|
|
8543
|
5 |
9148 |
if ($tee_output)
|
|
8546
|
5 |
0 |
if $fh_tee
|
|
8606
|
0 |
33 |
if ($qw_type ne "q")
|
|
8615
|
0 |
33 |
unless (length $qw_text)
|
|
8626
|
8 |
25 |
unless ($in_qw_seqno)
|
|
8628
|
0 |
8 |
if ($opening ne "qw(")
|
|
8640
|
8 |
25 |
unless ($is_continued)
|
|
8641
|
8 |
0 |
if (length $qw_text > 0 and substr($qw_text, -1, 1) eq ')') { }
|
|
8664
|
26 |
7 |
if (length $qw_text)
|
|
8669
|
0 |
21 |
unless ($opening or $closing or @words)
|
|
8688
|
8 |
25 |
if ($opening)
|
|
8702
|
3 |
5 |
if ($level_words > $self->[80])
|
|
8729
|
26 |
7 |
if (@words)
|
|
8734
|
26 |
22 |
if ($comma_count or $has_opening_space)
|
|
8755
|
46 |
2 |
if ($commas_needed)
|
|
8766
|
8 |
25 |
if ($closing) { }
|
|
8772
|
0 |
4 |
if (not @words and $in_qw_comma_count == 1 and $rLL->[-1][6] eq ",")
|
|
8786
|
2 |
6 |
$rLL->[-1][6] eq 'Q' ? :
|
|
8787
|
4 |
4 |
if (substr($rLL->[$iQ][4], -1, 1) eq "\\")
|
|
8789
|
2 |
2 |
unless ($rOpts_add_whitespace)
|
|
8795
|
0 |
8 |
if ($has_closing_space)
|
|
8821
|
25 |
8 |
if ($is_continued)
|
|
8859
|
0 |
7840 |
if ($jmax < 0)
|
|
8880
|
654 |
7186 |
unless (defined $nesting_depth)
|
|
8882
|
0 |
654 |
if $nesting_depth < 0
|
|
8887
|
25 |
7815 |
if ($in_qw_seqno)
|
|
8888
|
0 |
25 |
if ($rtoken_type->[0] ne "q")
|
|
8916
|
11046 |
49997 |
if ($$rtype_sequence[++$j]) { }
|
|
8921
|
5330 |
5716 |
if ($is_opening_token{$token}) { }
|
|
|
5330 |
386 |
elsif ($is_closing_token{$token}) { }
|
|
|
193 |
193 |
elsif ($token eq '?') { }
|
|
|
193 |
0 |
elsif ($token eq ':') { }
|
|
8922
|
0 |
5330 |
if ($added_seqno_count)
|
|
8939
|
1149 |
4181 |
if ($rblock_type->[$j])
|
|
8947
|
189 |
960 |
if ($matches_ASUB{$block_type}) { }
|
|
|
167 |
793 |
elsif ($block_type =~ /\s/ and $block_type =~ /$SUB_PATTERN/) { }
|
|
8965
|
0 |
5330 |
if ($added_seqno_count)
|
|
8976
|
0 |
5330 |
unless (defined $opening_depth)
|
|
8978
|
0 |
0 |
if $opening_depth < 0
|
|
8995
|
0 |
193 |
if ($added_seqno_count)
|
|
9008
|
0 |
193 |
if ($added_seqno_count)
|
|
9029
|
5523 |
5523 |
if ($sign > 0) { }
|
|
9038
|
973 |
4550 |
if ($level > $self->[80])
|
|
9071
|
33 |
0 |
if ($rOpts_qw_as_function and $rtoken_type->[$j] eq "q" and $in_qw_seqno || ($j > 0 || !$last_ending_in_quote) && substr($token, 0, 3) eq 'qw(')
|
|
9094
|
3 |
7837 |
if ($self->[79])
|
|
9140
|
0 |
658 |
if (not $severe_error and $maximum_level >= $maximum_table_index)
|
|
9151
|
0 |
658 |
if ($severe_error or $rOpts->{'notidy'})
|
|
9167
|
14 |
644 |
if $rOpts_delete_side_comments or $rOpts_delete_closing_side_comments
|
|
9183
|
0 |
658 |
if ($error)
|
|
9199
|
1 |
657 |
if (%maximum_field_count_control_hash)
|
|
9205
|
0 |
658 |
if ($rOpts->{'dump-unique-keys'})
|
|
9210
|
0 |
658 |
if ($rOpts->{'dump-similar-keys'})
|
|
9215
|
0 |
658 |
if ($rOpts->{'warn-unique-keys'} or $rOpts->{'warn-similar-keys'})
|
|
9218
|
0 |
0 |
if $self->[50]
|
|
9222
|
0 |
658 |
if ($rOpts->{'dump-hash-keys'})
|
|
9228
|
0 |
658 |
if ($rOpts->{'dump-block-summary'})
|
|
9233
|
0 |
658 |
if ($rOpts->{'dump-nested-ternaries'})
|
|
9238
|
0 |
658 |
if ($rOpts->{'warn-nested-ternaries'})
|
|
9239
|
0 |
0 |
if $self->[50]
|
|
9243
|
0 |
658 |
if ($rOpts->{'dump-c-style-for-loops'})
|
|
9248
|
0 |
658 |
if ($rOpts->{'warn-c-style-for-loops'})
|
|
9249
|
0 |
0 |
if $self->[50]
|
|
9254
|
0 |
658 |
if ($rOpts->{'dump-unusual-variables'})
|
|
9262
|
0 |
0 |
if %{$rwarn_variable_types;} and $self->[50]
|
|
9266
|
0 |
0 |
if %{$rwarn_label_types;} and $self->[50]
|
|
9269
|
0 |
658 |
if ($rOpts->{'warn-mismatched-args'} or $rOpts->{'warn-mismatched-returns'})
|
|
9272
|
0 |
0 |
if $self->[50]
|
|
9276
|
0 |
658 |
if ($rOpts->{'dump-mismatched-args'})
|
|
9281
|
0 |
658 |
if ($rOpts->{'dump-mismatched-returns'})
|
|
9286
|
0 |
658 |
if ($rOpts->{'dump-mixed-call-parens'})
|
|
9291
|
0 |
658 |
if ($rOpts->{'dump-keyword-usage'})
|
|
9296
|
0 |
658 |
if ($rOpts->{'warn-keyword-list'})
|
|
9300
|
0 |
658 |
if ($rOpts->{'dump-label-usage'})
|
|
9308
|
0 |
0 |
if %call_paren_style and $self->[50]
|
|
9327
|
5 |
653 |
if $rOpts_line_up_parentheses and $rOpts_extended_line_up_parentheses
|
|
9330
|
8 |
650 |
if $rOpts_extended_continuation_indentation
|
|
9377
|
0 |
0 |
$sseq > 0 ? :
|
|
9379
|
0 |
0 |
unless $rblock_type_of_seqno->{$seq_next}
|
|
9380
|
0 |
0 |
if ($sseq > 0) { }
|
|
9386
|
0 |
0 |
if ($item->{'maximum_depth'} < $stack_depth)
|
|
9399
|
0 |
0 |
if ($is_loop_type{$block_type} and defined $item)
|
|
9415
|
0 |
0 |
if ($seq_test != $seq_next)
|
|
9448
|
0 |
0 |
unless defined $Kp
|
|
9449
|
0 |
0 |
if ($rLL->[$Kp][4] eq ")")
|
|
9454
|
0 |
0 |
unless defined $K_opening
|
|
9459
|
0 |
0 |
if $lx < 0
|
|
9464
|
0 |
0 |
if $line_type ne "CODE"
|
|
9470
|
0 |
0 |
unless defined $Kfirst
|
|
9473
|
0 |
0 |
if ($rLL->[$Kfirst][6] eq "J")
|
|
9479
|
0 |
0 |
if $lx < $lx_open
|
|
9513
|
0 |
0 |
if ($type eq 'k') { }
|
|
9515
|
0 |
0 |
if ($is_mccabe_logic_keyword{$token})
|
|
9518
|
0 |
0 |
if ($is_mccabe_logic_operator{$type})
|
|
9555
|
0 |
0 |
if ($line_type eq 'CODE') { }
|
|
9559
|
0 |
0 |
if (defined $Kfirst)
|
|
9562
|
0 |
0 |
defined $Kfirst ? :
|
|
9564
|
0 |
0 |
if ($jmax > 0 or $rLL->[$Klast][6] ne '#') { }
|
|
9568
|
0 |
0 |
if $rLL->[$Klast][4] =~ /\w/
|
|
9578
|
0 |
0 |
if (not $line_type =~ /^POD/) { }
|
|
9582
|
0 |
0 |
if ($line_type eq "POD" and $line_of_tokens->{'_line_text'} =~ /\w/)
|
|
9603
|
0 |
0 |
unless ($rdump_block_types->{'*'} or $rdump_block_types->{'package'} or $rdump_block_types->{'class'})
|
|
9614
|
0 |
0 |
if $rLL->[$KK][6] ne "P"
|
|
9663
|
0 |
0 |
unless (defined $count)
|
|
9668
|
0 |
0 |
if ($pre_count)
|
|
9669
|
0 |
0 |
if ($post_count)
|
|
9672
|
0 |
0 |
if ($count eq "#0" or $count eq "#0#")
|
|
9695
|
0 |
0 |
if (not defined $Kfirst && defined $Klast or $Kfirst > $K_opening)
|
|
9709
|
0 |
0 |
if (defined $item)
|
|
9716
|
0 |
0 |
$item->{'is_inner_loop'} ? :
|
|
9720
|
0 |
0 |
if ($block_type eq '}' || $block_type eq ';' and $rdump_block_types->{'closure'}) { }
|
|
|
0 |
0 |
elsif ($ris_asub_block->{$seqno} and $dump_all_types || $rdump_block_types->{'sub'} || $rdump_block_types->{'asub'}) { }
|
|
|
0 |
0 |
elsif ($ris_sub_block->{$seqno} and $dump_all_types || $rdump_block_types->{'sub'}) { }
|
|
|
0 |
0 |
elsif ($block_type =~ /^(package|class)\b/ and $dump_all_types || $rdump_block_types->{'package'} || $rdump_block_types->{'class'}) { }
|
|
|
0 |
0 |
elsif ($is_loop_type{$block_type} and $dump_all_types || $rdump_block_types->{$block_type} || $$rdump_block_types{$block_type . $inner_loop_plus} || $rdump_block_types->{$inner_loop_plus}) { }
|
|
|
0 |
0 |
elsif ($dump_all_types or $rdump_block_types->{$block_type}) { }
|
|
9745
|
0 |
0 |
if ($token_type eq "b")
|
|
9746
|
0 |
0 |
if ($token_type eq "=>")
|
|
9747
|
0 |
0 |
if ($token_type eq "=")
|
|
9748
|
0 |
0 |
if ($token_type eq "i" and $saw_equals or $token_type eq 'w' || $token_type eq 'Q' and $saw_fat_comma)
|
|
9774
|
0 |
0 |
if (substr($name, 0, 1) eq "\$" and $ris_method_block->{$seqno})
|
|
9804
|
0 |
0 |
if ($is_loop_type{$block_type})
|
|
9849
|
0 |
0 |
unless (@elsif_d)
|
|
9854
|
0 |
0 |
if ($word =~ /(\d+)$/)
|
|
9856
|
0 |
0 |
if (not defined $elsif_count_min or $elsif_count_min > $num)
|
|
9868
|
0 |
0 |
unless $block_type eq "if" or $block_type eq "unless"
|
|
9873
|
0 |
0 |
unless $rif_chain
|
|
9900
|
0 |
0 |
if ($block_type ne "if" and $block_type ne "unless")
|
|
9922
|
0 |
0 |
if ($block_type eq "elsif")
|
|
9924
|
0 |
0 |
if (defined $item)
|
|
9929
|
0 |
0 |
if ($mxc > $max_change)
|
|
9933
|
0 |
0 |
if $block_type eq "else"
|
|
9938
|
0 |
0 |
unless defined $K_k
|
|
9944
|
0 |
0 |
unless $type_k eq "k" and $token_k eq 'elsif' || $token_k eq 'else'
|
|
9948
|
0 |
0 |
if ($token_k eq "else")
|
|
9956
|
0 |
0 |
unless defined $Ko
|
|
9958
|
0 |
0 |
if ($seqno and $rblock_type_of_seqno->{$seqno} eq "else")
|
|
9975
|
0 |
0 |
unless defined $kpo
|
|
9977
|
0 |
0 |
unless $seqno_p and $rLL->[$kpo][4] eq "("
|
|
9979
|
0 |
0 |
unless defined $Kpc
|
|
9983
|
0 |
0 |
unless defined $Ko
|
|
9985
|
0 |
0 |
if ($seqno and $rblock_type_of_seqno->{$seqno} eq "elsif")
|
|
9994
|
0 |
0 |
if $elsif_count < $elsif_count_min
|
|
10034
|
0 |
0 |
if ($ch1 eq "'")
|
|
10060
|
0 |
0 |
unless defined $rcall_type->{$key}
|
|
10066
|
0 |
0 |
unless $valid_call_count
|
|
10107
|
0 |
0 |
if not defined $Klimit or $Klimit < 1
|
|
10249
|
0 |
0 |
if (not defined $is_fixed_key{$key}) { }
|
|
10273
|
0 |
0 |
if (defined $rkeys)
|
|
10281
|
0 |
0 |
if (defined $rparent_list)
|
|
10284
|
0 |
0 |
if (defined $rk)
|
|
10303
|
0 |
0 |
unless @stack
|
|
10306
|
0 |
0 |
unless defined $Kbrace
|
|
10307
|
0 |
0 |
unless defined $Khash
|
|
10308
|
0 |
0 |
if $rLL->[$Kbrace][6] ne "L"
|
|
10313
|
0 |
0 |
if ($token eq "->")
|
|
10315
|
0 |
0 |
unless defined $Khash
|
|
10318
|
0 |
0 |
if ($token eq "}")
|
|
10320
|
0 |
0 |
unless defined $seqno
|
|
10322
|
0 |
0 |
unless $Ko
|
|
10327
|
0 |
0 |
if $ch1 ne "\$" and $ch1 ne "*"
|
|
10336
|
0 |
0 |
if ($count > 0)
|
|
10355
|
0 |
0 |
if ($token eq "->")
|
|
10357
|
0 |
0 |
unless defined $Ktest
|
|
10360
|
0 |
0 |
if ($token eq "}")
|
|
10362
|
0 |
0 |
unless defined $seqno
|
|
10364
|
0 |
0 |
unless $Ko
|
|
10371
|
0 |
0 |
if ($ch1 eq "\@")
|
|
10396
|
0 |
0 |
unless ($seqno_in)
|
|
10403
|
0 |
0 |
if ($seqno_in <= 1 or not $ris_list_by_seqno->{$seqno_in})
|
|
10411
|
0 |
0 |
if (defined $seqno_cache)
|
|
10418
|
0 |
0 |
if $seqno == 1
|
|
10419
|
0 |
0 |
if ($seqno >= $seqno_out or $seqno < 1)
|
|
10427
|
0 |
0 |
unless $ris_list_by_seqno->{$seqno}
|
|
10434
|
0 |
0 |
$Kp ? :
|
|
10435
|
0 |
0 |
if ($tokp eq "," or $tokp eq "=>" or $is_opening_token{$tokp})
|
|
10463
|
0 |
0 |
unless $rhash_names or $all_caps
|
|
10466
|
0 |
0 |
unless $id
|
|
10467
|
0 |
0 |
if $all_caps and $id eq "\$ENV"
|
|
10468
|
0 |
0 |
if $rhash_names->{$id}
|
|
10483
|
0 |
0 |
unless (defined $info)
|
|
10489
|
0 |
0 |
if ($count > 1)
|
|
10497
|
0 |
0 |
if ($is_known_module_key{$key})
|
|
10502
|
0 |
0 |
unless $id
|
|
10507
|
0 |
0 |
if ($is_typeglob_slot_key{$key} and substr($id, 0, 1) eq "*")
|
|
10515
|
0 |
0 |
if ($is_fixed_key{$key} || $all_caps and &$is_fixed_hash($key, $all_caps, $id))
|
|
10524
|
0 |
0 |
if ($id eq "\$Config" or $id eq "\$Config::Config")
|
|
10549
|
0 |
0 |
if ($type_last eq 'w') { }
|
|
|
0 |
0 |
elsif ($type_last eq 'Q') { }
|
|
10554
|
0 |
0 |
if (@mw_list and $mw_list[-1] eq $KK_last_nb)
|
|
10563
|
0 |
0 |
if length $token_last < 2
|
|
10566
|
0 |
0 |
if ($KK_last_nb > 0 and $$rLL[$KK_last_nb - 1][6] eq "Q")
|
|
10573
|
0 |
0 |
if ($ch0 eq '"') { }
|
|
|
0 |
0 |
elsif ($ch0 eq q[']) { }
|
|
10582
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
10590
|
0 |
0 |
if ($is_interpolated)
|
|
10593
|
0 |
0 |
if $pos < 0
|
|
10594
|
0 |
0 |
if $pos == 0
|
|
10596
|
0 |
0 |
if $ch_test ne "\\"
|
|
10601
|
0 |
0 |
if (@Q_list and $Q_list[-1][0] eq $KK_last_nb) { }
|
|
10621
|
0 |
0 |
unless $word
|
|
10627
|
0 |
0 |
if ($parent_seqno and $ris_list_by_seqno->{$parent_seqno})
|
|
10633
|
0 |
0 |
if ($token_o eq "[")
|
|
10637
|
0 |
0 |
if (not defined $rhash_key_trove->{$word}) { }
|
|
10639
|
0 |
0 |
@stack ? :
|
|
10641
|
0 |
0 |
if ($slice_name) { }
|
|
|
0 |
0 |
elsif (not $id) { }
|
|
10648
|
0 |
0 |
if ($id and $type_KK eq "R")
|
|
10654
|
0 |
0 |
if (defined $rinfo)
|
|
10659
|
0 |
0 |
$Kn ? :
|
|
10662
|
0 |
0 |
if ($type_n ne "=" and $type_n ne "," or $rinfo->{'semicolon_count'} != $semicolon_count - 1)
|
|
10688
|
0 |
0 |
if (defined $id and not defined $first_key_by_id{$id})
|
|
10693
|
0 |
0 |
if ($birth_id)
|
|
10695
|
0 |
0 |
if ($birth_id_t and $birth_id_t eq $birth_id)
|
|
10730
|
0 |
0 |
unless @parts
|
|
10737
|
0 |
0 |
if (@parts == 1)
|
|
10742
|
0 |
0 |
unless ($word and $word =~ /^[\w\-]+$/)
|
|
10746
|
0 |
0 |
if ($K_unique_key{$word})
|
|
10756
|
0 |
0 |
unless defined $K_unique_key{$key}
|
|
10759
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq "(")
|
|
10762
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq $subname)
|
|
10787
|
0 |
0 |
unless $hash_id
|
|
10789
|
0 |
0 |
if $count == 1
|
|
10791
|
0 |
0 |
if $K_unique_key{$key}
|
|
10802
|
0 |
0 |
if $total_count <= 1
|
|
10806
|
0 |
0 |
unless $unique_count_pre_q
|
|
10808
|
0 |
0 |
unless (defined $unique_count_post_q)
|
|
10844
|
0 |
0 |
unless $hash_id
|
|
10845
|
0 |
0 |
unless $delete_this_id{$hash_id}
|
|
10846
|
0 |
0 |
if ($K_unique_key{$key})
|
|
10849
|
0 |
0 |
unless %K_unique_key
|
|
10857
|
0 |
0 |
if ($rmodules)
|
|
10864
|
0 |
0 |
if (index($module_seen, $module) == 0)
|
|
10872
|
0 |
0 |
unless $K_unique_key{$key}
|
|
10875
|
0 |
0 |
if ($rOpts_warn_unique_keys_cutoff <= 1)
|
|
10880
|
0 |
0 |
if (not $hash_id or $hash_id eq 1)
|
|
10886
|
0 |
0 |
if ($key eq uc $key)
|
|
10891
|
0 |
0 |
if ($key eq "tests")
|
|
10898
|
0 |
0 |
if (@debug_output)
|
|
10922
|
0 |
0 |
unless (ref $rlist)
|
|
10927
|
0 |
0 |
if ($K_unique_key{$word})
|
|
10930
|
0 |
0 |
if ($missing_GetOptions_keys and not $word =~ /^\w[\w\-]*$/ and not $word =~ /\s/)
|
|
10947
|
0 |
0 |
unless defined $Ktest
|
|
10951
|
0 |
0 |
unless $type eq "w" or $type eq "Q"
|
|
10954
|
0 |
0 |
if (@mw_list and $mw_list[-1] eq $Ktest)
|
|
10958
|
0 |
0 |
if $Ktest <= 0
|
|
10960
|
0 |
0 |
if ($type eq "b")
|
|
10964
|
0 |
0 |
if ($type eq "#")
|
|
10967
|
0 |
0 |
if ($type eq "b")
|
|
10972
|
0 |
0 |
if ($type eq "L")
|
|
10973
|
0 |
0 |
if ($type eq ",")
|
|
10974
|
0 |
0 |
if (@stack and $stack[-1]{'_slice_name'})
|
|
11010
|
0 |
0 |
if (($type = $rLL->[$KK][6]) eq 'b') { }
|
|
|
0 |
0 |
elsif (not $is_special_check_type{$type}) { }
|
|
|
0 |
0 |
elsif ($is_opening_type{$type}) { }
|
|
|
0 |
0 |
elsif ($is_closing_type{$type}) { }
|
|
|
0 |
0 |
elsif ($type eq ',') { }
|
|
|
0 |
0 |
elsif ($type eq 'k') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
|
0 |
0 |
elsif ($type eq 'q') { }
|
|
|
0 |
0 |
elsif ($type eq 'U' or $type eq 'w') { }
|
|
|
0 |
0 |
elsif ($type eq '=>') { }
|
|
|
0 |
0 |
elsif ($type eq 'h') { }
|
|
|
0 |
0 |
elsif ($type eq ';') { }
|
|
11014
|
0 |
0 |
if $type ne "#"
|
|
11023
|
0 |
0 |
unless ($seqno)
|
|
11031
|
0 |
0 |
if ($type eq "L")
|
|
11034
|
0 |
0 |
defined $KK_last_nb ? :
|
|
11038
|
0 |
0 |
if ($type_last eq "t")
|
|
11042
|
0 |
0 |
if ($Kn and $Kc and $Kn == $Kc and $Kc > $K_end_skip)
|
|
11049
|
0 |
0 |
if ($rtype_count->{','})
|
|
11063
|
0 |
0 |
unless ($seqno)
|
|
11069
|
0 |
0 |
if ($type eq "R")
|
|
11070
|
0 |
0 |
if (&$is_static_hash_key($KK_last_nb))
|
|
11071
|
0 |
0 |
if $KK_last_nb > $K_end_skip
|
|
11076
|
0 |
0 |
if (not $item or $item->{'_seqno'} != $seqno)
|
|
11092
|
0 |
0 |
if (@stack and $stack[-1]{'_slice_name'})
|
|
11093
|
0 |
0 |
if (&$is_static_hash_key($KK_last_nb))
|
|
11094
|
0 |
0 |
if $KK_last_nb > $K_end_skip
|
|
11103
|
0 |
0 |
if ($token eq "use" or $token eq "require")
|
|
11105
|
0 |
0 |
unless (defined $Kn)
|
|
11113
|
0 |
0 |
if (index($token_n, 'Getopt::Std') == 0) { }
|
|
|
0 |
0 |
elsif (index($token_n, 'Getopt::Long') == 0) { }
|
|
|
0 |
0 |
elsif ($token_n eq 'constant' and $token eq 'use') { }
|
|
11126
|
0 |
0 |
unless (defined $Kn)
|
|
11131
|
0 |
0 |
if ($seqno_n) { }
|
|
11134
|
0 |
0 |
if ($rLL->[$Kn][4] eq '{') { }
|
|
11163
|
0 |
0 |
@stack ? :
|
|
11170
|
0 |
0 |
if (not defined $KK_last_nb or $rLL->[$KK_last_nb][6] ne "q")
|
|
11185
|
0 |
0 |
if ($is_GetOptions_call{$token}) { }
|
|
|
0 |
0 |
elsif ($token eq 'getopts' or $token eq 'getopt') { }
|
|
|
0 |
0 |
elsif ($KK > 0 and $$rLL[$KK - 1][4] eq '-' and $$rLL[$KK - 1][6] eq 'm') { }
|
|
11187
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
11199
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
11204
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq "Q")
|
|
11210
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq ",")
|
|
11233
|
0 |
0 |
if ($is_GetOptions_call_by_seqno{$parent_seqno}) { }
|
|
11237
|
0 |
0 |
if $KK_last_nb > $K_end_skip
|
|
11254
|
0 |
0 |
if (is_interpolated_here_doc($token))
|
|
11270
|
0 |
0 |
if (defined $rcall_type->{'all'})
|
|
11276
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[1] <=> $Perl::Tidy::Formatter::b->[1]
|
|
11286
|
0 |
0 |
if (defined $rcall_type->{'similar'})
|
|
11293
|
0 |
0 |
unless defined $rcall_type->{'unique'}
|
|
11313
|
0 |
0 |
if $count != 1
|
|
11316
|
0 |
0 |
if (&$is_known_key($key))
|
|
11325
|
0 |
0 |
unless %K_unique_key
|
|
11330
|
0 |
0 |
if (@Q_list)
|
|
11342
|
0 |
0 |
unless ($is_qwaf_Q)
|
|
11343
|
0 |
0 |
if length $string < 2
|
|
11345
|
0 |
0 |
if ($ch1 eq '"') { }
|
|
|
0 |
0 |
elsif ($ch1 eq q[']) { }
|
|
11355
|
0 |
0 |
unless defined $rQ_info
|
|
11362
|
0 |
0 |
if ($Kend > $K)
|
|
11372
|
0 |
0 |
$is_qwaf_Q ? :
|
|
11374
|
0 |
0 |
if ($is_interpolated)
|
|
11377
|
0 |
0 |
if ($K_unique_key{$key})
|
|
11384
|
0 |
0 |
unless ($is_multiline)
|
|
11390
|
0 |
0 |
unless %K_unique_key
|
|
11393
|
0 |
0 |
if (@mw_list)
|
|
11396
|
0 |
0 |
if ($K_unique_key{$word})
|
|
11402
|
0 |
0 |
unless %K_unique_key
|
|
11406
|
0 |
0 |
if ($K_unique_key{$key})
|
|
11411
|
0 |
0 |
unless %K_unique_key
|
|
11418
|
0 |
0 |
if ($ch1 eq "'" or $ch1 eq "\"")
|
|
11422
|
0 |
0 |
if ($K_unique_key{$word})
|
|
11427
|
0 |
0 |
unless ($word =~ /^\w[\w\-]*$/ or $word =~ /\s/)
|
|
11434
|
0 |
0 |
unless %K_unique_key
|
|
11437
|
0 |
0 |
if ($Getopt_Std_hash_id and $saw_Getopt_Std)
|
|
11443
|
0 |
0 |
if ($ch1 eq "'" or $ch1 eq "\"")
|
|
11449
|
0 |
0 |
if ($K_unique_key{$letter})
|
|
11457
|
0 |
0 |
unless (@Q_getopts)
|
|
11459
|
0 |
0 |
if length $key != 1
|
|
11460
|
0 |
0 |
unless $key =~ /[A-Za-z\?]/
|
|
11473
|
0 |
0 |
unless %K_unique_key
|
|
11478
|
0 |
0 |
unless (defined $rlist)
|
|
11481
|
0 |
0 |
if (defined $Kqw and $Kqw >= 0 and $Kqw <= $Klimit)
|
|
11499
|
0 |
0 |
unless %K_unique_key
|
|
11506
|
0 |
0 |
unless %K_unique_key
|
|
11517
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[1] <=> $Perl::Tidy::Formatter::b->[1]
|
|
11537
|
0 |
0 |
if ($output_string)
|
|
11561
|
0 |
0 |
if $rOpts->{$wsk_key}
|
|
11562
|
0 |
0 |
if $rOpts->{$wuk_key} and $is_complete_script
|
|
11568
|
0 |
0 |
if ($output_string)
|
|
11579
|
0 |
0 |
if ($output_string)
|
|
11608
|
0 |
0 |
if ($max_diff <= 0)
|
|
11615
|
0 |
0 |
if (lc $s1 eq lc $s2)
|
|
11625
|
0 |
0 |
if ($odiff > 0) { }
|
|
|
0 |
0 |
elsif ($odiff < 0) { }
|
|
11642
|
0 |
0 |
if ($len1 > $len2) { }
|
|
|
0 |
0 |
elsif ($len2 > $len1) { }
|
|
11665
|
0 |
0 |
if ($posm and $pos < $posm)
|
|
11677
|
0 |
0 |
if ($posm and $posm + 1 == $pos)
|
|
11680
|
0 |
0 |
if ($c1m eq $c2p) { }
|
|
11683
|
0 |
0 |
if ($c1p eq $c2m) { }
|
|
11689
|
0 |
0 |
if ($pad1 > 0 and $c1p eq substr($s2, $pos, 1))
|
|
11708
|
0 |
0 |
if ($c1p eq $c2m and $pad2 > 0 and $c2p eq substr($s1, $pos, 1))
|
|
11729
|
0 |
0 |
if ($diff_inc and $saw_change{$c1p . $c2p}++)
|
|
11732
|
0 |
0 |
if (not $saw_case_change and lc $c1p eq lc $c2p)
|
|
11740
|
0 |
0 |
if ($diff_inc)
|
|
11741
|
0 |
0 |
if ($diff_count > $max_diff)
|
|
11766
|
0 |
0 |
unless $rword_info->{$a}{'first_letter'} cmp $rword_info->{$b}{'first_letter'} or $rword_info->{$a}{'string_length'} <=> $rword_info->{$b}{'string_length'}
|
|
11778
|
0 |
0 |
$reverse ? :
|
|
11783
|
0 |
0 |
if $first_letter ne $rword_info->{$word2}{'first_letter'}
|
|
11785
|
0 |
0 |
if $rword_info->{$word2}{'string_length'} - $word_length > $max_diff
|
|
11790
|
0 |
0 |
if ($reverse)
|
|
11792
|
0 |
0 |
if $last_letter eq $rword_info->{$word2}{'last_letter'}
|
|
11796
|
0 |
0 |
if ($birth_id1)
|
|
11799
|
0 |
0 |
if $birth_id2 and $birth_id2 eq $birth_id1
|
|
11806
|
0 |
0 |
if ($diff_count)
|
|
11809
|
0 |
0 |
$reverse ? :
|
|
11810
|
0 |
0 |
$reverse ? :
|
|
11811
|
0 |
0 |
if ($count2 < $count1)
|
|
11844
|
0 |
0 |
unless $rhash_key_trove
|
|
11861
|
0 |
0 |
if $string_length < $min_len
|
|
11864
|
0 |
0 |
unless (defined $birth_id)
|
|
11869
|
0 |
0 |
if ($word =~ /([^\W_])/g)
|
|
11883
|
0 |
0 |
if ($drow =~ /([^\W_])/g)
|
|
11908
|
0 |
0 |
if ($max_diff > 1)
|
|
11923
|
0 |
0 |
if ($num_skipped > 0)
|
|
11936
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[4] <=> $Perl::Tidy::Formatter::b->[4]
|
|
11947
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[4] <=> $Perl::Tidy::Formatter::b->[4] or $Perl::Tidy::Formatter::a->[6] <=> $Perl::Tidy::Formatter::b->[6]
|
|
11958
|
0 |
0 |
if (@word_pairs)
|
|
11976
|
0 |
0 |
if ($output_string)
|
|
11996
|
0 |
0 |
if ($output_string)
|
|
12026
|
0 |
0 |
if (defined $rOpts_dump_block_types)
|
|
12031
|
0 |
0 |
if (length $_ > 1 and substr($_, -1, 1) eq '+') { }
|
|
12065
|
0 |
0 |
unless @all_blocks
|
|
12077
|
0 |
0 |
unless (defined $rOpts_dump_block_minimum_lines)
|
|
12101
|
0 |
0 |
if (defined $code_lines_open and defined $code_lines_close)
|
|
12109
|
0 |
0 |
if (defined $comment_lines_open and defined $comment_lines_close)
|
|
12117
|
0 |
0 |
if (defined $mccabe_opening and defined $mccabe_closing)
|
|
12122
|
0 |
0 |
if (substr($item->{'type'}, 0, 4) eq "asub")
|
|
12139
|
0 |
0 |
if ($code_lines < $rOpts_dump_block_minimum_lines)
|
|
12148
|
0 |
0 |
if ($seqno and substr($item->{'type'}, 0, 3) eq "sub")
|
|
12150
|
0 |
0 |
if ($asub_count)
|
|
12158
|
0 |
0 |
if ($seqno and $ris_method_block->{$seqno})
|
|
12183
|
0 |
0 |
unless @{$routput_lines;}
|
|
12255
|
5 |
653 |
if ($rOpts_extended_continuation_indentation and not $rOpts_line_up_parentheses)
|
|
12264
|
4 |
654 |
unless defined $Klimit
|
|
12311
|
0 |
118 |
unless defined $Kc
|
|
12315
|
0 |
118 |
unless defined $Kcn
|
|
12317
|
80 |
38 |
if $seqno_n
|
|
12321
|
0 |
38 |
unless defined $Knn
|
|
12323
|
9 |
29 |
unless $seqno_nn
|
|
12325
|
16 |
13 |
unless $K_nno and $K_nno == $Knn
|
|
12328
|
6 |
7 |
if ($block_type)
|
|
12344
|
0 |
192 |
unless defined $Km
|
|
12346
|
0 |
185 |
if ($rLL->[$Kt][6] eq "#")
|
|
12360
|
0 |
3 |
if ($ci_last == 0 or $last_token ne "}" or $last_type ne "}")
|
|
12369
|
2 |
1 |
if ($rLL->[$KK_last][4] ne $last_token)
|
|
12371
|
0 |
2 |
unless $KK_last
|
|
12372
|
0 |
2 |
if ($rLL->[$KK_last][4] ne $last_token)
|
|
12381
|
0 |
3 |
unless $seqno
|
|
12383
|
3 |
0 |
if ($block_type and $is_block_with_ci{$block_type})
|
|
12410
|
25926 |
43177 |
if (($type = $rtoken_K->[6]) eq "b")
|
|
12421
|
1213 |
41964 |
if ($type eq "#")
|
|
12432
|
4 |
1209 |
if ($parent_container_type eq "Ternary")
|
|
12434
|
4 |
0 |
if ($Kn)
|
|
12436
|
4 |
0 |
if ($is_ternary{$type_kn})
|
|
12440
|
4 |
0 |
if ($Kn == $rparent->{'_Kc'})
|
|
12452
|
20 |
0 |
if ($ci_this and !$rparent->{'_ci_close'} || !$rparent->{'_ci_open_next'} && ($rparent->{'_comma_count'} || $last_type eq ',' || $is_closing_type{$last_type}))
|
|
12468
|
39 |
0 |
if ($rK_range)
|
|
12469
|
13 |
26 |
if (defined $Kfirst and $Kfirst == $KK)
|
|
12473
|
13 |
0 |
unless $Kn
|
|
12475
|
0 |
0 |
if ($Kn and $Kc and $Kn == $Kc || $rLL->[$Kn][6] eq ',' && $want_break_before_comma && $parent_container_type eq 'List')
|
|
12503
|
0 |
0 |
if ($level_Kc < $level_KK and not $is_HSC)
|
|
12532
|
11062 |
30902 |
if ($rtoken_K->[7]) { }
|
|
|
3184 |
27718 |
elsif ($type eq ';' or $type eq 'J' or $type eq 'f') { }
|
|
|
3298 |
24420 |
elsif ($type eq 'k') { }
|
|
|
3732 |
20688 |
elsif ($type eq ',') { }
|
|
12539
|
5531 |
5531 |
if ($is_opening_sequence_token{$token}) { }
|
|
12551
|
193 |
5338 |
$type eq '?' ? :
|
|
12555
|
5531 |
0 |
if ($KK < $Klimit)
|
|
12557
|
3654 |
1877 |
if ($rLL->[$Kn][6] eq "b" and $Kn < $Klimit)
|
|
12564
|
5382 |
149 |
if ($Kc and $Kc < $Klimit)
|
|
12566
|
2714 |
2668 |
if ($rLL->[$Kcn][6] eq "b" and $Kcn < $Klimit)
|
|
12569
|
108 |
5274 |
if ($rLL->[$Kcn][6] eq "#")
|
|
12574
|
5531 |
0 |
$Kn ? :
|
|
12582
|
4654 |
877 |
if ($opening_level_jump > 0)
|
|
12588
|
2235 |
3296 |
if ($rtype_count)
|
|
12596
|
478 |
1757 |
if ($semicolon_count and $semicolon_count == 1)
|
|
12598
|
458 |
20 |
if ($rLL->[$Kcm][6] eq ";")
|
|
12610
|
1148 |
4383 |
if ($block_type) { }
|
|
|
193 |
4190 |
elsif ($type eq '?') { }
|
|
12621
|
608 |
540 |
unless ($no_semicolon)
|
|
12628
|
373 |
235 |
if ($is_block_with_ci{$block_type})
|
|
12630
|
6 |
367 |
if ($parent_seqno != 1 and not $rparent->{'_comma_count'} and not $rparent->{'_semicolon_count'} and &$map_block_follows($seqno)) { }
|
|
12642
|
0 |
6 |
if ($ci_last)
|
|
12652
|
212 |
396 |
if (not $ci_close and $Kcn)
|
|
12655
|
1 |
54 |
if ($type_kcn =~ /^(\.|\&\&|\|\|)$/ or $type_kcn eq "k" and $is_and_or{$token_kcn})
|
|
12663
|
1140 |
8 |
if ($rparent->{'_container_type'} ne "Ternary")
|
|
12675
|
55 |
138 |
if ($rparent->{'_container_type'} eq "List" and not $rparent->{'_ci_open_next'})
|
|
12684
|
192 |
1 |
unless ($opening_level_jump)
|
|
12701
|
2166 |
2024 |
if (not $is_logical and $token eq "(")
|
|
12705
|
524 |
1642 |
if ($last_type eq 'k') { }
|
|
|
685 |
957 |
elsif ($last_type eq 'i' and defined $Kcn) { }
|
|
|
61 |
896 |
elsif ($last_token eq '(') { }
|
|
12709
|
29 |
495 |
if ($last_token eq "for")
|
|
12719
|
43 |
642 |
if ($seqno_kcn and $type_kcn eq "{")
|
|
12734
|
0 |
706 |
unless defined $Km
|
|
12735
|
639 |
67 |
unless $rLL->[$Km][6] eq "k"
|
|
12737
|
21 |
46 |
if $tok eq "my"
|
|
12755
|
799 |
3391 |
if ($is_logical) { }
|
|
12759
|
6 |
793 |
if ($last_type eq "!")
|
|
12766
|
440 |
359 |
if ($type eq "[" and 1)
|
|
12771
|
9 |
431 |
if ($last_type eq "}")
|
|
12776
|
359 |
440 |
if ($opening_level_jump)
|
|
12790
|
2037 |
1354 |
if ($rparent->{'_container_type'} eq 'Block') { }
|
|
12793
|
2036 |
1 |
if (defined $Kcn)
|
|
12796
|
60 |
1976 |
if ($closing_level_jump < 0)
|
|
12805
|
681 |
673 |
unless ($rparent->{'_comma_count'})
|
|
12811
|
20 |
83 |
if ($ci_close_next != $ci_close and defined $Kcn and $bin_op_type{$rLL->[$Kcn][6]})
|
|
12819
|
55 |
1299 |
if ($rparent->{'_container_type'} eq "Ternary")
|
|
12825
|
0 |
3391 |
if ($token ne "(" and $last_type eq "}")
|
|
12830
|
1 |
663 |
if ($token eq "(" and $ci_last == 0 and $is_nobreak_opening_paren_type{$last_type})
|
|
12838
|
0 |
144 |
if ($type eq "L" and $ci_last == 0 and $is_nobreak_opening_hash_brace_type{$last_type})
|
|
12852
|
881 |
979 |
if ($type eq "{" and $token ne "(" and $is_list_end_type{$last_type} and not $ris_asub_block->{$seqno})
|
|
12865
|
0 |
5531 |
if ($ci_close < $ci_this)
|
|
12888
|
0 |
5531 |
if ($seqno_test ne $seqno)
|
|
12902
|
5531 |
0 |
if (@{$rstack;}) { }
|
|
12915
|
218 |
3847 |
if ($ci_this > 0 and not $ci_open_old and not $rparent->{'_ci_close'})
|
|
12918
|
5 |
32 |
if ($Kc and $Kn and $Kc == $Kn)
|
|
12932
|
1531 |
1653 |
if ($is_closing_type{$last_type})
|
|
12940
|
1 |
3297 |
if (substr($token, 0, 6) eq "format")
|
|
12952
|
3502 |
230 |
if ($rparent->{'_container_type'} eq "List")
|
|
13011
|
3 |
475 |
if ($ci_last > 0 and $last_token eq "}" and $last_type eq "}")
|
|
13052
|
0 |
1 |
unless %maximum_field_count_control_hash
|
|
13062
|
0 |
4 |
unless (defined $K_opening)
|
|
13069
|
0 |
4 |
unless $rpacked_flags
|
|
13071
|
0 |
4 |
if ($flag)
|
|
13073
|
0 |
0 |
unless $match
|
|
13076
|
0 |
4 |
unless $rtype_count
|
|
13078
|
4 |
0 |
if ($comma_count and $comma_count >= $max)
|
|
13100
|
1 |
12 |
if ($type eq ";")
|
|
13102
|
0 |
1 |
if ($semicolon_count > 1)
|
|
13105
|
4 |
8 |
if ($type eq "i")
|
|
13107
|
4 |
0 |
if ($token =~ /\bVERSION$/)
|
|
13140
|
1 |
657 |
if ($Inverted_skip_mode)
|
|
13167
|
0 |
1 |
if (not defined $token or substr($token, 0, 1) ne "#")
|
|
13171
|
1 |
0 |
if ($rOpts_skip_formatting_except_id eq "*" or $token =~ /\s+id=(\w+)/ and $1 eq $rOpts_skip_formatting_except_id)
|
|
13187
|
2 |
1 |
if ($early_FS_end_marker and $rOpts_detect_format_skipping_from_start and $rOpts_format_skipping)
|
|
13191
|
2 |
0 |
if (not $Inverted_skip_mode) { }
|
|
13192
|
2 |
0 |
unless ($In_format_skipping_section)
|
|
13200
|
0 |
0 |
if ($In_format_skipping_section)
|
|
13247
|
260 |
8893 |
if ($line_type ne "CODE")
|
|
13255
|
7840 |
1053 |
defined $Kfirst ? :
|
|
13258
|
1251 |
7642 |
if ($jmax >= 0 and $rLL->[$Klast][6] eq "#")
|
|
13259
|
888 |
363 |
if ($jmax == 0) { }
|
|
13266
|
888 |
8005 |
if ($is_block_comment)
|
|
13269
|
17 |
871 |
if (substr($rLL->[$Kfirst][4], 0, 4) eq '#<<<' || $rOpts_format_skipping_begin and $rOpts_format_skipping and ($rLL->[$Kfirst][4] . ' ') =~ /$format_skipping_pattern_begin/ and $format_markers_differ || !@format_marker_list || $format_marker_list[0] == -1) { }
|
|
|
20 |
851 |
elsif (substr($rLL->[$Kfirst][4], 0, 4) eq '#>>>' || $rOpts_format_skipping_end and $rOpts_format_skipping and ($rLL->[$Kfirst][4] . ' ') =~ /$format_skipping_pattern_end/) { }
|
|
13288
|
16 |
1 |
if (not $In_format_skipping_section) { }
|
|
13291
|
16 |
0 |
if (not $Inverted_skip_mode) { }
|
|
13303
|
1 |
0 |
if ($Inverted_skip_mode) { }
|
|
13334
|
18 |
2 |
if ($In_format_skipping_section) { }
|
|
13335
|
18 |
0 |
if (not $Inverted_skip_mode) { }
|
|
13354
|
1 |
1 |
if ($Inverted_skip_mode) { }
|
|
13375
|
96 |
8779 |
if ($In_format_skipping_section)
|
|
13383
|
58 |
8721 |
if ($line_of_tokens->{'_starting_in_quote'})
|
|
13387
|
37 |
21 |
if ($jmax <= 0)
|
|
13388
|
0 |
37 |
if ($self->[79] and $input_line =~ /\t/)
|
|
13398
|
148 |
8594 |
if ($jmax > 0 and $rLL->[$Klast][6] eq "b")
|
|
13405
|
1047 |
7695 |
if ($jmax < 0)
|
|
13413
|
851 |
6844 |
if ($is_block_comment)
|
|
13418
|
28 |
4 |
if (substr($rLL->[$Kfirst][4], 0, 2) eq '##' || $rOpts_static_block_comment_prefix and $rOpts_static_block_comments and $input_line =~ /$static_block_comment_pattern/)
|
|
13437
|
2 |
849 |
if ($no_leading_space and $input_line =~ /^\# \s*
|
|
13449
|
67 |
9 |
if ($last_line_had_side_comment and not $no_leading_space and not $is_static_block_comment)
|
|
13457
|
28 |
39 |
if ($last_CODE_type eq "HSC")
|
|
13464
|
37 |
0 |
if ($rOpts->{'hanging-side-comments'} and (defined $Klast_prev and $Klast_prev > 1) and not $rOpts->{'static-side-comments'} && $rLL->[$Klast_prev][4] =~ /$static_side_comment_pattern/)
|
|
13484
|
35 |
2 |
if $rLL->[$K_penult][6] eq "b"
|
|
13491
|
37 |
0 |
unless ($follows_csc)
|
|
13499
|
30 |
756 |
if ($is_static_block_comment) { }
|
|
|
0 |
756 |
elsif ($last_line_had_side_comment and not $rOpts_maximum_consecutive_blank_lines and $rLL->[$Kfirst][3] > 0) { }
|
|
13500
|
14 |
16 |
$no_leading_space ? :
|
|
13523
|
12 |
6832 |
if ($rOpts_indent_only)
|
|
13528
|
64 |
6768 |
unless ($rOpts_add_newlines)
|
|
13554
|
4 |
15 |
if ($looking_for_VERSION_line and $jmax < 60 and index($input_line, "VERSION") > 0 and $input_line =~ /^[^;]*;?[^;]*([\$*])(([\w\:\']*)\bVERSION)\b.*\=/ and $self->is_VERSION_line($Kfirst, $Klast))
|
|
13579
|
428 |
8725 |
if ($has_side_comment)
|
|
13614
|
0 |
0 |
unless defined $K_paren
|
|
13616
|
0 |
0 |
unless $token_paren eq "("
|
|
13623
|
0 |
0 |
unless $K_n
|
|
13629
|
0 |
0 |
if ($K_n != $K_paren)
|
|
13632
|
0 |
0 |
if ($is_for_foreach{$token_KK})
|
|
13637
|
0 |
0 |
if ($type_K_n eq "k")
|
|
13638
|
0 |
0 |
if ($is_my_state_our{$token_K_n}) { }
|
|
13646
|
0 |
0 |
if ($K_n and $K_n != $K_paren and $rLL->[$K_n][6] eq "i")
|
|
13656
|
0 |
0 |
unless $K_n and $K_n == $K_paren
|
|
13663
|
0 |
0 |
unless $K_brace
|
|
13667
|
0 |
0 |
if ($rLL->[$K_brace][4] eq "(" and not $K_end_iterator and $is_for_foreach{$token_KK})
|
|
13671
|
0 |
0 |
unless ($saw_my)
|
|
13674
|
0 |
0 |
unless $K_test
|
|
13676
|
0 |
0 |
unless $K_brace
|
|
13679
|
0 |
0 |
unless $rLL->[$K_brace][4] eq "{"
|
|
13681
|
0 |
0 |
unless $seqno_brace
|
|
13685
|
0 |
0 |
if ($block_type ne $token_KK)
|
|
13705
|
0 |
0 |
unless defined $Klast
|
|
13710
|
0 |
0 |
unless defined $rK_package_list and @{$rK_package_list;}
|
|
13722
|
0 |
0 |
if ($type eq "b")
|
|
13729
|
0 |
0 |
if ($type ne "P")
|
|
13734
|
0 |
0 |
unless $level == 0
|
|
13738
|
0 |
0 |
if (@{$rK_package_list;} > 1)
|
|
13745
|
0 |
0 |
if ($rLL->[$Ktest][6] eq "b")
|
|
13746
|
0 |
0 |
if ($Ktest > $KK and $Ktest and $rLL->[$Ktest][6] eq ";")
|
|
13748
|
0 |
0 |
if ($K1 and $rLL->[$K1][4] eq 1)
|
|
13769
|
0 |
0 |
if (defined $is_complete_script)
|
|
13773
|
0 |
0 |
if ($line_range_clipped) { }
|
|
13782
|
0 |
0 |
if ($num_files)
|
|
13783
|
0 |
0 |
if ($num_files > 1) { }
|
|
13797
|
0 |
0 |
if ($pos_dot > 0)
|
|
13802
|
0 |
0 |
if (defined $file_extension and length $file_extension)
|
|
13813
|
0 |
0 |
unless (defined $is_complete_script)
|
|
13815
|
0 |
0 |
$guess ? :
|
|
13833
|
0 |
0 |
unless @{$rLL;}
|
|
13835
|
0 |
0 |
if $sil
|
|
13840
|
0 |
0 |
if $self->has_complete_package
|
|
13847
|
0 |
0 |
unless $line_count
|
|
13858
|
0 |
0 |
if $rkeyword_count->{'use'}
|
|
13859
|
0 |
0 |
if $rkeyword_count->{'require'}
|
|
13865
|
0 |
0 |
if $saw_hash_bang or $self->[72] or $saw_package
|
|
13870
|
0 |
0 |
$use_count > 0 ? :
|
|
|
0 |
0 |
$use_count > 1 ? :
|
|
13876
|
0 |
0 |
$line_count > 25 ? :
|
|
|
0 |
0 |
$line_count > 50 ? :
|
|
13880
|
0 |
0 |
$sub_count > 0 ? :
|
|
|
0 |
0 |
$sub_count > 1 ? :
|
|
13887
|
0 |
0 |
if ($rkeyword_count->{$_})
|
|
13891
|
0 |
0 |
if $rspecial_line_type_count->{'POD_START'}
|
|
13896
|
0 |
0 |
if $rspecial_line_type_count->{'END_START'} or $rspecial_line_type_count->{'DATA_START'}
|
|
13898
|
0 |
0 |
if ($score >= 100)
|
|
13914
|
0 |
0 |
unless defined $Kn
|
|
13916
|
0 |
0 |
unless $type_n eq "q"
|
|
13924
|
0 |
0 |
if $type_nn eq "b"
|
|
13925
|
0 |
0 |
if $type_nn ne "q"
|
|
13951
|
0 |
0 |
unless defined $Kbeg
|
|
13961
|
0 |
0 |
if $type eq "b"
|
|
13962
|
0 |
0 |
if $type eq "#"
|
|
13963
|
0 |
0 |
if $type eq ","
|
|
13964
|
0 |
0 |
if $type eq ";"
|
|
13965
|
0 |
0 |
if $token eq "}"
|
|
13966
|
0 |
0 |
if $token eq "("
|
|
13967
|
0 |
0 |
if ($token eq ")")
|
|
13969
|
0 |
0 |
if ($type eq 'q') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
|
0 |
0 |
elsif ($type eq 'U') { }
|
|
13973
|
0 |
0 |
unless defined $K_last_q
|
|
13974
|
0 |
0 |
if ($K_last_q > $Kn)
|
|
13979
|
0 |
0 |
if ($is_qwaf_Q) { }
|
|
|
0 |
0 |
elsif (length $token > 2) { }
|
|
13984
|
0 |
0 |
if ($ch0 eq '"' or $ch0 eq q[']) { }
|
|
13989
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
13998
|
0 |
0 |
if (defined $name)
|
|
14001
|
0 |
0 |
if ($token eq "qw")
|
|
14003
|
0 |
0 |
if not defined $Kn or $rLL->[$Kn][4] ne "("
|
|
14005
|
0 |
0 |
unless defined $seqno
|
|
14006
|
0 |
0 |
unless $self->[93]{$seqno}
|
|
14037
|
0 |
0 |
unless $Kn and $rLL->[$Kn][6] eq "="
|
|
14041
|
0 |
0 |
unless $Kn
|
|
14045
|
0 |
0 |
unless $rlist
|
|
14084
|
0 |
0 |
unless defined $self->K_first_code
|
|
14096
|
0 |
0 |
unless (defined $roption)
|
|
14104
|
0 |
0 |
unless $roption->{$letter}
|
|
14156
|
0 |
0 |
unless (defined $rvars)
|
|
14216
|
0 |
0 |
if ($name =~ /^(\W+)(\w+)$/) { }
|
|
14230
|
0 |
0 |
if ($check_sigil) { }
|
|
|
0 |
0 |
elsif ($check_reused) { }
|
|
14231
|
0 |
0 |
if ($check_reused) { }
|
|
14236
|
0 |
0 |
if ($sig ne $sigil)
|
|
14248
|
0 |
0 |
if (@sigils_to_test)
|
|
14256
|
0 |
0 |
defined $item->{'seqno'} ? :
|
|
14261
|
0 |
0 |
unless $rhash->{$test_name}
|
|
14266
|
0 |
0 |
if ($sig eq $sigil) { }
|
|
14267
|
0 |
0 |
defined $my_keyword && ($my_keyword eq 'for' || $my_keyword eq 'foreach') ? :
|
|
14314
|
0 |
0 |
if ($true_name)
|
|
14317
|
0 |
0 |
if ($in_signature_seqno)
|
|
14321
|
0 |
0 |
if $parent != $in_signature_seqno
|
|
14325
|
0 |
0 |
unless $Kp
|
|
14328
|
0 |
0 |
if $type_p ne "," and $token_p ne "("
|
|
14332
|
0 |
0 |
if $bad_name
|
|
14335
|
0 |
0 |
unless (defined $my_keyword)
|
|
14372
|
0 |
0 |
unless $check_unused
|
|
14374
|
0 |
0 |
unless defined $sigil_string and defined $word
|
|
14377
|
0 |
0 |
unless $is_valid_sigil{$sigil}
|
|
14393
|
0 |
0 |
if ($bracket and length $sigil_string == 1)
|
|
14394
|
0 |
0 |
if ($bracket eq '{') { }
|
|
|
0 |
0 |
elsif ($bracket eq '[') { }
|
|
14402
|
0 |
0 |
if ($rvars->{$name})
|
|
14416
|
0 |
0 |
unless defined $word
|
|
14432
|
0 |
0 |
unless $package
|
|
14442
|
0 |
0 |
unless $Kn
|
|
14444
|
0 |
0 |
unless $rlist
|
|
14449
|
0 |
0 |
if $bad_name
|
|
14465
|
0 |
0 |
unless $Kn
|
|
14470
|
0 |
0 |
if ($type_n eq "n" or $type_n eq "v")
|
|
14478
|
0 |
0 |
if ($type_n eq "U" and $token_n eq "qw")
|
|
14485
|
0 |
0 |
if ($token_n eq "(")
|
|
14492
|
0 |
0 |
if ($type_n eq 'w') { }
|
|
|
0 |
0 |
elsif ($type_n eq 'Q') { }
|
|
|
0 |
0 |
elsif ($type_n eq 'q') { }
|
|
|
0 |
0 |
elsif ($type_n eq '{' and $token_n eq '{') { }
|
|
|
0 |
0 |
elsif ($type_n eq ';') { }
|
|
14501
|
0 |
0 |
if ($is_qwaf_Q) { }
|
|
|
0 |
0 |
elsif (length $token_n > 2) { }
|
|
14506
|
0 |
0 |
if ($ch0 eq '"' or $ch0 eq q[']) { }
|
|
14511
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
14520
|
0 |
0 |
if defined $name
|
|
14526
|
0 |
0 |
if ($token_n =~ /qw\s*.(\w+)/)
|
|
14537
|
0 |
0 |
unless $seqno_n
|
|
14539
|
0 |
0 |
unless $Kc
|
|
14550
|
0 |
0 |
if $type eq "b" or $type eq "#"
|
|
14552
|
0 |
0 |
if $level > $level_start
|
|
14553
|
0 |
0 |
if ($level < $level_start)
|
|
14560
|
0 |
0 |
if ($last_type eq ',' and not $total_comma_count % 2) { }
|
|
14561
|
0 |
0 |
if ($type eq 'w') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
14565
|
0 |
0 |
if (length $token < 3)
|
|
14568
|
0 |
0 |
if ($ch0 eq '"' or $ch0 eq q[']) { }
|
|
14573
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
14589
|
0 |
0 |
if ($type eq "," or $type eq "=>")
|
|
14615
|
0 |
0 |
unless (defined $word)
|
|
14618
|
0 |
0 |
if ($pos >= 0)
|
|
14619
|
0 |
0 |
$pos > 0 ? :
|
|
14622
|
0 |
0 |
unless defined $rconstant_hash->{$package}
|
|
14624
|
0 |
0 |
unless defined $rvars
|
|
14625
|
0 |
0 |
if $KK <= $rvars->{'K'}
|
|
14642
|
0 |
0 |
unless ($count)
|
|
14648
|
0 |
0 |
if $keyword eq "our" or $keyword eq "use vars"
|
|
14671
|
0 |
0 |
unless $check_unused
|
|
14701
|
0 |
0 |
unless $K_n
|
|
14702
|
0 |
0 |
unless $rLL->[$K_n][6] eq "k"
|
|
14710
|
0 |
0 |
if ($rLL->[$K_n][4] eq 'elsif') { }
|
|
|
0 |
0 |
elsif ($rLL->[$K_n][4] eq 'else') { }
|
|
14723
|
0 |
0 |
if ($K_nn and $is_opening_token{$rLL->[$K_nn][4]})
|
|
14734
|
0 |
0 |
if ($seqno_block and $rblock_type_of_seqno->{$seqno_block})
|
|
14752
|
0 |
0 |
unless $check_unused
|
|
14757
|
0 |
0 |
unless defined $Kp and $rLL->[$Kp][6] eq "t"
|
|
14762
|
0 |
0 |
unless defined $Kn and $rLL->[$Kn][6] eq "w"
|
|
14767
|
0 |
0 |
unless defined $Knn and $rLL->[$Knn][6] eq "R"
|
|
14772
|
0 |
0 |
if (defined $Knnn)
|
|
14774
|
0 |
0 |
if ($next_type eq "L" or $next_type eq "[")
|
|
14806
|
0 |
0 |
unless $rLL->[$Kn][4] eq "("
|
|
14808
|
0 |
0 |
unless $seqno_paren
|
|
14811
|
0 |
0 |
unless $K_opening_brace
|
|
14814
|
0 |
0 |
unless $seqno_brace and $token_brace eq "{"
|
|
14819
|
0 |
0 |
if ($K_opening_brace > $K_end_my)
|
|
14835
|
0 |
0 |
if ($line_type ne "CODE")
|
|
14840
|
0 |
0 |
unless defined $Kfirst
|
|
14847
|
0 |
0 |
if $type eq "b" or $type eq "#"
|
|
14851
|
0 |
0 |
if ($seqno) { }
|
|
|
0 |
0 |
elsif ($type eq 'k') { }
|
|
|
0 |
0 |
elsif ($type eq 'i' or $type eq 'Z') { }
|
|
|
0 |
0 |
elsif ($type eq 'S') { }
|
|
|
0 |
0 |
elsif ($type eq 'P') { }
|
|
|
0 |
0 |
elsif ($type eq 'h') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
|
0 |
0 |
elsif ($type eq 'w') { }
|
|
|
0 |
0 |
elsif ($type eq 'C') { }
|
|
|
0 |
0 |
elsif ($type eq 'U') { }
|
|
14853
|
0 |
0 |
if $seqno
|
|
14857
|
0 |
0 |
if ($is_opening_token{$token}) { }
|
|
|
0 |
0 |
elsif ($is_closing_token{$token}) { }
|
|
14860
|
0 |
0 |
if ($block_type)
|
|
14863
|
0 |
0 |
if ($in_signature_seqno and @{$rblock_stack;} and $seqno == $rblock_stack->[-1]{'seqno'})
|
|
14873
|
0 |
0 |
if ($ris_sub_block->{$seqno})
|
|
14879
|
0 |
0 |
if ($type eq "L")
|
|
14887
|
0 |
0 |
if ($is_on_stack) { }
|
|
|
0 |
0 |
elsif ($block_type) { }
|
|
14892
|
0 |
0 |
if ($block_type) { }
|
|
14898
|
0 |
0 |
if ($check_unused and $rpopped_vars)
|
|
14904
|
0 |
0 |
if (@{$rblock_stack;} and $seqno == $rblock_stack->[-1]{'seqno'})
|
|
14915
|
0 |
0 |
if ($check_unused and $rpopped_vars and not $is_if_unless_elsif_else{$block_type})
|
|
14923
|
0 |
0 |
if ($is_if_unless_elsif{$block_type})
|
|
14970
|
0 |
0 |
if ($is_my_state_our{$token}) { }
|
|
|
0 |
0 |
elsif ($is_if_unless_while_until_for_foreach{$token}) { }
|
|
|
0 |
0 |
elsif ($token eq 'sub') { }
|
|
14977
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
14985
|
0 |
0 |
if (defined $K_last_code)
|
|
14991
|
0 |
0 |
if ($last_type eq "\\")
|
|
15002
|
0 |
0 |
if ($seqno_brace)
|
|
15011
|
0 |
0 |
if ($K_end_iterator and $K_end_iterator > $K_end_my)
|
|
15040
|
0 |
0 |
if ($KK <= $K_end_my) { }
|
|
|
0 |
0 |
elsif ($check_unused or $check_constant) { }
|
|
15053
|
0 |
0 |
if ($token =~ /^(\W+)?(\w.*)$/)
|
|
15054
|
0 |
0 |
if $1
|
|
15057
|
0 |
0 |
if ($check_constant and $word)
|
|
15060
|
0 |
0 |
if (not $sigil_string or $sigil_string eq '&') { }
|
|
|
0 |
0 |
elsif ($sigil_string eq '@' and index($word, 'EXPORT') != -1) { }
|
|
15072
|
0 |
0 |
if ($pos >= 0)
|
|
15076
|
0 |
0 |
if ($name eq "EXPORT" or $name eq "EXPORT_OK")
|
|
15084
|
0 |
0 |
if ($sigil_string)
|
|
15086
|
0 |
0 |
unless ($is_valid_sigil{$sigil})
|
|
15093
|
0 |
0 |
if ($check_unused and $sigil_string and $word and $word =~ /\w+/)
|
|
15101
|
0 |
0 |
if (defined $Kn)
|
|
15103
|
0 |
0 |
if ($next_type eq "[" or $next_type eq "L")
|
|
15123
|
0 |
0 |
if ($token =~ /^method (\$.+)/)
|
|
15137
|
0 |
0 |
unless ($package)
|
|
15139
|
0 |
0 |
if ($package ne $current_package)
|
|
15146
|
0 |
0 |
if ($check_cross_package and @{$rblock_stack;} == 1)
|
|
15148
|
0 |
0 |
unless (defined $rpackage_warnings)
|
|
15157
|
0 |
0 |
if ($pkg ne $package)
|
|
15184
|
0 |
0 |
if ($check_unused)
|
|
15192
|
0 |
0 |
if (is_interpolated_here_doc($token))
|
|
15205
|
0 |
0 |
if ($KK == $Kfirst and $line_of_tokens->{'_starting_in_quote'}) { }
|
|
15212
|
0 |
0 |
if ($K_last_code and $is_re_match_op{$rLL->[$K_last_code][6]}) { }
|
|
|
0 |
0 |
elsif ($token =~ /^(qw | q[^qrx] | tr | [y\'] )/x) { }
|
|
15229
|
0 |
0 |
if ($interpolated)
|
|
15233
|
0 |
0 |
if ($KK == $Klast and $line_of_tokens->{'_ending_in_quote'}) { }
|
|
15241
|
0 |
0 |
if ($token eq "vars")
|
|
15243
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq "use" and $rLL->[$Kp][6] eq "k")
|
|
15250
|
0 |
0 |
if ($check_constant)
|
|
15251
|
0 |
0 |
if ($token eq 'constant') { }
|
|
15253
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq 'use' and $rLL->[$Kp][6] eq 'k') { }
|
|
15269
|
0 |
0 |
if ($check_constant)
|
|
15274
|
0 |
0 |
if ($check_constant)
|
|
15295
|
0 |
0 |
if ($more_u_checks or $more_c_checks)
|
|
15298
|
0 |
0 |
unless ($self->is_complete_script)
|
|
15304
|
0 |
0 |
if (@{$rblock_stack;} != 1) { }
|
|
15310
|
0 |
0 |
if ($check_unused)
|
|
15318
|
0 |
0 |
if ($check_constant)
|
|
15323
|
0 |
0 |
unless defined $rhash
|
|
15326
|
0 |
0 |
if $entry->{'count'}
|
|
15343
|
0 |
0 |
if (@warnings_c)
|
|
15349
|
0 |
0 |
unless $rKlist
|
|
15362
|
0 |
0 |
if $rhash and $rhash->{$name}
|
|
15373
|
0 |
0 |
unless $sub_count_by_package{$key}
|
|
15379
|
0 |
0 |
if (@p_warnings)
|
|
15388
|
0 |
0 |
if $seen{$key}++
|
|
15393
|
0 |
0 |
if (@warnings)
|
|
15404
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->{'K'} <=> $Perl::Tidy::Formatter::b->{'K'}
|
|
15411
|
0 |
0 |
unless $_->{'keyword'} ne "our" and $_->{'keyword'} ne "use vars"
|
|
15423
|
0 |
0 |
unless $rlines and @{$rlines;}
|
|
15439
|
0 |
0 |
if ($note)
|
|
15475
|
0 |
2628 |
unless ($rall_opts and @{$rall_opts;})
|
|
15481
|
2628 |
0 |
unless (defined $user_option_string)
|
|
15482
|
1314 |
1314 |
unless $user_option_string
|
|
15491
|
0 |
1314 |
unless @opts
|
|
15494
|
1314 |
0 |
if (@opts == 1)
|
|
15499
|
0 |
1314 |
if (length $opt > 1) { }
|
|
|
1314 |
0 |
elsif ($opt eq '*' or $opt eq '1') { }
|
|
|
0 |
0 |
elsif ($opt eq '0') { }
|
|
15516
|
5913 |
0 |
if ($is_valid_option{$opt})
|
|
15522
|
0 |
0 |
if ($opt =~ /^[01\*]$/) { }
|
|
15530
|
0 |
1314 |
if ($msg)
|
|
15543
|
0 |
2628 |
if ($excluded_names)
|
|
15548
|
0 |
0 |
if ($name =~ /^([\$\@\%\*])?(\w+)?(\*)?$/) { }
|
|
15552
|
0 |
0 |
if (defined $left_star)
|
|
15553
|
0 |
0 |
if ($left_star ne "*")
|
|
15554
|
0 |
0 |
if (defined $key) { }
|
|
15562
|
0 |
0 |
if ($right_star)
|
|
15574
|
0 |
0 |
if $left_star
|
|
15575
|
0 |
0 |
if $right_star
|
|
15576
|
0 |
0 |
if (not defined $key) { }
|
|
15587
|
0 |
0 |
if ($err_msg)
|
|
15613
|
0 |
0 |
if $len_name < $len_key
|
|
15616
|
0 |
0 |
if ($code == 2) { }
|
|
|
0 |
0 |
elsif ($code == 3) { }
|
|
|
0 |
0 |
elsif ($code == 4) { }
|
|
15617
|
0 |
0 |
if (substr($name, -$len_key, $len_key) eq $key)
|
|
15622
|
0 |
0 |
if (substr($name, 0, $len_key) eq $key)
|
|
15627
|
0 |
0 |
if (index($name, $key, 0) != -1)
|
|
15665
|
0 |
657 |
if ($rOpts->{$opt_name})
|
|
15683
|
0 |
0 |
if (@{$rwarnings;} and $rexcluded_name_hash)
|
|
15693
|
0 |
0 |
if ($code != 1)
|
|
15698
|
0 |
0 |
if (@excluded_wildcards)
|
|
15702
|
0 |
0 |
if (wildcard_match($name, \@excluded_wildcards))
|
|
15720
|
0 |
0 |
unless %{$rwarn_variable_types;}
|
|
15724
|
0 |
0 |
unless $rwarnings and @{$rwarnings;}
|
|
15737
|
0 |
0 |
if ($note)
|
|
15741
|
0 |
0 |
if ($message_middle)
|
|
15786
|
0 |
0 |
if ($rwarn_label_types->{'c'} and $label ne uc $label)
|
|
15788
|
0 |
0 |
if ($num > 1)
|
|
15799
|
0 |
0 |
if ($rwarn_label_types->{'r'} and $num > 1)
|
|
15811
|
0 |
0 |
if ($rwarn_label_types->{'u'} and not defined $rline_numbers_of_target_labels->{$label} and $is_complete_script)
|
|
15827
|
0 |
0 |
if ($rwarn_label_types->{'m'} and $is_complete_script)
|
|
15831
|
0 |
0 |
unless (defined $rline_numbers_of_statement_labels->{$label})
|
|
15846
|
0 |
0 |
if (@warnings)
|
|
15851
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->{'line_number'} <=> $Perl::Tidy::Formatter::b->{'line_number'}
|
|
15863
|
0 |
0 |
unless $rOpts->{$opt_name}
|
|
15886
|
0 |
0 |
if ($label_count > 1)
|
|
15887
|
0 |
0 |
if ($label ne uc $label)
|
|
15900
|
0 |
0 |
if (defined $all_labels{$label}) { }
|
|
15906
|
0 |
0 |
if ($label ne uc $label)
|
|
15917
|
0 |
0 |
unless ($all_labels{$label}{'call_count'})
|
|
15921
|
0 |
0 |
unless %all_labels
|
|
15943
|
0 |
0 |
if (@{$rissues;}) { }
|
|
15963
|
0 |
0 |
unless %{$rwarn_label_types;}
|
|
15969
|
0 |
0 |
unless $rwarnings and @{$rwarnings;}
|
|
15976
|
0 |
0 |
unless defined $ris_warn_label_excluded_name->{$_}
|
|
15992
|
0 |
0 |
if ($message_middle)
|
|
16027
|
0 |
0 |
unless $seqno_paren
|
|
16029
|
0 |
0 |
unless $K_closing_paren
|
|
16031
|
0 |
0 |
unless $K_opening_brace
|
|
16037
|
0 |
0 |
unless $seqno_block and $rLL->[$K_opening_brace][4] eq "{" and $self->[8]{$seqno_block}
|
|
16063
|
0 |
0 |
if $type_next eq "b"
|
|
16069
|
0 |
0 |
if ($rOpts_qw_as_function)
|
|
16073
|
0 |
0 |
if ($type eq "Q")
|
|
16075
|
0 |
0 |
if ($seqno_p and $ris_qwaf_by_seqno->{$seqno_p})
|
|
16081
|
0 |
0 |
if ($type eq "U" and $token eq "qw")
|
|
16087
|
0 |
0 |
if ($type eq "q")
|
|
16090
|
0 |
0 |
if ($type_last eq "A")
|
|
16091
|
0 |
0 |
if (substr($token, 0, 2) ne "qw")
|
|
16097
|
0 |
0 |
if ($type eq "Q")
|
|
16103
|
0 |
0 |
if ($Q2{$ch2}) { }
|
|
|
0 |
0 |
elsif ($Q1{$ch1}) { }
|
|
16109
|
0 |
0 |
if ($include_all_keywords and $type eq 'k') { }
|
|
|
0 |
0 |
elsif (%{$rkeyword_list;}) { }
|
|
16115
|
0 |
0 |
unless $is_kwU{$type}
|
|
16116
|
0 |
0 |
if (not $rkeyword_list->{$token}) { }
|
|
16119
|
0 |
0 |
if $type ne "U"
|
|
16121
|
0 |
0 |
if $pos <= 0
|
|
16123
|
0 |
0 |
unless $rkeyword_list->{$word}
|
|
16126
|
0 |
0 |
if ($type eq "w")
|
|
16128
|
0 |
0 |
if $Kn and $rLL->[$Kn][6] eq "=>"
|
|
16134
|
0 |
0 |
if (not defined $call_counts{$token}) { }
|
|
16168
|
0 |
0 |
unless $rOpts->{$opt_name}
|
|
16176
|
0 |
0 |
if ($word_list)
|
|
16178
|
0 |
0 |
if (my(@q) = split_words($word_list))
|
|
16196
|
0 |
0 |
unless @{$rline_order;}
|
|
16228
|
657 |
0 |
unless $rOpts->{$opt_name}
|
|
16230
|
0 |
0 |
if ($word_list)
|
|
16232
|
0 |
0 |
if (my(@q) = split_words($word_list))
|
|
16253
|
0 |
0 |
unless $rOpts->{$opt_name}
|
|
16261
|
0 |
0 |
unless @{$rline_order;}
|
|
16298
|
0 |
0 |
unless $rOpts->{$opt_name}
|
|
16316
|
0 |
0 |
unless $is_kwU{$rLL->[$KK][6]}
|
|
16320
|
0 |
0 |
if ($type eq "k" and $skip_keywords{$token})
|
|
16323
|
0 |
0 |
unless defined $Kn
|
|
16326
|
0 |
0 |
if ($token_Kn eq '=>') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '->') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '(') { }
|
|
16332
|
0 |
0 |
if ($have_paren and $is_if_unless_while_until_for_foreach{$token})
|
|
16336
|
0 |
0 |
if $self->block_seqno_of_paren_seqno($seqno)
|
|
16342
|
0 |
0 |
defined $Kc_n ? :
|
|
16343
|
0 |
0 |
unless $is_brace_or_semicolon{$token_n}
|
|
16346
|
0 |
0 |
unless (defined $call_counts{$token})
|
|
16354
|
0 |
0 |
unless $no_count and $yes_count
|
|
16364
|
0 |
0 |
unless @mixed_counts
|
|
16371
|
0 |
0 |
unless lc $Perl::Tidy::Formatter::a->{'type'} cmp lc $Perl::Tidy::Formatter::b->{'type'}
|
|
16400
|
1314 |
0 |
unless defined $opt
|
|
16404
|
0 |
0 |
if (my(@q) = split_words($opt))
|
|
16408
|
0 |
0 |
if (not $word =~ /^(?:\&|\w+)$/ or $word =~ /^\d/)
|
|
16411
|
0 |
0 |
if ($iter and defined $call_paren_style{$word})
|
|
16433
|
0 |
0 |
unless %call_paren_style
|
|
16446
|
0 |
0 |
unless $is_kwU{$rLL->[$KK][6]}
|
|
16454
|
0 |
0 |
unless (defined $want_paren)
|
|
16457
|
0 |
0 |
$type eq 'U' ? :
|
|
|
0 |
0 |
$type eq 'k' ? :
|
|
16460
|
0 |
0 |
unless defined $want_paren
|
|
16464
|
0 |
0 |
unless defined $Kn
|
|
16467
|
0 |
0 |
if ($token_Kn eq '=>') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '->') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '(') { }
|
|
16469
|
0 |
0 |
if $want_paren
|
|
16470
|
0 |
0 |
unless $want_paren
|
|
16473
|
0 |
0 |
if ($token_Kn eq "(" and $is_if_unless_while_until_for_foreach{$token})
|
|
16477
|
0 |
0 |
if $self->block_seqno_of_paren_seqno($seqno)
|
|
16481
|
0 |
0 |
$want_paren ? :
|
|
16495
|
0 |
0 |
if (@{$rwarnings;})
|
|
16507
|
0 |
0 |
if (length $token_next > 23)
|
|
16513
|
0 |
0 |
if ($ii >= 0)
|
|
16542
|
1 |
657 |
unless $rOpts->{'non-indenting-braces'}
|
|
16544
|
4 |
653 |
unless defined $rLL and @{$rLL;}
|
|
16553
|
0 |
422 |
if ($line_type ne "CODE")
|
|
16561
|
0 |
422 |
if (not defined $Kfirst or $rLL->[$Klast][6] ne "#")
|
|
16567
|
65 |
357 |
if $Klast <= $Kfirst
|
|
16571
|
351 |
6 |
if ($type_m eq "b" and $K_m > $Kfirst)
|
|
16576
|
132 |
225 |
if ($seqno_m)
|
|
16583
|
6 |
107 |
if ($block_type_m and $is_opening_type{$type_m} and $token_sc =~ /$non_indenting_brace_pattern/)
|
|
16605
|
655 |
1 |
unless $rOpts_add or $rOpts_del or $rOpts_warn_and_style
|
|
16651
|
0 |
3 |
unless defined $rLL and @{$rLL;}
|
|
16670
|
0 |
0 |
if ($num_lno <= $num_lim) { }
|
|
16676
|
0 |
0 |
$num_changes == 1 ? :
|
|
16677
|
0 |
0 |
$num_lno == 1 ? :
|
|
16688
|
0 |
3 |
unless (defined $complexity)
|
|
16701
|
15 |
183 |
if $type ne "L" and $type ne "["
|
|
16705
|
0 |
183 |
if $K_m < 0
|
|
16707
|
0 |
183 |
if ($type_m eq "b" and $K_m > 0)
|
|
16721
|
12 |
171 |
if ($type_m eq 'i' or $type_m eq 'Z') { }
|
|
|
63 |
108 |
elsif ($type_m eq ']' or $type_m eq 'R') { }
|
|
|
99 |
9 |
elsif ($type_m eq '->') { }
|
|
16724
|
12 |
0 |
if (substr($token_m, 0, 1) eq "\$")
|
|
16748
|
0 |
99 |
if $K_mm <= 0
|
|
16750
|
0 |
99 |
if ($type_mm eq "b" and $K_mm > 0)
|
|
16760
|
66 |
117 |
if $type_mm ne "]" and $type_mm ne "R"
|
|
16762
|
0 |
117 |
unless $seqno_mm
|
|
16772
|
6 |
111 |
unless $trailing_arrow_ok_by_seqno{$seqno_mm}
|
|
16776
|
37 |
74 |
if (%interbracket_arrow_style)
|
|
16778
|
0 |
37 |
unless $style
|
|
16780
|
17 |
20 |
if $style == -1 and $type_m ne "->" or $style == 1 and $type_m eq "->"
|
|
16784
|
17 |
23 |
if $type_m eq "->" and not $rOpts_del and not $rOpts_warn
|
|
16785
|
20 |
34 |
if $type_m ne "->" and not $rOpts_add and not $rOpts_warn
|
|
16789
|
0 |
57 |
if (not $complexity) { }
|
|
|
37 |
20 |
elsif ($complexity == 1) { }
|
|
16792
|
0 |
0 |
unless defined $Ko_mm
|
|
16794
|
0 |
0 |
if $rLL->[$KK][6] eq "b"
|
|
16796
|
0 |
0 |
if $count > 1
|
|
16798
|
0 |
0 |
if $count > 1
|
|
16804
|
6 |
31 |
if ($seqno_mm ne $seqno - 1)
|
|
16814
|
20 |
31 |
if ($type_m eq '->') { }
|
|
16815
|
20 |
0 |
if ($rOpts_del)
|
|
16818
|
20 |
0 |
if ($rOpts_del or $rOpts_warn_and_style)
|
|
16821
|
31 |
0 |
if ($rOpts_add)
|
|
16824
|
31 |
0 |
if ($rOpts_add or $rOpts_warn_and_style)
|
|
16828
|
0 |
3 |
if ($rOpts_warn)
|
|
16830
|
0 |
0 |
$rOpts_add ? :
|
|
|
0 |
0 |
if @lno_add
|
|
16832
|
0 |
0 |
$rOpts_del ? :
|
|
|
0 |
0 |
if @lno_del
|
|
16857
|
0 |
43 |
if $rseqno_non_indenting_brace_by_ix->{$ix}
|
|
16863
|
0 |
43 |
if ($line_type ne "CODE")
|
|
16879
|
0 |
43 |
if (not defined $Kfirst or $rLL->[$Klast][6] ne "#" or $Klast <= $Kfirst and $CODE_type ne "HSC")
|
|
16895
|
1 |
42 |
if $CODE_type and not $is_deletable_CODE_type{$CODE_type}
|
|
16901
|
2 |
37 |
if not $rOpts_ignore_perlcritic_comments and length $token > 10 and substr($token, 1, 1) eq "#" and $token =~ /^##\s*no\s+critic\b/
|
|
16909
|
36 |
4 |
if ($rOpts_delete_side_comments)
|
|
16910
|
1 |
35 |
defined $delete_side_comment_exception_pattern && $token =~ /$delete_side_comment_exception_pattern/ ? :
|
|
16916
|
4 |
0 |
if ($rOpts_delete_closing_side_comments and not $delete_side_comment and $Klast > $Kfirst)
|
|
16922
|
4 |
0 |
if ($type_m eq "b" and $K_m > $Kfirst)
|
|
16926
|
1 |
0 |
if (not $seqno_m and $K_m and $rLL->[$K_m][6] eq ";")
|
|
16929
|
0 |
1 |
if ($type_m eq "b" and $K_m > $Kfirst)
|
|
16930
|
0 |
1 |
if ($K_m == $Kfirst)
|
|
16935
|
3 |
1 |
if ($seqno_m)
|
|
16937
|
3 |
0 |
if ($block_type_m and $token =~ /$closing_side_comment_prefix_pattern/ and $block_type_m =~ /$closing_side_comment_list_pattern/ and not $block_type_m =~ /$closing_side_comment_exclusion_pattern/)
|
|
16948
|
2 |
38 |
unless $delete_side_comment
|
|
16960
|
2 |
36 |
if ($CODE_type eq "IO")
|
|
16970
|
9 |
29 |
if ($CODE_type eq "HSC")
|
|
17257
|
3 |
655 |
if ($rOpts->{'indent-only'})
|
|
17267
|
0 |
122 |
$length_function ? :
|
|
17313
|
260 |
8874 |
if ($line_type ne "CODE")
|
|
17317
|
37 |
223 |
if ($line_type eq "HERE_END")
|
|
17319
|
25 |
12 |
if (defined $seqno)
|
|
17320
|
5 |
20 |
unless ($ris_permanently_broken->{$seqno})
|
|
17327
|
30 |
230 |
if ($is_special_line_type{$line_type})
|
|
17335
|
1053 |
7821 |
if ($CODE_type eq "BL")
|
|
17337
|
175 |
878 |
if (defined $seqno)
|
|
17339
|
75 |
100 |
if (not $ris_permanently_broken->{$seqno} and $rOpts_maximum_consecutive_blank_lines)
|
|
17351
|
1050 |
7824 |
unless defined $Kfirst
|
|
17365
|
7173 |
651 |
if (defined $last_K_out) { }
|
|
17366
|
0 |
7173 |
if ($Kfirst != $last_K_out + 1)
|
|
17381
|
0 |
651 |
if ($Kfirst != 0 and $last_line_type ne "FS")
|
|
17388
|
992 |
68 |
if ($CODE_type and $CODE_type ne "NIN" and $CODE_type ne "VER")
|
|
17416
|
506 |
6326 |
if ($type_end eq '#' || $type_end eq 'b' and $Klast_old_code > $Kfirst_old)
|
|
17420
|
352 |
154 |
if ($rLL->[$Klast_old_code][6] eq "b" and $Klast_old_code > $Kfirst_old)
|
|
17432
|
6420 |
412 |
if ($last_line_type eq "CODE")
|
|
17433
|
151 |
6269 |
if (is_essential_whitespace($last_last_nonblank_code_token, $last_last_nonblank_code_type, $last_nonblank_code_token, $last_nonblank_code_type, $rLL->[$Kfirst][4], $rLL->[$Kfirst][6]))
|
|
17455
|
186 |
6646 |
if ($line_of_tokens->{'_ending_in_quote'})
|
|
17457
|
118 |
68 |
if (defined $seqno)
|
|
17471
|
651 |
4 |
if (@{$rLL_new;})
|
|
17480
|
0 |
655 |
if @wucc_error_list
|
|
17520
|
17842 |
41506 |
if ($type eq "b")
|
|
17526
|
175 |
17667 |
if $KK >= $Klast
|
|
17529
|
21 |
17646 |
if ($rOpts_freeze_whitespace)
|
|
17535
|
787 |
16859 |
if ($ws == -1 or $rOpts_delete_old_whitespace)
|
|
17552
|
666 |
121 |
unless $do_not_delete
|
|
17562
|
10992 |
30514 |
if ($type_sequence) { }
|
|
|
8142 |
22372 |
elsif ($is_wit{$type}) { }
|
|
|
3272 |
19100 |
elsif ($type eq 'k') { }
|
|
|
2868 |
16232 |
elsif ($type eq ';') { }
|
|
|
1195 |
15037 |
elsif ($type eq '->') { }
|
|
|
3584 |
11453 |
elsif ($type eq ',') { }
|
|
|
2869 |
8584 |
elsif ($type eq 'Q') { }
|
|
|
2438 |
6146 |
elsif ($type eq 'n') { }
|
|
|
1094 |
5052 |
elsif ($type eq '=>') { }
|
|
|
314 |
4738 |
elsif ($type eq 'q') { }
|
|
|
35 |
4703 |
elsif ($type eq 'h') { }
|
|
|
186 |
4517 |
elsif ($type eq 'S') { }
|
|
|
49 |
4468 |
elsif ($type eq 'P') { }
|
|
|
79 |
4389 |
elsif ($type eq 'J') { }
|
|
|
19 |
4370 |
elsif ($type eq 'j') { }
|
|
17565
|
5304 |
5688 |
if ($is_closing_token{$token}) { }
|
|
17572
|
1149 |
4155 |
if ($block_type) { }
|
|
17575
|
615 |
534 |
if ($last_nonblank_code_type ne ";")
|
|
17585
|
8 |
607 |
unless ($rOpts_add_semicolons)
|
|
17595
|
610 |
5 |
if $add_phantom
|
|
17598
|
356 |
793 |
if ($ris_sub_block->{$type_sequence} or $ris_asub_block->{$type_sequence})
|
|
17614
|
2 |
0 |
if (%break_at_old_comma_types and $break_at_old_comma_types{$token} and $rtype_count and $rtype_count->{','} || $rtype_count->{'=>'} and not $rtype_count->{';'} and not $rtype_count->{'f'})
|
|
17623
|
2 |
0 |
if ($paren_flag and $token eq ")")
|
|
17628
|
1 |
1 |
if ($match)
|
|
17635
|
4135 |
17 |
unless ($rtype_count and $rtype_count->{';'} || $rtype_count->{'f'})
|
|
17640
|
3773 |
362 |
if ($last_nonblank_code_type ne ',') { }
|
|
17643
|
47 |
0 |
if ($rOpts_add_trailing_commas and %trailing_comma_rules and $rtype_count && ($rtype_count->{','} || $rtype_count->{'=>'}) || $rOpts_add_lone_trailing_commas && $is_closing_type{$last_nonblank_code_type} and $last_nonblank_code_type ne "=>")
|
|
17669
|
47 |
0 |
if ($rule and $rule->{$token})
|
|
17681
|
63 |
1 |
if ($rOpts_delete_trailing_commas and %trailing_comma_rules and $rtype_count and $rtype_count->{','} and $rOpts_delete_lone_trailing_commas || $rtype_count->{','} > 1 || $rtype_count->{'=>'} and $last_nonblank_code_token)
|
|
17695
|
63 |
0 |
if ($rule and $rule->{$token})
|
|
17703
|
1 |
0 |
if (not $deleted and $rOpts_delete_weld_interfering_commas and $is_closing_type{$last_last_nonblank_code_type})
|
|
17717
|
51 |
5637 |
if ($rwant_arrow_before_seqno->{$type_sequence})
|
|
17720
|
31 |
20 |
if ($rwant_arrow_before_seqno->{$type_sequence} > 0) { }
|
|
17730
|
2434 |
3254 |
if ($token eq '(') { }
|
|
|
167 |
3087 |
elsif ($ris_sub_block->{$type_sequence}) { }
|
|
|
189 |
2898 |
elsif ($ris_asub_block->{$type_sequence}) { }
|
|
|
57 |
2841 |
elsif ($token eq '[' and $last_nonblank_code_token eq '$_' and $current_sub_seqno) { }
|
|
17731
|
637 |
1459 |
if ($last_nonblank_code_type eq "U" or $last_nonblank_code_type eq "w" or $last_nonblank_code_type eq "i" and $last_last_nonblank_code_type eq "->" or $last_nonblank_code_type eq "i" and substr($last_nonblank_code_token, 0, 1) eq "&")
|
|
17756
|
9 |
158 |
if ($last_S_is_method)
|
|
17760
|
0 |
167 |
if ($K_last_S_is_my)
|
|
17767
|
2 |
187 |
if ($last_S_is_method)
|
|
17798
|
5 |
8137 |
if (index($token, " ") > 0 or index($token, "\t") > 0)
|
|
17804
|
5 |
0 |
if ($ord > 0 and $ord < 33 || $ord > 126)
|
|
17814
|
5 |
0 |
if ($is_sigil{$sigil})
|
|
17816
|
5 |
0 |
if defined $word
|
|
17830
|
0 |
5 |
if ($ord_ch > 0 and $ord_ch < 33 || $ord_ch > 126)
|
|
17841
|
6337 |
1805 |
if ($type eq 'i') { }
|
|
|
1695 |
110 |
elsif ($type eq 'w') { }
|
|
17842
|
48 |
6289 |
if ($token eq "\@_" and $current_sub_seqno)
|
|
17852
|
73 |
6264 |
if ($token eq "\$self" and $current_sub_seqno)
|
|
17858
|
0 |
0 |
if ($last_nonblank_code_token eq "bless" and $last_nonblank_code_type eq "k" or $last_last_nonblank_code_token eq "bless" and $last_last_nonblank_code_type eq "k" and $last_nonblank_code_token eq 'my' || $last_nonblank_code_token eq '(')
|
|
17879
|
137 |
1558 |
if ($last_nonblank_code_token eq "use" and $last_nonblank_code_type eq "k")
|
|
17882
|
13 |
124 |
if ($token eq "strict")
|
|
17887
|
1 |
1694 |
if ($token eq "gather" or $token eq "List::Gather::gather")
|
|
17899
|
155 |
3117 |
if ($token eq "return")
|
|
17907
|
0 |
3272 |
if ($token eq "wantarray")
|
|
17916
|
0 |
383 |
if ($is_if_unless_while_until_for_foreach{$token} and $rOpts_warn_unexpected_code_container and $non_block_container_stack{$depth_next - 1})
|
|
17928
|
0 |
2868 |
if ($rOpts_warn_unexpected_code_container and $non_block_container_stack{$depth_next - 1})
|
|
17937
|
9 |
2819 |
if ($rOpts->{'delete-semicolons'} and $last_nonblank_block_type && $last_nonblank_code_type eq '}' && ($is_block_without_semicolon{$last_nonblank_block_type} || $last_nonblank_block_type =~ /$SUB_PATTERN/ || $last_nonblank_block_type =~ /^\w+:$/) || $last_nonblank_code_type eq ';')
|
|
17969
|
15 |
2 |
if ($KK < $Klast) { }
|
|
17971
|
14 |
1 |
if (defined $Kn and $Kn <= $Klast)
|
|
17985
|
14 |
3 |
if ($ok_to_delete) { }
|
|
17996
|
71 |
1124 |
if ($last_nonblank_code_token eq ")")
|
|
18001
|
71 |
0 |
if ($seqno_paren)
|
|
18007
|
7 |
3577 |
if ($last_nonblank_code_type eq ',' and $rOpts->{'delete-repeated-commas'}) { }
|
|
|
0 |
3577 |
elsif ($last_nonblank_code_type eq '=>' and $rOpts->{'delete-repeated-commas'}) { }
|
|
18015
|
4 |
3 |
if ($KK eq $Kfirst and $rLL->[$Klast][6] eq '#') { }
|
|
18036
|
327 |
3254 |
if (%trailing_comma_rules)
|
|
18038
|
96 |
231 |
if (defined $seqno and not defined $self->[26]{$seqno})
|
|
18050
|
1 |
2868 |
if $self->[79]
|
|
18058
|
0 |
2438 |
if (substr($token, 0, 1) eq "x" and $token =~ /^x\d+/)
|
|
18070
|
0 |
0 |
if ($last_nonblank_code_type eq "=>" and $rOpts->{'delete-repeated-commas'})
|
|
18081
|
0 |
0 |
if ($KK eq $Kfirst and $rLL->[$Klast][6] eq '#') { }
|
|
18093
|
127 |
967 |
if (%trailing_comma_rules)
|
|
18095
|
63 |
64 |
if (defined $seqno and not defined $self->[26]{$seqno})
|
|
18114
|
0 |
314 |
if ($self->[79] and $token =~ /\t/)
|
|
18117
|
85 |
210 |
if ($rwhitespace_flags->[$KK] == 1 and @{$rLL_new;} and $rLL_new->[-1][6] ne "b" and $rOpts_add_whitespace)
|
|
18131
|
1 |
34 |
if (index($token, " ") > 0 or index($token, "\t") > 0)
|
|
18132
|
0 |
1 |
if ($token =~ /^ (\<\<\~?) \s+ ([^\d].*) $/x)
|
|
18139
|
14 |
21 |
if (substr($token, 0, 3) eq "<<~")
|
|
18155
|
184 |
2 |
if (substr($token, 0, 1) ne "(")
|
|
18176
|
176 |
10 |
if (not defined $rOpts_space_prototype_paren or $rOpts_space_prototype_paren == 1) { }
|
|
|
5 |
5 |
elsif ($rOpts_space_prototype_paren == 0) { }
|
|
|
5 |
0 |
elsif ($rOpts_space_prototype_paren == 2) { }
|
|
18210
|
49 |
0 |
if ($token =~ s/\s+/ /g)
|
|
18237
|
8418 |
17205 |
if ($rwhitespace_flags->[$KK] == 1 and @{$rLL_new;} and $rLL_new->[-1][6] ne "b" and $rOpts_add_whitespace)
|
|
18261
|
4 |
651 |
unless @{$rLL_new;}
|
|
18305
|
0 |
5335 |
unless defined $K_opening
|
|
18309
|
0 |
5335 |
unless defined $K_closing
|
|
18319
|
2235 |
3100 |
if ($rtype_count)
|
|
18325
|
766 |
1469 |
if ($rtype_count->{';'}) { }
|
|
|
17 |
1452 |
elsif ($rtype_count->{'f'}) { }
|
|
|
1438 |
14 |
elsif ($rtype_count->{','} or $rtype_count->{'=>'}) { }
|
|
18330
|
0 |
766 |
if ($token_opening eq "(" or $token_opening eq "[")
|
|
18351
|
857 |
581 |
if ($token_opening eq "(")
|
|
18353
|
856 |
1 |
if (defined $Kp)
|
|
18359
|
161 |
695 |
$type_p eq 'k' ? :
|
|
18375
|
20 |
5315 |
if ($block_type and substr($block_type, -1, 1) eq " ")
|
|
18383
|
20 |
0 |
if (defined $Knn1)
|
|
18386
|
20 |
0 |
defined $Knn1 ? :
|
|
18387
|
20 |
0 |
defined $Knn2 ? :
|
|
18390
|
6 |
3 |
if ($wU{$type_nn1} and $wiq{$type_nn2})
|
|
18395
|
1 |
19 |
if ($is_list)
|
|
18403
|
1416 |
3919 |
if ($is_list and not $block_type) { }
|
|
|
43 |
3876 |
elsif ($block_type and $rOpts_line_up_parentheses) { }
|
|
18413
|
734 |
640 |
if (not $rhas_list->{$seqno_parent} or $rhas_list->{$seqno_parent} > $depth)
|
|
18419
|
408 |
966 |
if ($line_diff)
|
|
18430
|
183 |
174 |
if ($rlec_count_by_seqno->{$seqno} and $rlec_count_by_seqno->{$seqno} > 1 || $rtype_count_by_seqno->{$seqno}{'=>'})
|
|
18468
|
0 |
651 |
if ($rOpts_comma_arrow_breakpoints == 3)
|
|
18472
|
0 |
0 |
unless $rtype_count and $rtype_count->{'=>'}
|
|
18475
|
0 |
0 |
unless (defined $roverride_cab3->{$seqno})
|
|
18476
|
0 |
0 |
if ($rhas_list->{$seqno}) { }
|
|
18483
|
0 |
0 |
if (defined $seqno_parent and $ris_list_by_seqno->{$seqno_parent})
|
|
18508
|
0 |
71 |
unless defined $K_test
|
|
18512
|
4 |
67 |
if ($tok eq "[" or $tok eq "{")
|
|
18515
|
24 |
43 |
$in_chain_seqno ? :
|
|
18522
|
24 |
43 |
if (@seqno_paren_arrow and defined $K_test and $rLL_new->[$K_test][4] eq '(' and $rLL_new->[$K_test][7] eq $seqno_paren_arrow[0]) { }
|
|
18535
|
31 |
36 |
if (@{$rarrow_call_chain->{$seqno_start};} < 2)
|
|
18542
|
1 |
0 |
if (%break_at_old_comma_types and $break_at_old_comma_types{';'})
|
|
18547
|
0 |
0 |
unless $rtype_count
|
|
18548
|
0 |
0 |
unless $rtype_count->{','} or $rtype_count->{'=>'}
|
|
18591
|
0 |
60408 |
$length_function && !$is_ascii_type{$type} && $token =~ /[[:^ascii:][:^print:]]/ ? :
|
|
18597
|
17388 |
43020 |
if ($type eq 'b') { }
|
|
|
1212 |
41808 |
elsif ($type eq '#') { }
|
|
18602
|
9 |
17379 |
if (@{$rLL_new;} and $rLL_new->[-1][6] eq "b")
|
|
18612
|
21 |
1191 |
if ($ord > 0 and $ord < 33 || $ord > 126 and $token =~ s/\s+$//)
|
|
18619
|
0 |
21 |
$length_function ? :
|
|
18627
|
10 |
953 |
if (not $ignore_sc_length || $rOpts_ignore_perlcritic_comments and $token_length > 10 and substr($token, 1, 1) eq "#" and $token =~ /^##\s*no\s+critic\b/)
|
|
18635
|
5 |
5 |
if ($Klast_old > $Kfirst_old) { }
|
|
18658
|
19 |
28 |
if ($ignore_sc_length and !$CODE_type || $CODE_type eq 'HSC')
|
|
18663
|
337 |
875 |
if (defined $seqno)
|
|
18664
|
105 |
232 |
if $CODE_type eq "BC"
|
|
18666
|
129 |
208 |
unless ($ris_permanently_broken->{$seqno})
|
|
18680
|
11056 |
30752 |
if ($type_sequence)
|
|
18688
|
5335 |
5721 |
if ($is_opening_token{$token}) { }
|
|
|
5335 |
386 |
elsif ($is_closing_token{$token}) { }
|
|
18696
|
5 |
213 |
if ($last_nonblank_code_type eq "," and $Ktoken_vars == $Klast_old_code and $Ktoken_vars > $Kfirst_old)
|
|
18703
|
437 |
4898 |
if ($last_nonblank_code_type eq "=" or $last_nonblank_code_type eq "=>")
|
|
18711
|
2330 |
3005 |
unless defined $seqno_parent
|
|
18725
|
162 |
763 |
$is_comma_fat_comma_equals{$last_nonblank_code_type} ? :
|
|
|
3261 |
925 |
$token ne '{' ? :
|
|
|
1149 |
4186 |
$block_type ? :
|
|
18731
|
1451 |
3884 |
if ($depth_next > $depth_next_max)
|
|
18741
|
402 |
4933 |
if ($last_nonblank_code_type eq "," or $last_nonblank_code_type eq "=>")
|
|
18747
|
205 |
5 |
if ($Ktoken_vars == $Kfirst_old and $last_nonblank_code_type eq "," and $rlec_count_by_seqno->{$type_sequence})
|
|
18756
|
21 |
381 |
if ($last_nonblank_code_type eq "," and $trailing_comma_break_rules{$token} and length $last_nonblank_code_token)
|
|
18764
|
0 |
21 |
if ($letter eq 'b') { }
|
|
|
0 |
21 |
elsif ($letter eq 'm') { }
|
|
|
21 |
0 |
elsif ($letter eq '1' or $letter eq '*') { }
|
|
18782
|
0 |
21 |
if ($match and $paren_flag and $token eq ")")
|
|
18788
|
21 |
0 |
if ($match)
|
|
18801
|
220 |
166 |
unless defined $seqno_parent
|
|
18805
|
193 |
193 |
if ($token eq '?') { }
|
|
|
193 |
0 |
elsif ($token eq ':') { }
|
|
18841
|
7828 |
33980 |
if ($is_counted_type{$type})
|
|
18843
|
5807 |
2021 |
if (defined $seqno)
|
|
18847
|
1144 |
4663 |
if ($type eq "," and $Ktoken_vars == $Klast_old_code)
|
|
18881
|
0 |
8654 |
unless (@{$rLL_new;})
|
|
18890
|
0 |
8654 |
if ($item_last->[6] eq "b")
|
|
18929
|
11 |
49 |
if ($top_is_space and $want_left_space{$type} == -1) { }
|
|
18947
|
11 |
0 |
if ($is_counted_type{$type})
|
|
18949
|
11 |
0 |
if ($seqno)
|
|
18970
|
0 |
49 |
if ($top_is_space) { }
|
|
18973
|
0 |
0 |
if ($new_top_ix < $old_top_ix)
|
|
18978
|
0 |
49 |
if ($want_left_space{$type} == 1)
|
|
19011
|
0 |
610 |
unless $type_sequence
|
|
19013
|
0 |
610 |
unless $block_type
|
|
19015
|
260 |
196 |
unless $ok_to_add_semicolon_for_block_type{$block_type} or $block_type =~ /^(sub|package)/ or $block_type =~ /^\w+\:$/
|
|
19021
|
0 |
350 |
unless defined $Kp
|
|
19036
|
0 |
193 |
if $type_p eq "#" or $type_sequence_p and $rblock_type_of_seqno->{$type_sequence_p} or $type_p eq "J" or $type_p eq "k" and $token_p =~ /format/
|
|
19057
|
39 |
5 |
if ($seqno_inner and $is_closing_token{$token_p} and defined $rchildren_of_seqno->{$type_sequence} and @{$rchildren_of_seqno->{$type_sequence};} == 1)
|
|
19070
|
39 |
0 |
if (defined $K_outer_opening)
|
|
19072
|
39 |
0 |
if (defined $K_nxt)
|
|
19078
|
8 |
31 |
if $seqno_nxt and $seqno_nxt == $seqno_inner
|
|
19089
|
142 |
43 |
if ($rLL_new->[$Ktop][6] eq 'b' and $want_left_space{';'} == -1) { }
|
|
19103
|
3 |
139 |
if ($rOpts_one_line_block_semicolons == 2)
|
|
19134
|
1 |
42 |
if ($rLL_new->[$Ktop][6] eq "b")
|
|
19137
|
0 |
1 |
if ($new_top_ix < $old_top_ix)
|
|
19174
|
80 |
0 |
unless (defined $delay)
|
|
19175
|
29 |
51 |
$if_add ? :
|
|
19178
|
12 |
68 |
unless $delay
|
|
19183
|
0 |
68 |
if ($it == 1 and $max_iterations > 1)
|
|
19222
|
0 |
47 |
unless defined $Kp
|
|
19224
|
0 |
47 |
if $type_p eq "#"
|
|
19226
|
0 |
47 |
unless $trailing_comma_add_rule
|
|
19246
|
5 |
24 |
if ($match and $rOpts_delete_trailing_commas and $KK > 0)
|
|
19250
|
3 |
2 |
if (not $stable_flag and $is_b_i_h{$trailing_comma_style})
|
|
19255
|
0 |
3 |
$length_function ? :
|
|
19259
|
3 |
0 |
$want_left_space{','} ? :
|
|
19263
|
0 |
3 |
if ($new_len > $max_len)
|
|
19270
|
29 |
18 |
if ($match and not $self->delay_trailing_comma_op(1, $stable_flag))
|
|
19303
|
0 |
63 |
unless defined $Kp
|
|
19304
|
0 |
63 |
if ($rLL_new->[$Kp][6] ne ",")
|
|
19313
|
0 |
63 |
if ($rLL_new->[$Kp][3] >= $high_stress_level)
|
|
19317
|
0 |
63 |
unless $trailing_comma_delete_rule
|
|
19335
|
0 |
51 |
unless ($match or $rOpts_add_whitespace)
|
|
19337
|
0 |
0 |
if (defined $Kn)
|
|
19339
|
0 |
0 |
if ($type_n ne ";" and $type_n ne "#")
|
|
19346
|
0 |
51 |
if (not $match and $rOpts_add_trailing_commas and $rLL->[$Kfirst][6] eq "R")
|
|
19353
|
0 |
0 |
if (defined $Kp_old and $Kp_old > $Kfirst and $rLL->[$Kp_old][6] eq ",")
|
|
19360
|
0 |
0 |
if (defined $Kpp_old and $Kpp_old eq $Kfirst)
|
|
19369
|
51 |
0 |
unless ($match or $self->delay_trailing_comma_op(0, $stable_flag))
|
|
19403
|
0 |
1 |
unless $type_sequence
|
|
19407
|
0 |
1 |
unless defined $Kp
|
|
19408
|
0 |
1 |
if ($rLL_new->[$Kp][6] ne ",")
|
|
19419
|
0 |
1 |
unless defined $rtype_count and $rtype_count->{','} and $rtype_count->{','} == 1
|
|
19423
|
0 |
1 |
unless defined $Kpp
|
|
19428
|
1 |
0 |
if ($seqno_pp and $is_closing_type{$type_pp})
|
|
19429
|
1 |
0 |
if ($seqno_pp == $type_sequence + 1 and $self->weld_opening_ok($seqno_pp, $type_sequence, $rLL_new))
|
|
19445
|
0 |
31 |
unless defined $Kp
|
|
19449
|
0 |
31 |
if ($type_p ne "R" and $type_p ne "]")
|
|
19455
|
0 |
31 |
if ($want_right_space{'->'} == 1)
|
|
19467
|
0 |
20 |
unless defined $Kp
|
|
19471
|
0 |
20 |
if ($type_p ne "->")
|
|
19502
|
0 |
72 |
if (@{$rLL_new;} < 3)
|
|
19507
|
52 |
20 |
unless (defined $want_space)
|
|
19514
|
29 |
43 |
if ($rLL_new->[-1][6] eq $type) { }
|
|
|
43 |
0 |
elsif ($rLL_new->[-1][6] eq 'b' and $rLL_new->[-2][6] eq $type) { }
|
|
19541
|
0 |
72 |
if ($rLL_new->[-1][6] eq 'b') { }
|
|
19544
|
0 |
0 |
if ($want_space == -1)
|
|
19551
|
0 |
72 |
if ($want_space == 1) { }
|
|
|
52 |
20 |
elsif (not $want_space) { }
|
|
19557
|
43 |
9 |
if (defined $rblank)
|
|
19580
|
0 |
0 |
unless defined $K_opening
|
|
19582
|
0 |
0 |
unless defined $Km
|
|
19587
|
0 |
0 |
if ($type_m eq "=")
|
|
19590
|
0 |
0 |
unless defined $Km
|
|
19595
|
0 |
0 |
if ($token_m eq "}")
|
|
19597
|
0 |
0 |
unless $seqno_m
|
|
19599
|
0 |
0 |
unless defined $K_opening_m
|
|
19601
|
0 |
0 |
unless defined $Km
|
|
19606
|
0 |
0 |
if ($type_m eq "i" or $type_m eq "t")
|
|
19608
|
0 |
0 |
if ($sigil eq "\@")
|
|
19685
|
0 |
110 |
unless (defined $trailing_comma_style)
|
|
19691
|
0 |
110 |
unless $type_sequence
|
|
19697
|
0 |
110 |
%break_at_old_comma_types ? :
|
|
19707
|
0 |
110 |
unless defined $K_opening
|
|
19723
|
56 |
54 |
if ($token eq "(")
|
|
19726
|
56 |
0 |
if (defined $Km)
|
|
19729
|
0 |
56 |
if ($type_m eq "k")
|
|
19730
|
0 |
0 |
if ($is_not_list_paren{$token_m})
|
|
19737
|
109 |
1 |
if ($rtype_count)
|
|
19748
|
0 |
0 |
if ($rOpts_line_up_parentheses and $rOpts_add_trailing_commas and $rOpts_delete_trailing_commas and $fat_comma_count and !defined($iline_first_comma) || $iline_last_comma - $iline_first_comma <= 1)
|
|
19759
|
0 |
0 |
if ($rOpts_comma_arrow_breakpoints > 0 and $rOpts_comma_arrow_breakpoints < 4)
|
|
19766
|
0 |
0 |
if (%opening_vertical_tightness and $opening_vertical_tightness{$token})
|
|
19776
|
3 |
10 |
if (not $comma_count and $if_add and $is_closing_type{$last_nonblank_code_type})
|
|
19785
|
0 |
3 |
unless defined $Kpp
|
|
19797
|
0 |
3 |
if ($is_nesting_right and $rOpts_delete_weld_interfering_commas and $self->weld_opening_ok($seqno_pp, $type_sequence, $rLL_new))
|
|
19805
|
3 |
0 |
if ($is_nesting_right)
|
|
19808
|
3 |
0 |
if ($Kpp_m)
|
|
19817
|
1 |
2 |
unless ($fat_comma_count)
|
|
19820
|
0 |
1 |
unless $is_nesting_right
|
|
19823
|
0 |
1 |
if ($self->[8]{$seqno_pp})
|
|
19830
|
0 |
0 |
if ($token eq "(" and not $self->[18]{$type_sequence} and not $is_arrow_call and not $is_hash_value and not $self->is_list_assignment($K_opening))
|
|
19840
|
0 |
1 |
unless defined $K_opening_pp
|
|
19845
|
0 |
1 |
unless $rtype_count_pp
|
|
19851
|
0 |
1 |
unless $has_inner_multiline_structure
|
|
19856
|
0 |
1 |
unless defined $iline_first_comma
|
|
19858
|
0 |
1 |
if $iline_ppc <= $iline_first_comma
|
|
19868
|
0 |
110 |
unless (defined $iline_first_comma)
|
|
19895
|
47 |
63 |
if ($if_add)
|
|
19912
|
8 |
39 |
if (not $is_stable and $fat_comma_count)
|
|
19940
|
15 |
95 |
if ($trailing_comma_style eq '0') { }
|
|
|
17 |
78 |
elsif ($trailing_comma_style eq '*' or $trailing_comma_style eq '1') { }
|
|
|
25 |
53 |
elsif ($trailing_comma_style eq 'm') { }
|
|
|
17 |
36 |
elsif ($trailing_comma_style eq 'b') { }
|
|
|
36 |
0 |
elsif ($trailing_comma_style eq 'h' or $trailing_comma_style eq 'i') { }
|
|
19975
|
24 |
12 |
unless $is_bare_trailing_comma
|
|
19980
|
6 |
6 |
if $if_add
|
|
19982
|
2 |
10 |
if ($excess_commas > 0)
|
|
19988
|
0 |
2 |
if ($trailing_comma_style eq 'i' and $iline_c - $rLL_new->[$Kp][2] > 1 and $new_comma_count <= 2) { }
|
|
|
0 |
2 |
elsif ($trailing_comma_style eq 'h' and not $if_add and $rOpts_add_trailing_commas and $is_permanently_broken) { }
|
|
20021
|
6 |
0 |
if (not $match and $fat_comma_count and $fat_comma_count >= 2 || $fat_comma_count == 1 && $new_comma_count == 1)
|
|
20052
|
2 |
8 |
if (not $match and $trailing_comma_style eq "i")
|
|
20069
|
0 |
0 |
if ($match and $paren_flag and $paren_flag ne 1 and $paren_flag ne "*" and $closing_token eq ")")
|
|
20083
|
41 |
43 |
if ($match)
|
|
20084
|
17 |
24 |
if ($if_add and $rOpts_delete_trailing_commas or not $if_add and $rOpts_add_trailing_commas)
|
|
20105
|
0 |
1 |
if ($token =~ /\t/)
|
|
20115
|
1 |
0 |
unless $is_s_y_m_slash{substr($token, 0, 1)} or substr($token, 0, 2) eq "tr"
|
|
20120
|
0 |
0 |
unless defined $Kp
|
|
20122
|
0 |
0 |
unless $is_unexpected_equals{$previous_nonblank_type}
|
|
20128
|
0 |
0 |
if (defined $Kpp)
|
|
20136
|
0 |
0 |
if ($Kn <= $Kmax and $rLL->[$Kn][6] eq "b")
|
|
20137
|
0 |
0 |
if ($Kn <= $Kmax)
|
|
20144
|
0 |
0 |
if ($previous_nonblank_type_2 eq "i" and $previous_nonblank_token_2 =~ /^\$/ and $next_nonblank_token =~ /^[; \)\}]$/ and not $type_0 eq 'k' && $is_my_our_local{$token_0})
|
|
20200
|
0 |
0 |
if ($rOpts->{$wucc_key} and @wucc_error_list)
|
|
20206
|
0 |
0 |
if ($count >= 5)
|
|
20220
|
0 |
0 |
if $ris_c_style_for_paren_by_seqno->{$seqno_c}
|
|
20225
|
0 |
0 |
if ($seqno_c and $seqno_c > 1)
|
|
20228
|
0 |
0 |
defined $Ko ? :
|
|
20231
|
0 |
0 |
if ($lno_c < $lno)
|
|
20236
|
0 |
0 |
if ($output_lines)
|
|
20271
|
651 |
4 |
defined $Klimit ? :
|
|
20299
|
260 |
8874 |
if $line_of_tokens->{'_line_type'} ne "CODE"
|
|
20305
|
7824 |
1050 |
if (defined $Kfirst_old)
|
|
20322
|
5376 |
587 |
if ($Knext_guess > $Knext and $Knext_guess < $Kmax and $rLL->[$Knext_guess][2] <= $iline)
|
|
20338
|
7814 |
1060 |
if ($Knext > $Knext_beg)
|
|
20343
|
6145 |
1669 |
if ($rLL->[$Klast][6] eq "b")
|
|
20345
|
0 |
7814 |
if ($Klast < $Knext_beg) { }
|
|
20356
|
6767 |
1047 |
if (not $CODE_type or $CODE_type eq "VER")
|
|
20369
|
148 |
8726 |
if ($line_of_tokens->{'_ended_in_blank_token'})
|
|
20371
|
148 |
0 |
if ($CODE_type ne "FS" and $CODE_type ne "VB")
|
|
20379
|
1060 |
7814 |
if (not defined $Kfirst) { }
|
|
20381
|
1 |
1059 |
unless ($CODE_type)
|
|
20391
|
202 |
7612 |
if ($rLL->[$Kfirst][6] eq "q" or $rLL->[$Klast][6] eq "q")
|
|
20403
|
0 |
655 |
if ($Knext <= $Kmax)
|
|
20479
|
0 |
0 |
if ($type eq "b")
|
|
20486
|
0 |
0 |
if ($type ne "P")
|
|
20507
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq "n")
|
|
20512
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "{")
|
|
20520
|
0 |
0 |
if ($parent_seqno != 1)
|
|
20522
|
0 |
0 |
if (defined $Kc)
|
|
20535
|
0 |
0 |
if ($Kc < $K_opening) { }
|
|
20546
|
0 |
0 |
if ($level_i == $level)
|
|
20581
|
0 |
0 |
if (@package_lookup_list > 1 and $package_lookup_list[0][2] < 0)
|
|
20654
|
0 |
0 |
$is_signature ? :
|
|
20661
|
0 |
0 |
if (defined $seqno_list) { }
|
|
|
0 |
0 |
elsif (defined $K_list_start) { }
|
|
20664
|
0 |
0 |
unless defined $K_list_end
|
|
20672
|
0 |
0 |
if ($rLL->[$K_list_start][6] eq "b")
|
|
20680
|
0 |
0 |
unless $Kn
|
|
20682
|
0 |
0 |
if ($type_n eq ";" or $is_closing_type{$type_n} or $type_n eq "k" and $is_if_unless{$rLL->[$Kn][4]})
|
|
20691
|
0 |
0 |
if ($rLL->[$Kn][4] eq "(")
|
|
20693
|
0 |
0 |
if ($Knn and $rLL->[$Knn][4] eq ")")
|
|
20708
|
0 |
0 |
if ($seqno_list and $shift_count_min_input and not $is_signature)
|
|
20716
|
0 |
0 |
if ($seqno_list)
|
|
20739
|
0 |
0 |
if (not $KK or $KK <= $KK_this_nb)
|
|
20748
|
0 |
0 |
if $type eq "b"
|
|
20749
|
0 |
0 |
if $type eq "#"
|
|
20750
|
0 |
0 |
if $type eq ";"
|
|
20751
|
0 |
0 |
if $type eq ".."
|
|
20754
|
0 |
0 |
if $type eq "=~"
|
|
20762
|
0 |
0 |
if (my $seqno = $rLL->[$KK][7]) { }
|
|
|
0 |
0 |
elsif ($type eq 'i' or $type eq 't') { }
|
|
|
0 |
0 |
elsif ($type eq ',') { }
|
|
|
0 |
0 |
elsif ($type eq '=>') { }
|
|
|
0 |
0 |
elsif ($type eq '=') { }
|
|
|
0 |
0 |
elsif ($is_kwU{$type}) { }
|
|
20764
|
0 |
0 |
if ($is_opening_type{$type}) { }
|
|
|
0 |
0 |
elsif ($is_closing_type{$type}) { }
|
|
|
0 |
0 |
elsif ($type eq '?') { }
|
|
|
0 |
0 |
elsif ($type eq ':') { }
|
|
20765
|
0 |
0 |
if ($token eq "(")
|
|
20769
|
0 |
0 |
if ($KK_last_nb)
|
|
20772
|
0 |
0 |
if ($type_last eq "k" and $is_non_interfering_keyword{$token_last})
|
|
20781
|
0 |
0 |
if (not $self->is_list_by_seqno($seqno)) { }
|
|
20785
|
0 |
0 |
if ($is_return_list and $KK_last_nb == $K_list_start)
|
|
20791
|
0 |
0 |
unless ($Kc)
|
|
20797
|
0 |
0 |
if ($self->[23]{$seqno})
|
|
20799
|
0 |
0 |
if ($Kc_p and $rLL->[$Kc_p][4] eq ")")
|
|
20802
|
0 |
0 |
if ($seqno_c_p and $seqno_c_p == $seqno + 1)
|
|
20804
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
20815
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "[")
|
|
20817
|
0 |
0 |
if ($seqno_next and $self->is_list_by_seqno($seqno_next))
|
|
20827
|
0 |
0 |
if ($KK_n)
|
|
20834
|
0 |
0 |
if ($type_KK_n eq 't' or $type_KK_n eq 'i') { }
|
|
|
0 |
0 |
elsif ($type_KK_n eq 'k') { }
|
|
20836
|
0 |
0 |
if ($sigil eq "\@" or $sigil eq "%")
|
|
20842
|
0 |
0 |
unless ($is_non_interfering_keyword{$token_KK_n})
|
|
20855
|
0 |
0 |
if ($KK_last_nb)
|
|
20879
|
0 |
0 |
if ($ok)
|
|
20893
|
0 |
0 |
if ($seqno_test and $seqno_test eq $seqno)
|
|
20906
|
0 |
0 |
if ($rLL->[$KK_last_nb][4] eq "wantarray" and $rLL->[$KK_last_nb][6] eq "k" and $KK_last_last_nb and $rLL->[$KK_last_last_nb][4] eq "return" and $rLL->[$KK_last_last_nb][6] eq "k")
|
|
20917
|
0 |
0 |
if ($is_return_list)
|
|
20927
|
0 |
0 |
if ($seqno_test and $seqno_test eq $seqno)
|
|
20950
|
0 |
0 |
if ($sigil eq '%' or $sigil eq '@') { }
|
|
|
0 |
0 |
elsif ($sigil eq '$' and not $self_name and not $arg_count) { }
|
|
20952
|
0 |
0 |
if (defined $K_last)
|
|
20954
|
0 |
0 |
if $type_last eq "+" or $type_last eq "p"
|
|
20955
|
0 |
0 |
if $type_last eq "\\"
|
|
20956
|
0 |
0 |
if $type_last eq "!"
|
|
20958
|
0 |
0 |
if $type_last eq "k" and $token_last eq "scalar"
|
|
20988
|
0 |
0 |
if ($is_signature and not defined $arg_count_min)
|
|
20997
|
0 |
0 |
if ($type eq "k")
|
|
21000
|
0 |
0 |
if $is_non_interfering_keyword{$token}
|
|
21002
|
0 |
0 |
if $token eq "wantarray"
|
|
21005
|
0 |
0 |
if $token eq "sub"
|
|
21008
|
0 |
0 |
if ($is_if_unless{$token})
|
|
21016
|
0 |
0 |
unless defined $Kn
|
|
21020
|
0 |
0 |
if $token_Kn eq ")" or $type_Kn eq "=>" or $type_Kn eq "->" or $type_Kn eq ","
|
|
21030
|
0 |
0 |
if $type eq "k" and $token_Kn eq "(" and $is_keyword_returning_scalar{$token}
|
|
21051
|
0 |
0 |
if (defined $KK_this_nb and $KK_this_nb > $K_list_start and $rLL->[$KK_this_nb][6] ne ",")
|
|
21058
|
0 |
0 |
unless (defined $arg_count_min)
|
|
21101
|
0 |
0 |
unless $saw_semicolon
|
|
21106
|
0 |
0 |
unless $saw_semicolon
|
|
21111
|
0 |
0 |
if (not defined $ch) { }
|
|
|
0 |
0 |
elsif ($ch eq '(') { }
|
|
|
0 |
0 |
elsif ($ch eq ')') { }
|
|
|
0 |
0 |
elsif ($ch eq ';' and not $saw_semicolon) { }
|
|
|
0 |
0 |
elsif ($ch eq '_' and not $saw_semicolon) { }
|
|
|
0 |
0 |
elsif ($is_array_sigil{$ch}) { }
|
|
|
0 |
0 |
elsif ($is_scalar_sigil{$ch}) { }
|
|
|
0 |
0 |
elsif ($ch eq '\\') { }
|
|
21112
|
0 |
0 |
if $count_min
|
|
21117
|
0 |
0 |
unless $count_min
|
|
21123
|
0 |
0 |
unless defined $ch
|
|
21153
|
0 |
0 |
if (defined $K_sub)
|
|
21155
|
0 |
0 |
if ($type ne "S")
|
|
21158
|
0 |
0 |
if ($type ne "S")
|
|
21180
|
0 |
0 |
unless (defined $K_sub)
|
|
21186
|
0 |
0 |
if ($Kt_min < 0)
|
|
21190
|
0 |
0 |
if ($type eq "S")
|
|
21196
|
0 |
0 |
if ($type eq 'k' || $type eq 'i' and substr($token, 0, 3) eq "sub")
|
|
21220
|
0 |
0 |
unless $seqno
|
|
21225
|
0 |
0 |
unless defined $K_test
|
|
21227
|
0 |
0 |
if $token_test ne "," and $token_test ne "("
|
|
21230
|
0 |
0 |
if ($token_test eq "(")
|
|
21232
|
0 |
0 |
if (not $seqno_o or $seqno_o != $seqno - 1)
|
|
21243
|
0 |
0 |
if ($rtype_count)
|
|
21251
|
0 |
0 |
unless (defined $default_arg_count)
|
|
21256
|
0 |
0 |
if $K_n == $K_c
|
|
21262
|
0 |
0 |
unless $default_arg_count
|
|
21265
|
0 |
0 |
if ($item->{'shift_count_min'} >= $default_arg_count) { }
|
|
21303
|
0 |
0 |
if (not defined $Kbeg && defined $Kend or $Kbeg < 0 or $Kbeg > $Kend or $Kend > @{$rLL;} - 1)
|
|
21319
|
0 |
0 |
if ($line_type eq 'CODE') { }
|
|
21324
|
0 |
0 |
if (defined $Kfirst)
|
|
21326
|
0 |
0 |
defined $Kfirst ? :
|
|
21330
|
0 |
0 |
if $jmax > 0 or $rLL->[$Klast][6] ne "#"
|
|
21333
|
0 |
0 |
if ($rLL->[$Klast][4] =~ /[\w\'\"]/)
|
|
21335
|
0 |
0 |
unless $want_full_count
|
|
21344
|
0 |
0 |
unless $line_type =~ /^POD/
|
|
21347
|
0 |
0 |
if ($line_type eq "POD" and $line_of_tokens->{'_line_text'} =~ /\w/)
|
|
21351
|
0 |
0 |
unless $want_full_count
|
|
21376
|
0 |
0 |
unless $seqno_block
|
|
21394
|
0 |
0 |
if (defined $rKlist)
|
|
21412
|
0 |
0 |
unless $seqno_at_index_min and $at_index_min == 0
|
|
21415
|
0 |
0 |
unless $Ko and $Kc
|
|
21417
|
0 |
0 |
unless $K_semicolon and $rLL->[$K_semicolon][6] eq ";"
|
|
21419
|
0 |
0 |
unless $K_m and $rLL->[$K_m][4] eq "\$_"
|
|
21421
|
0 |
0 |
unless $K_mm and $rLL->[$K_mm][6] eq "="
|
|
21423
|
0 |
0 |
unless $K_mmm and $rLL->[$K_mmm][6] eq "i"
|
|
21425
|
0 |
0 |
unless $name =~ /^\$\w/
|
|
21431
|
0 |
0 |
if (not defined $rKlist and $rseqno_DOLLAR_underscore)
|
|
21437
|
0 |
0 |
unless $Kn
|
|
21438
|
0 |
0 |
unless $rLL->[$Kn][6] eq "n"
|
|
21440
|
0 |
0 |
unless $token =~ /^\d+$/
|
|
21443
|
0 |
0 |
unless $Knn and $Kc and $Knn == $Kc
|
|
21445
|
0 |
0 |
if (not defined $at_index_min or $token < $at_index_min)
|
|
21447
|
0 |
0 |
unless (defined $seqno_at_index_min)
|
|
21451
|
0 |
0 |
if (not defined $at_index_max or $token > $at_index_max)
|
|
21456
|
0 |
0 |
unless ($ok)
|
|
21470
|
0 |
0 |
if (not defined $K_sub or $K_sub >= $K_opening_block)
|
|
21471
|
0 |
0 |
unless (defined $K_sub)
|
|
21481
|
0 |
0 |
if ($iproto_beg > 0)
|
|
21483
|
0 |
0 |
if ($iproto_end > $iproto_beg)
|
|
21500
|
0 |
0 |
unless defined $K_closing
|
|
21506
|
0 |
0 |
if ($rLL->[$Ksub_p][7] and $rLL->[$Ksub_p][4] eq "(")
|
|
21550
|
0 |
0 |
unless ($pre_arg_comment_count)
|
|
21556
|
0 |
0 |
if (defined $K_arg_end)
|
|
21567
|
0 |
0 |
if (not $KK or $KK <= $KK_this_nb)
|
|
21576
|
0 |
0 |
if $type eq "b"
|
|
21578
|
0 |
0 |
if ($type eq "#")
|
|
21579
|
0 |
0 |
unless ($KK_first_code)
|
|
21581
|
0 |
0 |
if ($token =~ /[\w\'\"]/)
|
|
21592
|
0 |
0 |
unless ($KK_first_code)
|
|
21601
|
0 |
0 |
if ($type eq 'i' or $type eq 'Z') { }
|
|
|
0 |
0 |
elsif ($type eq 'k') { }
|
|
|
0 |
0 |
elsif ($rLL->[$KK][7]) { }
|
|
|
0 |
0 |
elsif ($type eq ';') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
|
0 |
0 |
elsif ($type eq 'h') { }
|
|
21604
|
0 |
0 |
if ($token eq '@_') { }
|
|
|
0 |
0 |
elsif ($token eq '$_') { }
|
|
|
0 |
0 |
elsif (substr($token, 0, 1) eq '&') { }
|
|
21610
|
0 |
0 |
unless $level == $level_opening + 1
|
|
21614
|
0 |
0 |
unless $K_p
|
|
21615
|
0 |
0 |
unless $rLL->[$K_p][6] eq ";"
|
|
21619
|
0 |
0 |
unless defined $K_m
|
|
21621
|
0 |
0 |
unless $type_m eq "="
|
|
21625
|
0 |
0 |
unless defined $K_mm
|
|
21631
|
0 |
0 |
if ($seqno_mm and $token_mm eq ")")
|
|
21644
|
0 |
0 |
$K_mm_p ? :
|
|
21648
|
0 |
0 |
if ($token_mm_p eq ",")
|
|
21650
|
0 |
0 |
$K_mm_p ? :
|
|
21656
|
0 |
0 |
if ($token_mm_p eq ")")
|
|
21676
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "[")
|
|
21680
|
0 |
0 |
if (not defined $at_index_max or $shift_count)
|
|
21689
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] ne "(")
|
|
21703
|
0 |
0 |
if ($is_shift_pop{$token}) { }
|
|
|
0 |
0 |
elsif ($token eq 'bless') { }
|
|
|
0 |
0 |
elsif ($is_if_unless{$token}) { }
|
|
21707
|
0 |
0 |
unless defined $Kp
|
|
21719
|
0 |
0 |
if ($token_p eq "(")
|
|
21722
|
0 |
0 |
unless defined $Kp
|
|
21728
|
0 |
0 |
if ($type_p eq "i" or $type_p eq "t")
|
|
21731
|
0 |
0 |
if $token_p ne "\@_"
|
|
21734
|
0 |
0 |
unless defined $Kp
|
|
21740
|
0 |
0 |
if ($in_parens and $token_p eq ")")
|
|
21742
|
0 |
0 |
unless defined $Kp
|
|
21752
|
0 |
0 |
if $type_p ne ";" and $type_p ne "->" and $Kp ne $K_closing
|
|
21756
|
0 |
0 |
unless $level == $level_opening + 1
|
|
21770
|
0 |
0 |
if ($shift_count == 1 and not $self_name)
|
|
21772
|
0 |
0 |
unless defined $K_m
|
|
21777
|
0 |
0 |
if ($type_p eq '->') { }
|
|
21778
|
0 |
0 |
if ($type_m eq "{" or $type_m eq ";")
|
|
21784
|
0 |
0 |
if ($type_m eq "=")
|
|
21787
|
0 |
0 |
unless defined $K_mm
|
|
21794
|
0 |
0 |
if ($seqno_mm and $token_mm eq ")")
|
|
21797
|
0 |
0 |
if ($K_mm)
|
|
21803
|
0 |
0 |
if ($type_mm eq "i")
|
|
21815
|
0 |
0 |
if ($KK < $Kp - 1)
|
|
21833
|
0 |
0 |
if ($semicolon_count_after_last_shift > 2)
|
|
21834
|
0 |
0 |
if (not defined $max_arg_count or $max_arg_count <= $shift_count)
|
|
21838
|
0 |
0 |
if (not $saw_pop_at_underscore and $KK >= $K_last_at_underscore)
|
|
21858
|
0 |
0 |
if ($is_opening_type{$type})
|
|
21865
|
0 |
0 |
if ($self->[10]{$seqno_test} or $self->[9]{$seqno_test})
|
|
21869
|
0 |
0 |
unless $Kc
|
|
21870
|
0 |
0 |
if $Kc <= $KK
|
|
21876
|
0 |
0 |
unless ($semicolon_count_after_last_shift)
|
|
21886
|
0 |
0 |
unless defined $K_last_code
|
|
21888
|
0 |
0 |
if ($K_last_type eq 'Q') { }
|
|
|
0 |
0 |
elsif ($is_re_match_op{$K_last_type}) { }
|
|
|
0 |
0 |
elsif ($token =~ /^(qw | q[^qrx] | tr | [y\'] )/x) { }
|
|
21907
|
0 |
0 |
unless $in_interpolated_quote
|
|
21911
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($token, $pos - 1, 1) ne "\\"
|
|
21916
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($token, $pos - 1, 1) ne "\\"
|
|
21922
|
0 |
0 |
unless is_interpolated_here_doc($token)
|
|
21927
|
0 |
0 |
if ($here_text)
|
|
21932
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($here_text, $pos - 1, 1) ne "\\"
|
|
21940
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($here_text, $pos - 1, 1) ne "\\"
|
|
21956
|
0 |
0 |
if (defined $at_index_max and not $shift_count)
|
|
21962
|
0 |
0 |
if (not $self_name and $at_index_min == 0)
|
|
21964
|
0 |
0 |
unless $self_name
|
|
21969
|
0 |
0 |
unless ($saw_pop_at_underscore)
|
|
21993
|
0 |
0 |
unless $seqno_sub
|
|
21996
|
0 |
0 |
unless defined $rKlist
|
|
22008
|
0 |
0 |
$rLL->[$_][6] eq 'b' ? :
|
|
22010
|
0 |
0 |
if ($token ne "return")
|
|
22017
|
0 |
0 |
unless (defined $count)
|
|
22024
|
0 |
0 |
unless (defined $rK_return_count_hash->{$count})
|
|
22031
|
0 |
0 |
if (not defined $return_count_min or $count <= $return_count_min)
|
|
22038
|
0 |
0 |
if (not defined $return_count_max or $count >= $return_count_max)
|
|
22068
|
0 |
0 |
unless $seqno_list
|
|
22077
|
0 |
0 |
if ($Kc_n)
|
|
22080
|
0 |
0 |
if (not $ok and $type_n eq "k")
|
|
22085
|
0 |
0 |
unless $ok
|
|
22091
|
0 |
0 |
unless defined $K_mm
|
|
22101
|
0 |
0 |
if ($type_m eq 'U' or $type_m eq 'w') { }
|
|
|
0 |
0 |
elsif ($type_m eq 'i' and $type_mm eq '->') { }
|
|
|
0 |
0 |
elsif ($type_m eq 'i' and substr($token_m, 0, 1) eq '&') { }
|
|
|
0 |
0 |
elsif ($type_m eq '->' and $type_mm eq 'i') { }
|
|
22109
|
0 |
0 |
unless defined $K_mm4
|
|
22113
|
0 |
0 |
if ($type_mmm eq 'i') { }
|
|
22149
|
0 |
0 |
if (not $K_equals or $rLL->[$K_equals][6] ne "=")
|
|
22154
|
0 |
0 |
unless defined $K_c
|
|
22157
|
0 |
0 |
if ($token_c ne ")")
|
|
22163
|
0 |
0 |
if ($is_closing_type{$type_c})
|
|
22169
|
0 |
0 |
unless $seqno_c
|
|
22171
|
0 |
0 |
unless defined $Ko_c
|
|
22173
|
0 |
0 |
unless defined $K_c_new
|
|
22177
|
0 |
0 |
if ($type_c eq "->")
|
|
22179
|
0 |
0 |
unless defined $K_c_new
|
|
22185
|
0 |
0 |
if ($type_c eq "i" or $type_c eq "t")
|
|
22187
|
0 |
0 |
if ($sigil eq "\$")
|
|
22197
|
0 |
0 |
unless $seqno_lhs
|
|
22272
|
0 |
0 |
if ($pos_space > 0)
|
|
22277
|
0 |
0 |
if ($pos_paren > 0)
|
|
22284
|
0 |
0 |
if (index($name, ':') != -1 || index($name, q[']) != -1 and $name =~ /^(.*\W)(\w+)$/)
|
|
22292
|
0 |
0 |
unless $package
|
|
22358
|
0 |
0 |
unless $K_closing_bracket
|
|
22360
|
0 |
0 |
unless $seqno
|
|
22362
|
0 |
0 |
unless defined $Ko
|
|
22364
|
0 |
0 |
unless $Knum and $rLL->[$Knum][4] eq 0
|
|
22366
|
0 |
0 |
unless $Kc eq $K_closing_bracket
|
|
22368
|
0 |
0 |
unless $rLL->[$K_p][4] eq "\$_"
|
|
22398
|
0 |
0 |
if (substr($name, 0, 1) eq "&")
|
|
22403
|
0 |
0 |
$is_ampersand_call ? :
|
|
22407
|
0 |
0 |
if ($type_mm eq "->")
|
|
22412
|
0 |
0 |
if (defined $K_mmm)
|
|
22415
|
0 |
0 |
if ($type_mmm eq 'i') { }
|
|
|
0 |
0 |
elsif ($type_mmm eq 'w') { }
|
|
|
0 |
0 |
elsif ($token_mmm eq ']') { }
|
|
22422
|
0 |
0 |
if (index($token_mmm, "::") != -1)
|
|
22428
|
0 |
0 |
if (&$is_dollar_underscore_zero($K_mmm))
|
|
22438
|
0 |
0 |
if (index($name, ':') != -1 || index($name, q[']) != -1 and $name =~ /^(.*\W)(\w+)$/) { }
|
|
22447
|
0 |
0 |
if ($class_name)
|
|
22451
|
0 |
0 |
unless ($package)
|
|
22456
|
0 |
0 |
if ($rtype_count)
|
|
22459
|
0 |
0 |
if ($comma_count)
|
|
22460
|
0 |
0 |
if ($fat_comma_count)
|
|
22464
|
0 |
0 |
if (not $arg_count) { }
|
|
22469
|
0 |
0 |
if ($Kn < $Kc)
|
|
22471
|
0 |
0 |
if ($type_n eq "b")
|
|
22475
|
0 |
0 |
if ($type_n eq "#")
|
|
22478
|
0 |
0 |
if ($Kn != $Kc)
|
|
22487
|
0 |
0 |
if ($arg_count)
|
|
22546
|
0 |
0 |
unless (defined $is_self_call)
|
|
22555
|
0 |
0 |
if $K_first_self and $rLL->[$K_first_self][6] eq "b"
|
|
22560
|
0 |
0 |
$Kn ? :
|
|
22565
|
0 |
0 |
if ($type_n eq '->') { }
|
|
|
0 |
0 |
elsif ($type_n eq '=') { }
|
|
22649
|
0 |
0 |
unless ($is_dump)
|
|
22702
|
0 |
0 |
unless defined $arg_count
|
|
22703
|
0 |
0 |
if ($call_type eq '->') { }
|
|
22712
|
0 |
0 |
if (not defined $max or $arg_count > $max)
|
|
22715
|
0 |
0 |
if (not defined $min or $arg_count < $min)
|
|
22746
|
0 |
0 |
if ($rcall_item->{'call_type'} eq '->') { }
|
|
22769
|
0 |
0 |
if ($seqno_sub_parent)
|
|
22771
|
0 |
0 |
if ($item)
|
|
22796
|
0 |
0 |
unless ($is_self_call)
|
|
22798
|
0 |
0 |
unless $item_self
|
|
22801
|
0 |
0 |
if ($rK_bless_list)
|
|
22810
|
0 |
0 |
if $name_blessed ne $caller_name
|
|
22815
|
0 |
0 |
unless $Kp
|
|
22818
|
0 |
0 |
if not $parent_seqno or $parent_seqno != $seqno_sub_parent
|
|
22822
|
0 |
0 |
if $K_blessed > $Ko
|
|
22833
|
0 |
0 |
if (not $is_self_call and $caller_is_dollar_self)
|
|
22841
|
0 |
0 |
if (not $is_self_call and $caller_is_dollar_self)
|
|
22844
|
0 |
0 |
if ($seqno_sub_called)
|
|
22852
|
0 |
0 |
if ($receiver and $receiver eq $caller_name || $receiver eq '$class' || $receiver eq '$_[0]') { }
|
|
22922
|
0 |
0 |
if ($is_self_call) { }
|
|
22930
|
0 |
0 |
unless ($class_name)
|
|
22958
|
0 |
0 |
unless defined $seqno_sub
|
|
22960
|
0 |
0 |
unless $rsub_item->{'prototype'}
|
|
22964
|
0 |
0 |
defined $rdirect_calls ? :
|
|
22965
|
0 |
0 |
defined $rself_calls ? :
|
|
22969
|
0 |
0 |
if $num_self
|
|
22970
|
0 |
0 |
unless $num_direct
|
|
22974
|
0 |
0 |
if ($num_self)
|
|
22975
|
0 |
0 |
if (defined $shift_count_min)
|
|
22976
|
0 |
0 |
if (defined $shift_count_max)
|
|
22982
|
0 |
0 |
if (defined $shift_count_max)
|
|
22984
|
0 |
0 |
if (not defined $standard_max or $standard_max > $shift_count_max)
|
|
23006
|
0 |
0 |
if ($rcall_item->{'is_unknown_object_call'})
|
|
23027
|
0 |
0 |
if (defined $seqno_sub) { }
|
|
23035
|
0 |
0 |
unless ($ris_my_sub_by_seqno->{$seqno_sub})
|
|
23039
|
0 |
0 |
if ($call_type eq "&" and $rsub_item->{'prototype'})
|
|
23051
|
0 |
0 |
if (defined $return_count_wanted and defined $rK_return_count_hash)
|
|
23066
|
0 |
0 |
if (defined $shift_count_min and defined $arg_count)
|
|
23067
|
0 |
0 |
if ($call_type eq "->" and not $rcall_item->{'is_oo_call'})
|
|
23074
|
0 |
0 |
if (not defined $max or $arg_count > $max)
|
|
23077
|
0 |
0 |
if (not defined $min or $arg_count < $min)
|
|
23080
|
0 |
0 |
if ($excess < 0) { }
|
|
|
0 |
0 |
elsif ($excess > 0) { }
|
|
23084
|
0 |
0 |
if (defined $shift_count_max)
|
|
23086
|
0 |
0 |
if ($excess > 0)
|
|
23101
|
0 |
0 |
if $return_count_indefinite
|
|
23104
|
0 |
0 |
unless $return_count_wanted
|
|
23107
|
0 |
0 |
if $want_scalar and $saw_wantarray
|
|
23112
|
0 |
0 |
if (not defined $max or $return_count_wanted > $max)
|
|
23115
|
0 |
0 |
if (not defined $min or $return_count_wanted < $min)
|
|
23121
|
0 |
0 |
if (not defined $rK_return_list) { }
|
|
|
0 |
0 |
elsif (not defined $return_count_max) { }
|
|
|
0 |
0 |
elsif ($return_count_wanted == $return_count_max) { }
|
|
|
0 |
0 |
elsif ($return_count_wanted > $return_count_max) { }
|
|
23122
|
0 |
0 |
if ($want_scalar) { }
|
|
23139
|
0 |
0 |
if (defined $rreturn_info)
|
|
23147
|
0 |
0 |
unless ($want_scalar)
|
|
23157
|
0 |
0 |
if (defined $rreturn_info) { }
|
|
23165
|
0 |
0 |
if ($want_scalar) { }
|
|
23201
|
0 |
0 |
if ($shift_count_min ne "*" and $shift_count_min ne $shift_count_max)
|
|
23222
|
0 |
0 |
if ($return_count_min ne "*" and $return_count_min ne $return_count_max)
|
|
23265
|
0 |
0 |
if (defined $item) { }
|
|
23286
|
0 |
0 |
defined $rself_calls ? :
|
|
23287
|
0 |
0 |
defined $rdirect_calls ? :
|
|
23288
|
0 |
0 |
defined $rover_count ? :
|
|
23289
|
0 |
0 |
defined $runder_count ? :
|
|
23293
|
0 |
0 |
if (defined $rK_return_count_hash)
|
|
23299
|
0 |
0 |
if $return_count <= 1
|
|
23309
|
0 |
0 |
if (@K_multi_returns > 1 and not $all_matched)
|
|
23327
|
0 |
0 |
unless defined $_
|
|
23335
|
0 |
0 |
if ($num_self and $num_direct and $do_mismatched_call_type{'a'})
|
|
23341
|
0 |
0 |
unless (defined $self_name)
|
|
23342
|
0 |
0 |
$num_self > 1 ? :
|
|
23343
|
0 |
0 |
$num_direct > 1 ? :
|
|
23353
|
0 |
0 |
unless (defined $rsub_item)
|
|
23360
|
0 |
0 |
if ($shift_count_min eq '*') { }
|
|
23362
|
0 |
0 |
if ($do_mismatched_call_type{$letter})
|
|
23366
|
0 |
0 |
if $shift_count_min eq $min_arg_count and $shift_count_min eq $max_arg_count
|
|
23380
|
0 |
0 |
if ($num_over_count and $do_mismatched_call_type{'o'} and $shift_count_max >= $mismatched_arg_overcount_cutoff)
|
|
23388
|
0 |
0 |
$total > 1 ? :
|
|
23398
|
0 |
0 |
if ($num_under_count)
|
|
23400
|
0 |
0 |
if ($shift_count_min > $max_shift_count_with_undercount)
|
|
23405
|
0 |
0 |
if ($do_mismatched_call_type{'u'} and $shift_count_min >= $mismatched_arg_undercount_cutoff)
|
|
23413
|
0 |
0 |
$total > 1 ? :
|
|
23427
|
0 |
0 |
if ($return_issues)
|
|
23429
|
0 |
0 |
unless $do_mismatched_return_type{$letter}
|
|
23431
|
0 |
0 |
defined $rissues ? :
|
|
23432
|
0 |
0 |
unless $number
|
|
23437
|
0 |
0 |
$total > 1 ? :
|
|
23445
|
0 |
0 |
defined $K_return_count_max ? :
|
|
23463
|
0 |
0 |
if (@{$rcall_arg_warnings;})
|
|
23466
|
0 |
0 |
if ($is_dump)
|
|
23474
|
0 |
0 |
if (not $is_dump and $number_of_undercount_warnings)
|
|
23492
|
0 |
0 |
if (@{$rreturn_warnings;})
|
|
23545
|
0 |
0 |
if (@{$rwarnings;})
|
|
23552
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->{'line_number'} <=> $Perl::Tidy::Formatter::b->{'line_number'}
|
|
23567
|
0 |
0 |
if ($rcalls and ref $rcalls and @{$rcalls;})
|
|
23573
|
0 |
0 |
if ($num == 1) { }
|
|
|
0 |
0 |
elsif ($num == 2) { }
|
|
23619
|
0 |
0 |
if ($rOpts->{$wma_key})
|
|
23621
|
0 |
0 |
if ($output_lines)
|
|
23633
|
0 |
0 |
if ($rOpts->{$wmr_key})
|
|
23635
|
0 |
0 |
if ($output_lines)
|
|
23654
|
0 |
0 |
if ($output_string)
|
|
23671
|
0 |
0 |
if ($output_string)
|
|
23701
|
652 |
0 |
unless (%{$ris_indented_type_h_line_index;} or $convert_to_indented)
|
|
23719
|
6 |
17 |
if (not defined $extra_spaces_block && defined $extra_spaces_non_block or $extra_spaces_block != $extra_spaces_non_block)
|
|
23726
|
6 |
0 |
if (defined $Kfirst)
|
|
23731
|
0 |
6 |
$seqno_parent eq 1 ? :
|
|
23732
|
3 |
3 |
$block_type ? :
|
|
23755
|
0 |
26 |
if ($type eq "b")
|
|
23763
|
0 |
26 |
if ($type ne "h")
|
|
23773
|
26 |
0 |
if ($token =~ /^ (\<\<\~?)([^\d].*) $/x) { }
|
|
23790
|
3 |
9 |
if $here_type eq "<<" and not $ris_indented_type_h_line_index->{$ix_line} and not $convert_to_indented
|
|
23795
|
0 |
23 |
if (length $here_tag > 1 and substr($here_tag, 0, 1) eq "\\")
|
|
23803
|
23 |
0 |
if (length $here_tag > 1)
|
|
23806
|
10 |
13 |
if ($end_quote_char =~ /^[\"\'\`]/ and $start_quote_char eq $end_quote_char)
|
|
23828
|
23 |
0 |
if ($ris_indented_type_h_line_index->{$ix_line} or $convert_to_indented and not $is_excluded_tag)
|
|
23837
|
14 |
9 |
if ($here_type eq "<<~")
|
|
23844
|
14 |
0 |
if ($i_tag > 0)
|
|
23846
|
0 |
14 |
unless ($leading_whitespace =~ /^\s*$/)
|
|
23852
|
0 |
14 |
if ($end_text ne $leading_whitespace . $here_tag)
|
|
23868
|
14 |
0 |
if (length $leading_whitespace > 0)
|
|
23876
|
8 |
18 |
unless $line_length
|
|
23877
|
0 |
18 |
if (index($line, $leading_whitespace) != 0)
|
|
23889
|
18 |
0 |
if ($line_length > $max_line_length)
|
|
23897
|
0 |
14 |
if ($has_bad_whitespace)
|
|
23903
|
2 |
12 |
if ($convert_to_standard and not $is_excluded_tag)
|
|
23912
|
2 |
0 |
if ($numch)
|
|
23917
|
1 |
5 |
unless length $text
|
|
23928
|
1 |
22 |
if $is_excluded_tag
|
|
23931
|
11 |
11 |
if ($here_type eq "<<")
|
|
23932
|
8 |
3 |
unless $convert_to_indented
|
|
23939
|
9 |
5 |
if ($rOpts_heredoc_indentation_update)
|
|
23956
|
6 |
0 |
unless ($error_count)
|
|
23989
|
0 |
9 |
if ($ix_HERE_token != $ix_CODE)
|
|
24004
|
0 |
9 |
if ($line_type_ix_CODE ne "CODE" or $line_type_ix_HERE ne "CODE" and $line_type_ix_HERE ne "HERE_END" or $line_type_ix_HERE_END ne "HERE_END" or $ix_HERE < $ix_CODE or $ix_HERE_END <= $ix_HERE)
|
|
24034
|
21 |
4 |
if (length $text)
|
|
24037
|
0 |
21 |
if (index($text, $leading_whitespace_old) != 0)
|
|
24042
|
13 |
8 |
if (length $text > $max_raw_length)
|
|
24048
|
0 |
9 |
unless (@here_lines)
|
|
24056
|
0 |
9 |
if ($end_tag ne $here_tag)
|
|
24066
|
1 |
8 |
if ($excess > 0)
|
|
24069
|
0 |
1 |
if ($excess_length_option == 0) { }
|
|
|
0 |
1 |
elsif ($excess_length_option == 1) { }
|
|
|
0 |
1 |
elsif ($excess_length_option == 2) { }
|
|
|
1 |
0 |
elsif ($excess_length_option == 3) { }
|
|
24077
|
0 |
0 |
if ($space_count_new >= $line_length_MAX)
|
|
24099
|
0 |
9 |
if ($leading_whitespace_old eq $leading_whitespace_new)
|
|
24108
|
21 |
4 |
if (length $text > 0)
|
|
24174
|
0 |
4 |
if (not defined $K_c && defined $K_q or $K_c < 0 or $K_q < $K_c)
|
|
24180
|
0 |
4 |
unless ($self->in_same_container_by_K($K_c, $K_q))
|
|
24183
|
0 |
4 |
if ($K_q - $K_c > 100)
|
|
24190
|
0 |
16 |
if ($KK >= $K_last)
|
|
24198
|
10 |
6 |
if $type eq "b"
|
|
24199
|
0 |
6 |
if $is_non_ternary_type{$type}
|
|
24202
|
4 |
2 |
if ($is_closing_type{$type})
|
|
24203
|
4 |
0 |
if (my $seqno = $rLL->[$KK][7])
|
|
24242
|
15 |
178 |
if (defined $Kc_last and $Ko < $Kc_last)
|
|
24245
|
8 |
7 |
if ($self->in_same_container_by_K($Ko, $Ko_last))
|
|
24268
|
3 |
5 |
if $ix < $ix_last_pattern
|
|
24284
|
1 |
4 |
if ($ix_start > 0)
|
|
24287
|
1 |
0 |
if ($Kc_prev < $Ko_start)
|
|
24288
|
1 |
0 |
if (&$in_same_ternary($Kc_prev, $Ko_start))
|
|
24302
|
9 |
8 |
if $Ko < $stack[-1]
|
|
24308
|
2 |
1 |
if (not @stack and !&$in_same_ternary($Kc_last, $Ko) || index($pattern_match, $pattern) != 0)
|
|
24322
|
0 |
2 |
if ($pattern eq $pattern_match)
|
|
24330
|
3 |
7 |
if ($ix_test == $ix_max) { }
|
|
24333
|
1 |
2 |
if ($pattern eq $pattern_match)
|
|
24379
|
0 |
0 |
if (defined $Kc_last and $Ko < $Kc_last)
|
|
24386
|
0 |
0 |
if ($Kc_t > $Ko)
|
|
24389
|
0 |
0 |
unless ($is_contained)
|
|
24391
|
0 |
0 |
if ($depth > $maximum_depth) { }
|
|
24405
|
0 |
0 |
if ($output_string)
|
|
24406
|
0 |
0 |
$skipped_count ? :
|
|
24421
|
0 |
0 |
if ($output_string)
|
|
24437
|
0 |
0 |
if ($output_string)
|
|
24456
|
0 |
0 |
unless $ris_c_style_for_paren_by_seqno
|
|
24473
|
0 |
0 |
if (length $text > $MAX_LENGTH)
|
|
24486
|
0 |
0 |
if ($output_string)
|
|
24503
|
0 |
0 |
if ($output_string)
|
|
24532
|
0 |
32 |
unless defined $KK
|
|
24537
|
25 |
7 |
if (not $seqno) { }
|
|
24539
|
7 |
18 |
if ($rkeep_break_hash->{$type})
|
|
24543
|
0 |
7 |
if ($type eq "w" and $rOpts_line_up_parentheses)
|
|
24546
|
0 |
0 |
if ($seqno_parent and $ris_list_by_seqno->{$seqno_parent})
|
|
24551
|
0 |
7 |
$is_soft_keep_break_type{$type} ? :
|
|
24559
|
0 |
7 |
if ($flag)
|
|
24564
|
0 |
0 |
unless ($match)
|
|
24565
|
0 |
0 |
if ($token eq '(' or $token eq ')') { }
|
|
|
0 |
0 |
elsif ($token eq '{' or $token eq '}') { }
|
|
24574
|
0 |
0 |
if ($flag eq 'b') { }
|
|
|
0 |
0 |
elsif ($flag eq 'B') { }
|
|
24587
|
0 |
0 |
if ($match)
|
|
24589
|
0 |
0 |
$is_soft_keep_break_type{$type} ? :
|
|
24622
|
2 |
656 |
if ($rOpts->{'break-at-old-method-breakpoints'})
|
|
24626
|
0 |
16 |
unless (defined $Kfirst)
|
|
24635
|
4 |
12 |
if ($type eq '->') { }
|
|
|
2 |
10 |
elsif ($token eq ')') { }
|
|
24639
|
0 |
4 |
unless defined $Kp
|
|
24640
|
0 |
4 |
if $is_opening_type{$rLL->[$Kp][6]}
|
|
24644
|
0 |
4 |
unless defined $Kn
|
|
24646
|
0 |
4 |
if $token_n eq "{" or $token_n eq "["
|
|
24656
|
0 |
2 |
unless defined $Kn
|
|
24657
|
0 |
2 |
if $Kn > $Klast
|
|
24658
|
0 |
2 |
if $rLL->[$Kn][6] ne "->"
|
|
24660
|
0 |
2 |
unless $seqno
|
|
24675
|
0 |
2 |
unless defined $Kn
|
|
24677
|
0 |
2 |
if $token_n eq "{" or $token_n eq "["
|
|
24691
|
657 |
1 |
unless %keep_break_before_type or %keep_break_after_type
|
|
24696
|
0 |
16 |
unless (defined $Kfirst)
|
|
24718
|
3 |
655 |
if $rOpts->{'indent-only'}
|
|
24719
|
6 |
649 |
unless $rOpts_add_newlines
|
|
24739
|
14 |
635 |
if %{$rcuddled_block_types;}
|
|
24741
|
23 |
626 |
if ($rOpts->{'weld-nested-containers'})
|
|
24768
|
0 |
112 |
if ($Kend <= $Kstart)
|
|
24786
|
17 |
95 |
if (defined $rK_weld_right->{$Kend} and not defined $rK_weld_left->{$Kstart})
|
|
24795
|
9 |
640 |
if (@K_multi_weld)
|
|
24800
|
0 |
17 |
if $Kstart <= $Kend
|
|
24806
|
0 |
19 |
if ($Knext <= $Kend)
|
|
24845
|
0 |
14 |
unless %{$rcuddled_block_types;}
|
|
24848
|
0 |
14 |
unless defined $rLL and @{$rLL;}
|
|
24868
|
0 |
416 |
unless ($type_sequence)
|
|
24869
|
0 |
0 |
if $KK == 0
|
|
24886
|
74 |
342 |
if ($level < $last_level) { }
|
|
|
74 |
268 |
elsif ($level > $last_level) { }
|
|
24895
|
182 |
234 |
unless $type eq $token
|
|
24897
|
73 |
161 |
if ($token eq '{') { }
|
|
|
73 |
88 |
elsif ($token eq '}') { }
|
|
24900
|
0 |
73 |
unless ($block_type)
|
|
24904
|
0 |
0 |
unless $Kp
|
|
24907
|
22 |
51 |
if ($in_chain{$level}) { }
|
|
24916
|
1 |
21 |
if ($is_if_unless_elsif_else{$closing_block_type} and not $is_if_unless_elsif_else{$block_type})
|
|
24924
|
21 |
0 |
if (defined $Ko)
|
|
24930
|
0 |
21 |
unless defined $Kon
|
|
24931
|
0 |
21 |
if $rLL->[$Kon][6] eq "#"
|
|
24934
|
2 |
19 |
if ($BLPC)
|
|
24937
|
1 |
1 |
if $lx_next - $lx_close > 1
|
|
24942
|
0 |
0 |
unless ($rline_diff_by_seqno->{$closing_seqno} or $rbreak_container->{$closing_seqno})
|
|
24945
|
0 |
0 |
unless $CBO == 2
|
|
24955
|
20 |
0 |
if $CBO
|
|
24969
|
0 |
51 |
if ($rcuddled_block_types->{$block_type}) { }
|
|
24979
|
73 |
0 |
if ($in_chain{$level})
|
|
24984
|
10 |
63 |
unless $Knn
|
|
24988
|
22 |
41 |
if ($rcuddled_block_types->{$chain_type}{$next_nonblank_token}) { }
|
|
25024
|
0 |
23 |
unless defined $rLL and @{$rLL;}
|
|
25040
|
132 |
116 |
if $K_outer_closing < $Num and $rLL->[$K_outer_closing][6] eq "b"
|
|
25044
|
4 |
244 |
if $K_outer_closing >= $Num
|
|
25046
|
145 |
99 |
unless $outer_seqno
|
|
25052
|
27 |
72 |
if $diff < 1 or $diff > 2
|
|
25055
|
3 |
69 |
unless $is_closing_token{$token_outer_closing}
|
|
25059
|
8 |
61 |
if ($rtype_count)
|
|
25060
|
5 |
3 |
if $rtype_count->{','} or $rtype_count->{';'}
|
|
25067
|
57 |
7 |
if ($weld_ok)
|
|
25128
|
0 |
65 |
if ($seqno_diff < 1 or $seqno_diff > 2)
|
|
25137
|
64 |
1 |
unless (defined $rLL)
|
|
25151
|
0 |
65 |
unless defined $K_outer_opening
|
|
25152
|
0 |
65 |
unless defined $K_inner_opening
|
|
25157
|
3 |
62 |
if ($seqno_diff == 2)
|
|
25162
|
0 |
3 |
unless defined $K_io_check
|
|
25163
|
3 |
0 |
if ($K_io_check < $K_inner_opening)
|
|
25181
|
1 |
2 |
if not $inner_blocktype or $inner_blocktype ne "sub"
|
|
25182
|
0 |
2 |
if $rLL->[$K_io_check][4] ne "("
|
|
25202
|
0 |
2 |
unless defined $K_signature_closing
|
|
25205
|
0 |
2 |
if $Kdiff > 4
|
|
25209
|
0 |
0 |
if $rtc and $rtc->{','}
|
|
25219
|
0 |
64 |
if ($K_diff < 0)
|
|
25242
|
82 |
118 |
if $rLL->[$Kn][6] eq "b"
|
|
25243
|
65 |
53 |
unless ($nonblank_count)
|
|
25244
|
61 |
57 |
if ($Kn eq $K_inner_opening)
|
|
25251
|
0 |
57 |
if ($type eq "#")
|
|
25253
|
9 |
48 |
if $is_name and $last_is_name
|
|
25256
|
1 |
47 |
if $type eq "m" and not $last_type
|
|
25259
|
3 |
44 |
if $nonblank_count > 2
|
|
25263
|
0 |
64 |
if $saw_comment
|
|
25267
|
2 |
37 |
if (defined $Kn_last_nonblank and $rLL->[$K_inner_opening][4] eq "(" and $rLL->[$Kn_last_nonblank][6] eq "k")
|
|
25274
|
0 |
2 |
if ($is_sort_map_grep{$token})
|
|
25328
|
12 |
2 |
unless defined $rLL
|
|
25330
|
0 |
14 |
unless defined $flag
|
|
25331
|
0 |
14 |
if $flag eq 0
|
|
25332
|
0 |
14 |
if $flag eq 1
|
|
25333
|
0 |
14 |
if $flag eq "*"
|
|
25334
|
0 |
14 |
unless $seqno
|
|
25336
|
0 |
14 |
unless defined $K_opening
|
|
25340
|
14 |
0 |
if (defined $Kp)
|
|
25353
|
0 |
14 |
if ($flag eq 'k') { }
|
|
|
6 |
8 |
elsif ($flag eq 'K') { }
|
|
|
2 |
6 |
elsif ($flag eq 'f') { }
|
|
|
0 |
6 |
elsif ($flag eq 'F') { }
|
|
|
6 |
0 |
elsif ($flag eq 'w') { }
|
|
|
0 |
0 |
elsif ($flag eq 'W') { }
|
|
25382
|
21 |
14 |
unless defined $rflags
|
|
25383
|
7 |
7 |
$is_leading ? :
|
|
25384
|
4 |
10 |
unless defined $flag
|
|
25385
|
4 |
6 |
if $flag eq "*"
|
|
25450
|
46 |
9 |
if (defined $Kprev)
|
|
25456
|
1 |
45 |
if ($Kouter_opening == $Kfirst and $token_oo eq '(' and $has_tight_paren{$type_prev}) { }
|
|
|
0 |
45 |
elsif ($rOpts_line_up_parentheses or $want_break_before{$type_prev}) { }
|
|
25476
|
0 |
0 |
if ($no_previous_seq_item and substr($type_prev, 0, 1) eq "=")
|
|
25483
|
0 |
0 |
if ($type_prev eq "=>")
|
|
25489
|
0 |
0 |
if $rLL->[$KK][6] eq "b"
|
|
25495
|
0 |
0 |
if $nb_count or $rLL->[$KK][6] ne "w"
|
|
25510
|
49 |
6 |
if ($Kref < $Kouter_opening)
|
|
25515
|
8 |
6 |
if ($rLL->[$Knext][3] == $level_oo)
|
|
25516
|
4 |
4 |
if ($is_ternary{$rLL->[$Knext][6]} or $rLL->[$Knext][4] eq ")")
|
|
25524
|
0 |
10 |
if ($Knext <= $Knext_last)
|
|
25537
|
0 |
49 |
if ($Kref < $Kouter_opening and $Kref == $Kfirst and $rLL->[$Kref][4] eq "{")
|
|
25542
|
0 |
0 |
if ($seqno_ref)
|
|
25544
|
0 |
0 |
if ($block_type)
|
|
25548
|
0 |
0 |
if ($ln_ref_c > $ln_ref_o)
|
|
25557
|
7 |
48 |
$Kref <= 0 ? :
|
|
25568
|
49 |
6 |
if ($Kref < $Kouter_opening)
|
|
25580
|
1 |
48 |
if ($lentot_oo + $maximum_text_length_oo < $starting_lentot + $maximum_text_length)
|
|
25604
|
0 |
0 |
if ($starting_ci and $rOpts_line_up_parentheses and $rOpts_delete_old_whitespace and not $rOpts_add_whitespace and $rLL->[$Kinner_opening][6] ne "q" and $rLL->[$Kinner_opening][6] ne "Q" and defined $Kprev)
|
|
25616
|
0 |
0 |
if ($Kprev >= 0)
|
|
25631
|
0 |
0 |
unless ($is_good_location)
|
|
25649
|
0 |
10 |
$Kfirst <= 0 ? :
|
|
25656
|
0 |
10 |
if ($rOpts_ignore_side_comment_lengths and $rLL->[$Klast][6] eq "#")
|
|
25660
|
0 |
0 |
if (defined $Kprev and $Kprev >= $Kfirst)
|
|
25713
|
1 |
22 |
unless defined $rnested_pairs and @{$rnested_pairs;}
|
|
25769
|
0 |
22 |
$opening_vertical_tightness{'('} ? :
|
|
25789
|
29 |
28 |
if (defined $starting_lentot and $outer_seqno != $pair_last->[0])
|
|
25802
|
4 |
53 |
if ($Kinner_closing - $Kinner_opening <= 4)
|
|
25804
|
0 |
4 |
unless defined $Knext_nonblank
|
|
25806
|
4 |
0 |
unless $type eq "h"
|
|
25818
|
1 |
52 |
if ($inner_opening->[6] eq "L")
|
|
25830
|
0 |
52 |
if ($inner_opening->[6] eq "[")
|
|
25832
|
0 |
0 |
unless $rtype_count and $rtype_count->{','}
|
|
25838
|
0 |
0 |
unless $adjacent_opening_tokens
|
|
25847
|
0 |
52 |
if ($inner_level >= $high_stress_level)
|
|
25850
|
0 |
0 |
if ($rOpts_line_up_parentheses and $inner_level + 1 >= $high_stress_level and $inner_opening->[4] eq "(" and $ris_list_by_seqno->{$inner_seqno})
|
|
25859
|
0 |
52 |
$high_stress_level - $inner_level <= 1 ? :
|
|
25877
|
0 |
52 |
if (not $do_not_weld_rule and $rOpts_break_at_old_method_breakpoints and $iline_io > $iline_oo)
|
|
25884
|
0 |
0 |
unless defined $rK_range
|
|
25886
|
0 |
0 |
unless defined $Kfirst
|
|
25887
|
0 |
0 |
if ($rLL->[$Kfirst][6] eq "->")
|
|
25893
|
0 |
52 |
if $do_not_weld_rule
|
|
25900
|
0 |
8 |
if (%opening_vertical_tightness and $iline_ic == $iline_io and $opening_vertical_tightness{$token_oo})
|
|
25930
|
0 |
0 |
if (not $is_multiline_weld and $iline_ic == $iline_io + 1 and $token_oo eq "(" and $token_io eq "(")
|
|
25944
|
48 |
4 |
if (not defined $starting_lentot or not $weld_count_this_start and $iline_oo > $iline_outer_opening) { }
|
|
25962
|
0 |
0 |
if (not $new_weld_ok and $iline_oo != $iline_io || $iline_ic != $iline_oc)
|
|
25978
|
4 |
44 |
if ($iline_oo == $iline_oc)
|
|
26022
|
1 |
3 |
if ($level_oc > $level_last)
|
|
26027
|
1 |
3 |
if ($Kouter_opening > $Kfirst and $level_oo > $level_first)
|
|
26033
|
0 |
1 |
if $rLL->[$KK][6] eq "b"
|
|
26034
|
1 |
0 |
if $rLL->[$KK][3] < $level_oo
|
|
26051
|
0 |
0 |
if ($is_one_line_weld and $rOpts_line_up_parentheses and not $ris_list_by_seqno->{$inner_seqno} and not $rhas_list->{$inner_seqno})
|
|
26086
|
1 |
2 |
if ($iline_oc == $iline_oo + 1 and $iline_io == $iline_ic and $token_oo eq "(")
|
|
26093
|
1 |
0 |
defined $Knext_nonblank ? :
|
|
26097
|
1 |
0 |
if ($next_nonblank_type eq ";")
|
|
26102
|
0 |
1 |
if ($Knext_seq_item == $Kinner_closing)
|
|
26154
|
6 |
0 |
if (not $do_not_weld_rule || $is_one_line_weld and $iline_ic == $iline_io and $iline_oo != $iline_io || $token_oo eq '(' && !$adjacent_opening_tokens)
|
|
26180
|
0 |
0 |
if (not $do_not_weld_rule and $rOpts_line_up_parentheses and $rOpts_asbl and $ris_asub_block->{$outer_seqno})
|
|
26192
|
46 |
6 |
unless ($do_not_weld_rule)
|
|
26205
|
0 |
46 |
unless defined $Knext_io
|
|
26210
|
7 |
39 |
if ($type_io_next eq "w")
|
|
26212
|
0 |
7 |
unless defined $Knext_io2
|
|
26214
|
0 |
7 |
unless ($type_ok_after_bareword{$type_io_next2})
|
|
26222
|
27 |
19 |
$is_one_line_weld || $is_multiline_weld ? :
|
|
26238
|
0 |
46 |
if ($excess > 0)
|
|
26265
|
2 |
44 |
if (not $do_not_weld_rule and $rOpts->{'cuddled-else'})
|
|
26267
|
1 |
1 |
if ($block_type and $rcuddled_block_types->{'*'}{$block_type})
|
|
26271
|
0 |
1 |
if ($oo_line < $io_line and $ic_line == $io_line)
|
|
26278
|
6 |
10 |
if (not $do_not_weld_rule and %weld_nested_exclusion_rules and $self->is_excluded_weld($Kouter_opening, $starting_new_weld) || $self->is_excluded_weld($Kinner_opening, 0))
|
|
26290
|
12 |
40 |
if ($do_not_weld_rule) { }
|
|
|
36 |
4 |
elsif ($starting_new_weld) { }
|
|
26296
|
12 |
0 |
defined $Kprev ? :
|
|
26297
|
11 |
1 |
unless ($has_tight_paren{$type_prev})
|
|
26322
|
12 |
0 |
if (not @welds or @{$welds[-1];} < 4)
|
|
26329
|
0 |
0 |
if ($rLL->[$Kouter_opening][4] ne "{" or $rLL->[$Kouter_opening][0])
|
|
26379
|
3 |
1 |
if ($iline_ic - $iline_io > 1)
|
|
26385
|
2 |
1 |
if ($is_chain_end)
|
|
26393
|
40 |
0 |
if ($dlevel != 0)
|
|
26406
|
39 |
1 |
if ($weld_starts_in_block)
|
|
26425
|
1 |
22 |
if defined $rflags and defined $rflags->[1]
|
|
26428
|
0 |
22 |
unless defined $rLL and @{$rLL;}
|
|
26451
|
39 |
32 |
if $test_type eq "b"
|
|
26452
|
0 |
32 |
if $test_type ne $quote_type
|
|
26467
|
0 |
230 |
if $Kn >= $Num - 1
|
|
26469
|
132 |
98 |
if ($next_type eq "b")
|
|
26473
|
201 |
29 |
if $next_type ne "q" and $next_type ne "Q"
|
|
26475
|
22 |
7 |
if substr($next_token, 0, 1) ne "q"
|
|
26480
|
0 |
0 |
if ($rOpts_extended_line_up_parentheses and length $next_token > 3 and $rLL->[$Kouter_opening][6] eq "L" and $Kouter_opening and $$rLL[$Kouter_opening - 1][6] eq "R")
|
|
26492
|
0 |
7 |
unless $rLL->[$Kinner_closing][6] eq $next_type
|
|
26499
|
0 |
7 |
if $Kinner_closing == $Kinner_opening
|
|
26503
|
0 |
7 |
if ($inner_level >= $high_stress_level)
|
|
26511
|
0 |
7 |
unless $is_closing_token{$closing_delimiter} or $closing_delimiter eq ">"
|
|
26517
|
0 |
7 |
unless &$is_single_quote($Kinner_opening + 1, $Kinner_closing - 1, $next_type)
|
|
26543
|
0 |
2 |
if not $is_old_weld and $next_type eq "Q" and $iline_ic != $iline_oc
|
|
26551
|
0 |
7 |
unless ($ok_to_weld)
|
|
26560
|
5 |
2 |
$is_old_weld ? :
|
|
26570
|
7 |
0 |
unless ($do_not_weld)
|
|
26572
|
1 |
6 |
if ($self->is_excluded_weld($Kouter_opening, $is_leading))
|
|
26582
|
6 |
1 |
unless ($do_not_weld)
|
|
26594
|
5 |
1 |
defined $rK_weld_right->{$Kouter_closing} ? :
|
|
26595
|
0 |
6 |
if ($excess_ic + $weld_len + 2 > 0)
|
|
26604
|
1 |
6 |
if ($do_not_weld)
|
|
26628
|
0 |
6 |
if ($qw_seqno and $self->[92]{$qw_seqno}) { }
|
|
26650
|
6 |
0 |
if (length $rLL->[$Kinner_closing][4] == 1)
|
|
26667
|
1 |
89 |
unless $total_weld_count and defined $seqno
|
|
26669
|
0 |
89 |
unless defined $KK_o
|
|
26698
|
3 |
655 |
if $rOpts->{'indent-only'}
|
|
26701
|
4 |
651 |
unless defined $rLL and @{$rLL;}
|
|
26703
|
650 |
1 |
unless $rOpts->{'one-line-block-nesting'}
|
|
26735
|
0 |
4 |
unless ($type_sequence)
|
|
26736
|
0 |
0 |
if $KK == 0
|
|
26749
|
0 |
4 |
if ($total_weld_count and $self->is_welded_at_seqno($type_sequence))
|
|
26756
|
0 |
4 |
unless $type eq $token
|
|
26757
|
0 |
4 |
unless $rblock_type_of_seqno->{$type_sequence}
|
|
26764
|
1 |
3 |
if ($iline != $iline_last)
|
|
26766
|
2 |
2 |
if ($token eq "}")
|
|
26767
|
2 |
0 |
if (@open_block_stack)
|
|
26769
|
2 |
2 |
unless $token eq "{"
|
|
26774
|
0 |
2 |
unless defined $K_opening and defined $K_closing
|
|
26779
|
0 |
2 |
if $rline_diff_by_seqno->{$type_sequence} or $rbreak_container->{$type_sequence}
|
|
26783
|
0 |
2 |
$KK <= 0 ? :
|
|
26792
|
0 |
2 |
if (&$excess_length_to_K($K_closing) > 0)
|
|
26802
|
1 |
1 |
if @open_block_stack <= 1
|
|
26827
|
4 |
654 |
unless @{$rLL;}
|
|
26866
|
0 |
654 |
if ($min_starting_level < 0)
|
|
26868
|
0 |
0 |
if ($item->[3] < 0)
|
|
26874
|
0 |
654 |
unless defined $radjusted_levels and @{$radjusted_levels;}
|
|
26876
|
0 |
654 |
if ($min < 0)
|
|
26879
|
0 |
0 |
if $_ < 0
|
|
26896
|
652 |
2 |
unless %{$rseqno_non_indenting_brace_by_ix;}
|
|
26915
|
6 |
0 |
if defined $Kc
|
|
26917
|
0 |
2 |
unless @K_stack
|
|
26925
|
8 |
4 |
if ($ndeep > 0)
|
|
26933
|
6 |
2 |
if ($inc < 0)
|
|
26948
|
0 |
654 |
unless defined $rLL and @{$rLL;}
|
|
26952
|
2 |
0 |
if ($rOpts_whitespace_cycle and $rOpts_whitespace_cycle > 0 and $rOpts_whitespace_cycle < $maximum_level)
|
|
26966
|
26 |
208 |
if ($level_abs < $whitespace_last_level)
|
|
26969
|
2 |
232 |
if (not @whitespace_level_stack) { }
|
|
26973
|
26 |
206 |
if ($level_abs > $whitespace_last_level)
|
|
26977
|
0 |
25 |
if ($level > $rOpts_whitespace_cycle and $last_nonblank_type eq "{" and $last_nonblank_token eq "{" or $level > $rOpts_whitespace_cycle + 1 and $last_nonblank_token =~ /^[\{\[]$/ or $level > $rOpts_whitespace_cycle + 2)
|
|
27004
|
150 |
84 |
if ($type ne "b")
|
|
27025
|
647 |
7 |
unless %break_before_container_types
|
|
27028
|
0 |
7 |
unless defined $rLL and @{$rLL;}
|
|
27049
|
0 |
7 |
if ($rOpts_ignore_old_breakpoints)
|
|
27071
|
2 |
45 |
if $rblock_type_of_seqno->{$seqno}
|
|
27084
|
0 |
45 |
if ($total_weld_count)
|
|
27086
|
0 |
0 |
if (defined $KK_test)
|
|
27088
|
0 |
0 |
if ($seqno_inner)
|
|
27095
|
4 |
7 |
unless $is_list or $has_list and $has_list == 1
|
|
27102
|
25 |
16 |
unless $break_option
|
|
27108
|
0 |
16 |
if ($level >= $stress_level_beta)
|
|
27117
|
0 |
16 |
if $Kprev < 0
|
|
27119
|
16 |
0 |
if ($prev_type eq "b")
|
|
27121
|
0 |
16 |
if $Kprev < 0
|
|
27124
|
2 |
14 |
unless $is_equal_or_fat_comma{$prev_type}
|
|
27138
|
0 |
14 |
if ($rOpts_extended_line_up_parentheses and $break_option == 1)
|
|
27144
|
0 |
0 |
if $KK != $Kfirst
|
|
27147
|
0 |
0 |
if $rline_diff_by_seqno->{$seqno} < 2
|
|
27164
|
2 |
12 |
if ($break_option == 2)
|
|
27169
|
0 |
2 |
if ($rOpts_line_up_parentheses or $rOpts_variable_maximum_line_length or $b1469)
|
|
27178
|
0 |
0 |
unless ($is_complex)
|
|
27180
|
0 |
0 |
if ($self->is_list_by_seqno($parent))
|
|
27188
|
0 |
0 |
unless ($is_complex)
|
|
27190
|
0 |
0 |
defined $Kp ? :
|
|
27191
|
0 |
0 |
if ($is_opening_token{$token_p} and $token_p ne "(")
|
|
27197
|
0 |
0 |
if (defined $Km)
|
|
27203
|
0 |
0 |
if ($type_m eq ",")
|
|
27205
|
0 |
0 |
defined $Km ? :
|
|
27215
|
0 |
0 |
unless $is_complex
|
|
27233
|
0 |
14 |
if ($break_option == 1) { }
|
|
|
2 |
12 |
elsif ($break_option == 2) { }
|
|
|
12 |
0 |
elsif ($break_option == 3) { }
|
|
27238
|
0 |
0 |
unless $KK == $Kfirst
|
|
27247
|
1 |
1 |
if ($has_list_with_lec)
|
|
27252
|
1 |
1 |
unless ($ok_to_break)
|
|
27260
|
0 |
1 |
if ($has_list)
|
|
27263
|
1 |
0 |
if ($self->is_list_by_seqno($parent))
|
|
27269
|
0 |
2 |
unless ($ok_to_break)
|
|
27280
|
0 |
2 |
if $rOpts_line_up_parentheses
|
|
27305
|
10 |
4 |
unless $ci_flag
|
|
27309
|
2 |
2 |
if ($ci_flag == 1)
|
|
27318
|
0 |
2 |
if ($rOpts_variable_maximum_line_length)
|
|
27337
|
0 |
2 |
unless $rline_diff_by_seqno->{$seqno}
|
|
27342
|
0 |
2 |
if not $rOpts_add_whitespace and $rOpts_continuation_indentation > $rOpts_indent_columns
|
|
27346
|
0 |
2 |
if ($ris_permanently_broken->{$seqno}) { }
|
|
|
1 |
1 |
elsif ($has_list_with_lec) { }
|
|
|
0 |
1 |
elsif ($self->[41]{$seqno}) { }
|
|
27359
|
0 |
1 |
unless $rlec_count_by_seqno->{$seqno}
|
|
27367
|
0 |
1 |
%break_at_old_comma_types ? :
|
|
27370
|
0 |
1 |
if ($break_at_old_commas)
|
|
27374
|
1 |
0 |
unless ($OK or $rOpts_ignore_old_breakpoints)
|
|
27376
|
0 |
1 |
unless $rtype_count
|
|
27380
|
1 |
0 |
if ($fat_comma_count and $fat_comma_count >= 2)
|
|
27388
|
0 |
1 |
unless ($OK)
|
|
27399
|
0 |
0 |
if ($excess_length > $length_tol) { }
|
|
27429
|
0 |
2 |
unless $ci
|
|
27432
|
0 |
2 |
if ($ci_flag == 1) { }
|
|
|
2 |
0 |
elsif ($ci_flag == 2) { }
|
|
27442
|
2 |
0 |
if (not $rOpts_whitespace_cycle or $rLL->[$KK][3] < $rOpts_whitespace_cycle)
|
|
27458
|
2 |
0 |
if $ci >= 0
|
|
27498
|
0 |
8 |
unless defined $rLL and @{$rLL;}
|
|
27538
|
158 |
90 |
if ($seqno_top)
|
|
27545
|
332 |
310 |
if $rLL->[$Kt][0]
|
|
27550
|
170 |
0 |
if ($is_list or $rLL->[$Kt][5] < $space or $rLL->[$Kt][6] eq "#")
|
|
27567
|
77 |
171 |
if ($seqno_top and $seqno == $seqno_top)
|
|
27581
|
6 |
28 |
if ($block_with_ci and $rOpts_line_up_parentheses and $KK == $K_opening_container->{$seqno})
|
|
27587
|
5 |
1 |
$Kprev ? :
|
|
27588
|
2 |
4 |
if ($type_prev eq '=' or $type_prev eq ';') { }
|
|
|
0 |
4 |
elsif ($type_prev eq ',') { }
|
|
|
3 |
1 |
elsif ($type_prev eq '{') { }
|
|
27593
|
0 |
0 |
if ($self->[39]{$parent_seqno})
|
|
27599
|
3 |
0 |
if ($seqno_prev)
|
|
27601
|
0 |
3 |
if ($token_prev ne "(" or $self->[39]{$seqno})
|
|
27615
|
17 |
0 |
if ($block_with_ci and $rLL->[$KK][4] eq "}" and $rLL->[$KK][0])
|
|
27622
|
3 |
14 |
if ($block_type eq "do")
|
|
27624
|
0 |
3 |
if ($Knext and $rLL->[$Knext][6] eq "k")
|
|
27626
|
0 |
0 |
if ($token_n eq "while" or $token_n eq "until")
|
|
27632
|
17 |
0 |
unless ($is_do_while)
|
|
27637
|
15 |
233 |
if ($block_with_ci) { }
|
|
27639
|
11 |
4 |
if ($seqno_top)
|
|
27647
|
74 |
159 |
unless ($rLL->[$KK][0])
|
|
27648
|
37 |
37 |
if ($seqno_top)
|
|
27659
|
97 |
77 |
unless defined $K_opening and $KK == $K_opening
|
|
27664
|
0 |
77 |
unless defined $K_closing
|
|
27667
|
0 |
77 |
if $rno_xci_by_seqno->{$seqno}
|
|
27671
|
0 |
77 |
if ($big_ci_fix and not $ris_excluded_lp_container->{$seqno})
|
|
27675
|
0 |
0 |
if $rhas_list->{$seqno}
|
|
27682
|
0 |
77 |
if $ris_bli_container->{$seqno}
|
|
27687
|
0 |
77 |
if ($rLL->[$K_opening][2] == $rLL->[$K_closing][2] and $rLL->[$K_closing][1] - $rLL->[$K_opening][1] > $rOpts_maximum_line_length)
|
|
27712
|
0 |
77 |
if ($level >= $stress_level_beta)
|
|
27723
|
0 |
77 |
if ($space < 0)
|
|
27732
|
37 |
40 |
if $seqno_top
|
|
27754
|
629 |
2 |
unless $rOpts_bl or $rOpts_sbl or $rOpts_asbl
|
|
27757
|
0 |
25 |
unless defined $rLL and @{$rLL;}
|
|
27770
|
14 |
50 |
if ($ris_asub_block->{$seqno}) { }
|
|
|
5 |
45 |
elsif ($ris_sub_block->{$seqno}) { }
|
|
27771
|
10 |
4 |
if ($rOpts_asbl)
|
|
27778
|
4 |
1 |
if ($rOpts_sbl)
|
|
27785
|
22 |
13 |
if ($rOpts_bl and $block_type =~ /$bl_pattern/ and not $block_type =~ /$bl_exclusion_pattern/)
|
|
27802
|
648 |
6 |
unless $rOpts->{'brace-left-and-indent'}
|
|
27804
|
0 |
6 |
unless defined $rLL and @{$rLL;}
|
|
27814
|
25 |
24 |
if ($block_type and $block_type =~ /$bli_pattern/ and not $block_type =~ /$bli_exclusion_pattern/)
|
|
27822
|
25 |
0 |
if (defined $Ko and defined $Kc)
|
|
27853
|
3 |
655 |
if (not defined $rqw_lines) { }
|
|
27860
|
622 |
33 |
unless (@{$rqw_lines;})
|
|
27883
|
0 |
221 |
unless $line_type eq "CODE"
|
|
27886
|
3 |
218 |
unless defined $Kfirst and defined $Klast
|
|
27889
|
162 |
56 |
if (defined $K_start_multiline_qw)
|
|
27893
|
0 |
162 |
if ($type ne "q")
|
|
27902
|
162 |
0 |
defined $Kprev ? :
|
|
27903
|
162 |
0 |
defined $Knext ? :
|
|
27904
|
36 |
126 |
if ($type_m eq "q" and $type_p ne "q")
|
|
27914
|
45 |
173 |
if (not defined $K_start_multiline_qw and $rLL->[$Klast][6] eq "q")
|
|
27919
|
45 |
0 |
defined $Kprev ? :
|
|
27920
|
45 |
0 |
defined $Knext ? :
|
|
27921
|
36 |
9 |
if ($type_m ne "q" and $type_p eq "q")
|
|
27933
|
1 |
35 |
if ($rOpts_extended_continuation_indentation)
|
|
27942
|
0 |
1 |
unless $is_isolated_closing
|
|
27948
|
0 |
1 |
if (length $token_beg > 3 and substr($token_beg, 2, 1) =~ /\s/)
|
|
27953
|
0 |
1 |
unless length $token_beg == 3
|
|
27967
|
0 |
36 |
if ($rOpts_line_up_parentheses and not $rOpts_extended_line_up_parentheses)
|
|
27973
|
0 |
0 |
unless $parent_seqno
|
|
27979
|
0 |
0 |
defined $Kn ? :
|
|
27980
|
0 |
0 |
if (defined $seqno_n and $seqno_n eq $parent_seqno)
|
|
27983
|
0 |
0 |
defined $Kp ? :
|
|
27985
|
0 |
0 |
if (defined $seqno_p and $seqno_p eq $parent_seqno)
|
|
27990
|
0 |
0 |
unless $is_tightly_contained
|
|
28055
|
0 |
0 |
if ($total_weld_count and $block_type eq "sub")
|
|
28057
|
0 |
0 |
if (defined $KK_o and defined $self->[74]{$KK_o})
|
|
28062
|
0 |
0 |
if ($is_sort_map_grep_eval{$block_type} or $block_type eq "t" or $self->[42]{$seqno})
|
|
28115
|
1 |
26 |
if ($rLL->[$KK][6] eq "b")
|
|
28117
|
21 |
6 |
if ($KK < $K_comma and $K_closing - $K_comma > 2 || $K_closing - $K_comma == 2 && $$rLL[$K_comma + 1][6] ne 'b' and $rLL->[$K_comma][3] - 1 == $rLL->[$K_closing][3])
|
|
28152
|
0 |
0 |
if (defined $K_prev and not $is_interrupted and $K_prev >= $KK and $rLL->[$K_prev][7])
|
|
28159
|
0 |
0 |
if ($closing_vertical_tightness{$token} and $type ne "R")
|
|
28165
|
21 |
0 |
$KK >= 0 ? :
|
|
28231
|
0 |
0 |
if ($last_nonblank_type ne "=>")
|
|
28242
|
0 |
0 |
if $type eq "b"
|
|
28254
|
0 |
0 |
if ($is_weak_binary_operator_token{$type})
|
|
28258
|
0 |
0 |
if ($type eq "->")
|
|
28260
|
0 |
0 |
if ($Kt_m and $Kt_m > $K_first and $is_closing_type{$rLL->[$Kt_m][6]})
|
|
28270
|
0 |
0 |
unless $seqno
|
|
28271
|
0 |
0 |
if ($is_opening_type{$type})
|
|
28276
|
0 |
0 |
if ($Kt_m and $Kt_m > $K_first)
|
|
28279
|
0 |
0 |
$Kt_m ? :
|
|
28280
|
0 |
0 |
if ($type_m eq "->" or $is_closing_type{$type_m})
|
|
28287
|
0 |
0 |
if ($Kc and $Kc > $K_test)
|
|
28294
|
0 |
0 |
if ($rtype_count and $rtype_count->{','})
|
|
28322
|
0 |
0 |
if ($KK > 0)
|
|
28330
|
0 |
0 |
if ($ci_level) { }
|
|
28338
|
0 |
0 |
if ($level > $level_start_multiline_qw)
|
|
28343
|
0 |
0 |
if ($len > $max_prong_len)
|
|
28370
|
0 |
0 |
if (&$skip_line_length_sum($K_first, $K_terminal))
|
|
28379
|
0 |
0 |
if ($K_first == $K_terminal or $last_nonblank_type eq "=>")
|
|
28391
|
0 |
0 |
if ($K_test and $K_test < $K_first) { }
|
|
28416
|
0 |
182 |
if ($skip_next_line)
|
|
28421
|
2 |
180 |
if $line_type ne "CODE"
|
|
28425
|
37 |
143 |
if $CODE_type eq "BL"
|
|
28440
|
0 |
143 |
unless defined $K_first and defined $K_last
|
|
28445
|
7 |
136 |
if $has_comment and $K_first == $K_last
|
|
28452
|
0 |
136 |
if ($rLL->[$K_first][6] eq 'q') { }
|
|
|
12 |
124 |
elsif ($rLL->[$K_first][6] eq 'Q') { }
|
|
28455
|
0 |
0 |
if (not defined $K_start_multiline_qw) { }
|
|
28456
|
0 |
0 |
if ($K_last == $K_first)
|
|
28458
|
0 |
0 |
if (defined $Kn and $rLL->[$Kn][6] eq "q")
|
|
28471
|
0 |
0 |
if $K_begin_loop > $K_last
|
|
28478
|
3 |
9 |
if ($line_of_tokens->{'_starting_in_quote'})
|
|
28480
|
3 |
0 |
if $K_begin_loop > $K_last
|
|
28492
|
5 |
128 |
if ($has_comment)
|
|
28494
|
5 |
0 |
if $rLL->[$K_terminal][6] eq "b" and $K_terminal > $K_first
|
|
28500
|
54 |
79 |
if (@stack and $stack[-1][6])
|
|
28502
|
54 |
0 |
if (defined $K_c)
|
|
28512
|
2 |
52 |
if ($is_opening_type{$rLL->[$K_terminal][6]} and not $has_comment)
|
|
28531
|
0 |
2 |
if (defined $Kc_test and $seqno_end and $seqno_end == $rLL->[$Kc_test][7] and $rLL->[$Kc_test][2] == $iline + 1)
|
|
28543
|
0 |
0 |
if (defined $K_terminal_next and $rLL->[$K_terminal_next][6] eq "#")
|
|
28548
|
0 |
0 |
if (defined $Kprev and $Kprev >= $K_first_next)
|
|
28555
|
0 |
0 |
if (defined $K_terminal_next and $rLL->[$K_terminal_next][6] eq "," and $K_terminal_next - $Kc_test == 1 || $K_terminal_next - $Kc_test == 2 && $$rLL[$K_terminal_next - 1][6] eq 'b' and not defined $rtype_count && $rtype_count->{','} and $K_terminal_next - $K_terminal <= 5)
|
|
28594
|
5 |
5 |
if ($rix_no_comma and @{$rix_no_comma;} and $rix_no_comma->[-1] < $iline - 1 || $line_of_tokens->{'_starting_in_quote'})
|
|
28605
|
26 |
28 |
if ($is_comma_or_equals{$rLL->[$K_terminal][6]}) { }
|
|
28611
|
0 |
26 |
if (@{$rix_no_comma;})
|
|
28620
|
0 |
0 |
if (defined $K_sum_start and $Kt_m and $Kt_m > $K_first and $is_closing_type{$rLL->[$Kt_m][6]})
|
|
28629
|
0 |
0 |
unless ($rblock_type_of_seqno->{$seqno_Kt_m})
|
|
28636
|
26 |
0 |
if (defined $K_sum_start)
|
|
28643
|
18 |
8 |
if ($length > $max_prong_len)
|
|
28654
|
27 |
1 |
unless ($has_comment or $line_of_tokens->{'_ending_in_quote'})
|
|
28670
|
5 |
128 |
if ($has_comment) { }
|
|
|
0 |
128 |
elsif ($last_nonblank_type eq 'q' and $K_last > $K_first) { }
|
|
28671
|
0 |
5 |
if ($rOpts_ignore_side_comment_lengths) { }
|
|
28678
|
5 |
0 |
$K_terminal > 0 ? :
|
|
28683
|
2 |
3 |
if ($len > $max_prong_len)
|
|
28690
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq "q")
|
|
28740
|
201 |
493 |
if ($type = $rLL->[$KK][6]) eq "b"
|
|
28746
|
124 |
369 |
if ($seqno)
|
|
28753
|
62 |
62 |
if ($is_opening_token{$token} and defined $K_closing_container->{$seqno}) { }
|
|
|
62 |
0 |
elsif ($is_closing_token{$token} and @stack) { }
|
|
28763
|
10 |
52 |
if ($rblock_type_of_seqno->{$seqno}) { }
|
|
28771
|
41 |
11 |
if ($is_handle_type{$last_nonblank_type})
|
|
28776
|
0 |
41 |
if ($last_nonblank_type eq '=>' and $rbreak_before_container_by_seqno->{$seqno}) { }
|
|
28783
|
23 |
18 |
if $KK > 0 and $$rLL[$KK - 1][6] eq "b"
|
|
28807
|
17 |
0 |
if ($ris_permanently_broken->{$seqno} and $ris_list_by_seqno->{$seqno} and not $rOpts_ignore_old_breakpoints and not $rOpts_variable_maximum_line_length and $rLL->[$KK][3] + 3 < $high_stress_level)
|
|
28841
|
1 |
16 |
if ($interrupted_list_rule and $KK < $K_terminal and $is_comma_token{$rLL->[$K_terminal][6]})
|
|
28890
|
0 |
62 |
if ($seqno_o ne $seqno)
|
|
28908
|
10 |
52 |
if ($block_type)
|
|
28914
|
10 |
0 |
if (defined $K_o and defined $K_c)
|
|
28925
|
6 |
4 |
if ($block_length < 40) { }
|
|
|
0 |
4 |
elsif ($is_one_line_block and $block_length < $maximum_line_length_at_level[$level] and $self->is_fragile_block_type($block_type, $seqno)) { }
|
|
|
0 |
4 |
elsif ($collapsed_len < 40) { }
|
|
28967
|
0 |
62 |
if ($self->[93]{$seqno})
|
|
28974
|
62 |
0 |
if (@stack)
|
|
28977
|
35 |
27 |
if ($collapsed_len > $max_prong_len)
|
|
28999
|
11 |
358 |
if ($type eq '=>') { }
|
|
|
9 |
349 |
elsif ($last_nonblank_type eq '=>') { }
|
|
|
1 |
348 |
elsif ($type eq 'h') { }
|
|
29003
|
0 |
11 |
unless ($rOpts_add_whitespace)
|
|
29004
|
0 |
0 |
if (defined $$rLL[$KK + 1] and $$rLL[$KK + 1][6] ne "b")
|
|
29011
|
3 |
8 |
if ($len > $max_prong_len)
|
|
29015
|
1 |
8 |
if ($len > $max_prong_len)
|
|
29025
|
1 |
0 |
if ($len > $max_prong_len)
|
|
29031
|
63 |
285 |
if ($len > $max_prong_len)
|
|
29067
|
255 |
79 |
unless (defined $rflags)
|
|
29079
|
39 |
40 |
unless ($match_flag1)
|
|
29084
|
39 |
0 |
if (defined $Kp)
|
|
29099
|
0 |
39 |
if ($flag1 eq 'k') { }
|
|
|
0 |
39 |
elsif ($flag1 eq 'K') { }
|
|
|
13 |
26 |
elsif ($flag1 eq 'f') { }
|
|
|
13 |
13 |
elsif ($flag1 eq 'F') { }
|
|
|
0 |
13 |
elsif ($flag1 eq 'w') { }
|
|
|
13 |
0 |
elsif ($flag1 eq 'W') { }
|
|
29114
|
66 |
13 |
if ($line_up_parentheses_control_is_lpxl) { }
|
|
29115
|
45 |
21 |
if $match_flag1
|
|
29118
|
4 |
9 |
unless $match_flag1
|
|
29132
|
30 |
0 |
if ($flag2)
|
|
29141
|
7 |
8 |
if (not $is_list or $has_list or $flag2 eq 2 and $has_code_block || $has_ternary)
|
|
29158
|
624 |
34 |
unless $rOpts_line_up_parentheses
|
|
29160
|
0 |
34 |
unless defined $rLL and @{$rLL;}
|
|
29170
|
3 |
31 |
if ($rOpts_extended_continuation_indentation)
|
|
29172
|
22 |
2 |
if $rblock_type_of_seqno->{$seqno} ne "sub"
|
|
29177
|
0 |
2 |
unless defined $Ko_pp
|
|
29182
|
1 |
1 |
if ($type_o_pp eq ";" or $type_o_pp eq "=" or $type_o_pp eq "{")
|
|
29187
|
0 |
1 |
unless $Kc_n
|
|
29189
|
1 |
0 |
if $type_c_n eq ";"
|
|
29194
|
0 |
0 |
if $type_c_n eq "}" and $seqno_c_n and $rblock_type_of_seqno->{$seqno_c_n}
|
|
29205
|
0 |
377 |
unless defined $KK
|
|
29208
|
43 |
334 |
if (my $block_type = $rblock_type_of_seqno->{$seqno})
|
|
29214
|
32 |
11 |
unless %is_asub_in_list
|
|
29218
|
1 |
10 |
if ($is_asub_in_list{$seqno})
|
|
29220
|
1 |
0 |
if ($Kc and $Kc > $K_end_current_asub)
|
|
29228
|
1 |
1 |
if ($KK < $K_end_current_asub and $is_if_unless_while_until_for_foreach{$block_type})
|
|
29239
|
0 |
1 |
if not defined $K_paren or $rLL->[$K_paren][4] ne ")"
|
|
29242
|
1 |
0 |
if (defined $seqno_paren)
|
|
29250
|
71 |
263 |
if ($self->is_excluded_lp($KK))
|
|
29262
|
643 |
8 |
unless %keep_old_blank_lines_exceptions
|
|
29290
|
0 |
2 |
if $ii < 0
|
|
29293
|
0 |
2 |
if $line_type ne "CODE"
|
|
29297
|
0 |
2 |
unless defined $Klast
|
|
29324
|
0 |
42 |
if $line_type ne "CODE"
|
|
29332
|
0 |
42 |
unless defined $Klast
|
|
29337
|
9 |
33 |
if ($type_last eq "#")
|
|
29340
|
6 |
3 |
if ($Klast eq $Kfirst)
|
|
29343
|
2 |
4 |
if ($top_control->{$type_last})
|
|
29348
|
1 |
1 |
defined $Kn && $rLL->[$Kn][6] eq '#' ? :
|
|
29359
|
0 |
3 |
if not defined $Klast or $Klast < $Kfirst
|
|
29364
|
5 |
31 |
if ($top_control->{$type_last})
|
|
29368
|
0 |
5 |
if ($type_last ne "{" and $type_last ne "}")
|
|
29374
|
0 |
5 |
unless $seqno
|
|
29376
|
4 |
1 |
if ($block_type and $block_type =~ /$Blank_lines_after_opening_block_pattern/)
|
|
29383
|
3 |
1 |
if ($Klast_true == $Klast)
|
|
29387
|
0 |
1 |
if (not defined $Kn or $rLL->[$Kn][6] ne "#")
|
|
29397
|
1 |
0 |
if ($token =~ /$static_side_comment_pattern/)
|
|
29402
|
0 |
0 |
unless defined $rinfo
|
|
29406
|
0 |
0 |
if ($CODE_type_bottom eq "SBC" or $CODE_type_bottom eq "SBCX")
|
|
29445
|
0 |
70 |
if $line_type ne "CODE"
|
|
29449
|
0 |
70 |
unless defined $Klast
|
|
29451
|
20 |
50 |
if ($type_last eq "#")
|
|
29454
|
15 |
5 |
if ($Klast eq $Kfirst)
|
|
29457
|
3 |
12 |
if ($bottom_control->{$type_last})
|
|
29462
|
1 |
2 |
if (not defined $Kp or $rLL->[$Kp][6] ne "#")
|
|
29470
|
0 |
2 |
unless defined $rinfo
|
|
29476
|
1 |
1 |
if ($Kfirst_top == $Klast_top)
|
|
29481
|
0 |
1 |
if ($type_top ne "#")
|
|
29493
|
1 |
0 |
if ($token_top =~ /$Static_side_comment_pattern/)
|
|
29500
|
0 |
0 |
if ($CODE_type eq "SBC" or $CODE_type eq "SBCX")
|
|
29515
|
0 |
5 |
if not defined $Klast or $Klast < $Kfirst
|
|
29526
|
30 |
25 |
if ($type_first eq "k")
|
|
29527
|
2 |
4 |
if ($bottom_control->{'{'} and $is_if_unless_while_until_for_foreach{$token_first} and not $rLL->[$Kfirst][0])
|
|
29540
|
6 |
22 |
if ($bottom_control->{'S'})
|
|
29541
|
0 |
6 |
if ($token_first eq "BEGIN" or $token_first eq "END")
|
|
29549
|
5 |
20 |
if ($bottom_control->{$type_first})
|
|
29552
|
2 |
3 |
if ($type_first eq '}') { }
|
|
|
1 |
2 |
elsif ($type_first eq 'P') { }
|
|
|
2 |
0 |
elsif ($type_first eq 'S') { }
|
|
29554
|
0 |
2 |
unless $seqno
|
|
29556
|
0 |
2 |
unless $block_type
|
|
29557
|
2 |
0 |
if ($block_type =~ /$Blank_lines_before_closing_block_pattern/)
|
|
29593
|
0 |
112 |
unless (defined $i_first_blank and defined $i_last_blank)
|
|
29597
|
42 |
70 |
if ($top_control and $i_first_blank > 0)
|
|
29602
|
70 |
36 |
if (not $delete_blanks and $bottom_control and not $ending_in_blank)
|
|
29608
|
16 |
96 |
if ($delete_blanks)
|
|
29612
|
2 |
14 |
if ($delete_blanks < 0)
|
|
29614
|
14 |
0 |
unless (defined $rwant_blank_line_after->{$ii})
|
|
29631
|
0 |
288 |
if ($line_type ne "CODE")
|
|
29632
|
0 |
0 |
if (defined $i_last_blank)
|
|
29638
|
112 |
176 |
if ($CODE_type eq 'BL') { }
|
|
29639
|
112 |
0 |
unless (defined $i_first_blank)
|
|
29645
|
112 |
64 |
if (defined $i_first_blank)
|
|
29650
|
0 |
8 |
if (defined $i_first_blank)
|
|
29681
|
651 |
7 |
if $rOpts_keep_old_blank_lines == 1
|
|
29691
|
12 |
9141 |
if (defined $rwant_blank_line_after->{$i} and $rwant_blank_line_after->{$i} == 1)
|
|
29723
|
14 |
9139 |
if ($last_line_type eq "POD_END" and not $saw_END_or_DATA)
|
|
29726
|
0 |
12 |
unless ($in_format_skipping_section or $input_line =~ /^\s*$/)
|
|
29732
|
8893 |
260 |
if ($line_type eq 'CODE') { }
|
|
29738
|
1057 |
7836 |
if ($CODE_type eq 'BL') { }
|
|
29750
|
17 |
991 |
if ($kgb_keep == 1 and defined $rwant_blank_line_after->{$i} and $rwant_blank_line_after->{$i} == 2)
|
|
29758
|
0 |
1057 |
if ($i - $i_last_POD_END < 3 and not $kgb_keep)
|
|
29762
|
1015 |
42 |
if ($kgb_keep)
|
|
29774
|
3 |
7833 |
if ($save_logfile and $logger_object)
|
|
29779
|
3 |
0 |
if (defined $Kfirst)
|
|
29793
|
151 |
7685 |
if ($CODE_type eq "VB" or $CODE_type eq "FS")
|
|
29808
|
73 |
187 |
if (substr($line_type, 0, 3) eq 'POD') { }
|
|
|
8 |
179 |
elsif ($line_type eq 'END_START' or $line_type eq 'DATA_START') { }
|
|
|
2 |
177 |
elsif ($line_type eq 'SKIP_END') { }
|
|
|
96 |
81 |
elsif ($line_type eq 'HERE' or $line_type eq 'HERE_END') { }
|
|
29813
|
12 |
61 |
if ($rOpts->{'delete-pod'})
|
|
29814
|
6 |
67 |
if ($rOpts->{'trim-pod'})
|
|
29819
|
10 |
45 |
if (not $skip_line || $in_format_skipping_section and $line_type eq "POD_START" and not $saw_END_or_DATA)
|
|
29845
|
7 |
89 |
if ($last_line_type eq "CODE" and @{$self->[114];})
|
|
29857
|
248 |
12 |
unless ($skip_line)
|
|
29921
|
0 |
646 |
if ($rOpts_kgb_size_min and not $rOpts_kgb_size_min =~ /^\d+$/ or $rOpts_kgb_size_max and not $rOpts_kgb_size_max =~ /^\d+$/)
|
|
29933
|
0 |
646 |
unless $rOpts_kgb_size_min
|
|
29935
|
0 |
646 |
if ($rOpts_kgb_size_max and $rOpts_kgb_size_max < $rOpts_kgb_size_min)
|
|
29951
|
640 |
6 |
unless $ok
|
|
29954
|
0 |
0 |
if ($rOpts_kgb_size_max and $rOpts_kgb_after == 2 and $rOpts_kgb_before == 0)
|
|
30010
|
640 |
6 |
if ($quit)
|
|
30033
|
0 |
12 |
if (defined $rhash_of_desires->{$ip} and $rhash_of_desires->{$ip} == 2)
|
|
30045
|
0 |
9 |
unless $rOpts_kgb_inside
|
|
30064
|
5 |
18 |
if ($num >= $rOpts_kgb_size_min)
|
|
30071
|
0 |
0 |
if (@iblanks and not $rOpts_kgb_delete and $rOpts->{'keep-old-blank-lines'})
|
|
30083
|
3 |
2 |
if ($nog_b and $k > $kbeg)
|
|
30086
|
2 |
3 |
if ($nog_e and $k < $kend)
|
|
30101
|
0 |
0 |
if $i < 0 or $i >= @{$rlines;}
|
|
30102
|
0 |
0 |
if $rlines->[$i]{'_line_type'} ne "CODE"
|
|
30104
|
0 |
0 |
if ($code_type eq "BL")
|
|
30111
|
5 |
1 |
unless @iblanks
|
|
30114
|
1 |
0 |
if ($ibl < $iend)
|
|
30119
|
0 |
1 |
unless $rOpts_kgb_delete
|
|
30139
|
9 |
16 |
if (defined $ibeg and $ibeg >= 0)
|
|
30142
|
6 |
3 |
if ($count >= $rOpts_kgb_size_min)
|
|
30150
|
6 |
0 |
if ($ibeg > 0)
|
|
30155
|
2 |
4 |
if ($ibeg == 1 and not $code_type)
|
|
30157
|
1 |
1 |
if $line_text and $line_text =~ /^#/
|
|
30163
|
4 |
2 |
unless ($code_type =~ /(?:BC|SBC|SBCX)/)
|
|
30164
|
4 |
0 |
if ($rOpts_kgb_before == 2) { }
|
|
|
0 |
0 |
elsif ($rOpts_kgb_before == 0) { }
|
|
30182
|
5 |
1 |
if ($line_type eq "CODE" and defined $K_first)
|
|
30192
|
3 |
0 |
if ($level == $level_beg and $ci_level == 0 and not $bad_ending and $iend < @{$rlines;} and $CODE_type ne "HSC")
|
|
30198
|
3 |
0 |
if ($rOpts_kgb_after == 2) { }
|
|
|
0 |
0 |
elsif ($rOpts_kgb_after == 0) { }
|
|
30233
|
0 |
75 |
unless defined $Knext_nonblank
|
|
30236
|
68 |
7 |
if $level_next != $level_beg + 1
|
|
30240
|
0 |
7 |
unless defined $parent_seqno
|
|
30244
|
0 |
7 |
if $total_weld_count and $self->is_welded_at_seqno($parent_seqno)
|
|
30249
|
0 |
7 |
if not defined $Ko or $Ko <= $K_first or $Ko > $K_last
|
|
30253
|
0 |
7 |
if not defined $Kc or $Kc <= $K_last
|
|
30267
|
0 |
75 |
if ($rOpts_kgb_size_max and $count >= $rOpts_kgb_size_max)
|
|
30271
|
9 |
66 |
if (@group == 0)
|
|
30281
|
23 |
52 |
if (not @group or $token ne $group[-1][1])
|
|
30316
|
12 |
646 |
unless ($rOpts_maximum_consecutive_blank_lines)
|
|
30324
|
640 |
6 |
if ($quit)
|
|
30341
|
0 |
180 |
if $Opt_repeat_count > 0 and $number_of_groups_seen >= $Opt_repeat_count
|
|
30349
|
5 |
175 |
if ($line_type ne "CODE")
|
|
30354
|
0 |
175 |
if ($CODE_type and $CODE_type eq "FS")
|
|
30360
|
6 |
169 |
if ($CODE_type eq "VB")
|
|
30361
|
6 |
0 |
if ($ibeg >= 0)
|
|
30366
|
5 |
164 |
if ($CODE_type eq "BL")
|
|
30367
|
3 |
2 |
if ($ibeg >= 0)
|
|
30381
|
0 |
164 |
unless (defined $K_first)
|
|
30404
|
118 |
46 |
if ($ibeg >= 0)
|
|
30407
|
19 |
99 |
if (defined $K_closing and $K_first < $K_closing) { }
|
|
|
1 |
98 |
elsif ($level != $level_beg) { }
|
|
30408
|
1 |
18 |
if $level != $level_beg + 1
|
|
30421
|
36 |
128 |
unless ($self->is_in_block_by_K($K_first))
|
|
30422
|
16 |
20 |
if ($ibeg >= 0)
|
|
30427
|
0 |
5 |
if ($CODE_type and $keyword_group_list_comment_pattern and $CODE_type =~ /$keyword_group_list_comment_pattern/)
|
|
30435
|
0 |
0 |
if ($ibeg >= 0 and $level == $level_beg) { }
|
|
30444
|
0 |
0 |
if ($ibeg >= 0)
|
|
30452
|
75 |
53 |
if ($ci_level == 0 and $type eq 'k' and $token =~ /$keyword_group_list_pattern/) { }
|
|
|
34 |
19 |
elsif ($ibeg >= 0) { }
|
|
30458
|
66 |
9 |
if ($ibeg >= 0 and $level == $level_beg) { }
|
|
30467
|
0 |
9 |
if ($ibeg >= 0)
|
|
30479
|
0 |
34 |
if ($level > $level_beg + 1 or $level < $level_beg)
|
|
30488
|
25 |
9 |
if ($level == $level_beg and $ci_level > 0 or $CODE_type eq "HSC")
|
|
30497
|
4 |
5 |
if (defined $K_closing and $K_first <= $K_closing)
|
|
30500
|
3 |
1 |
if ($K_last <= $K_closing)
|
|
30504
|
0 |
1 |
if ($rLL->[$KK][6] eq ";")
|
|
30505
|
0 |
0 |
if ($KK < $K_last)
|
|
30506
|
0 |
0 |
if ($$rLL[++$KK][6] eq "b")
|
|
30507
|
0 |
0 |
if ($KK > $K_last or $rLL->[$KK][6] ne "#")
|
|
30659
|
0 |
5644 |
if $ii < 0
|
|
30661
|
511 |
5133 |
ref $indentation ? :
|
|
30733
|
58903 |
5658 |
if ($max_index_to_go >= 0) { }
|
|
30734
|
0 |
58903 |
if ($Ktoken_vars != $K_to_go[$max_index_to_go] + 1) { }
|
|
|
0 |
58903 |
elsif ($type eq 'b' and $types_to_go[$max_index_to_go] eq 'b') { }
|
|
30760
|
217 |
5441 |
if ($type eq "b")
|
|
30764
|
5441 |
58903 |
unless (++$max_index_to_go)
|
|
30782
|
1034 |
4407 |
if ($seqno) { }
|
|
30787
|
4012 |
395 |
if (defined $Kt)
|
|
30790
|
609 |
3403 |
if ($is_closing_type{$rLL->[$Kt][6]}) { }
|
|
30801
|
0 |
5441 |
unless defined $next_parent_seqno
|
|
30857
|
11043 |
53301 |
if ($seqno)
|
|
30864
|
5355 |
5688 |
if ($is_opening_token{$token}) { }
|
|
|
5304 |
384 |
elsif ($is_closing_token{$token}) { }
|
|
30880
|
0 |
5304 |
unless defined $parent_seqno
|
|
30896
|
38457 |
25887 |
if ($ci_level)
|
|
30902
|
21 |
64323 |
if ($current_line_starts_in_quote and $Ktoken_vars == $K_first)
|
|
30906
|
21 |
0 |
if ($max_index_to_go == 0)
|
|
30927
|
0 |
5438 |
if $max_index_to_go < 0
|
|
30932
|
21 |
5417 |
if $starting_in_quote
|
|
30933
|
187 |
5251 |
if $ending_in_quote
|
|
30935
|
1335 |
4103 |
if ($CODE_type or $last_CODE_type)
|
|
30936
|
1281 |
54 |
$K_to_go[$max_index_to_go] >= $K_first ? :
|
|
30947
|
21 |
5417 |
if ($is_static_block_comment and not $last_line_had_side_comment)
|
|
30971
|
0 |
5871 |
if ($max_index_to_go < 0)
|
|
30981
|
4767 |
1104 |
if ($types_to_go[$max_index_to_go] ne "#")
|
|
30986
|
50 |
4717 |
if $total_weld_count and $self->[74]{$K_to_go[$max_index_to_go]}
|
|
30990
|
487 |
4230 |
if (defined $index_start_one_line_block)
|
|
31018
|
293 |
1944 |
if ($max_index_to_go >= 0)
|
|
31023
|
189 |
104 |
if ($CODE_type_flush and $CODE_type_flush eq 'BL') { }
|
|
31050
|
0 |
2 |
if (not $K_dangling_elsif or $K_dangling_elsif < $K_first or $rLL->[$K_dangling_elsif][6] ne "}")
|
|
31060
|
0 |
2 |
if (substr($comment, 0, 1) ne "#")
|
|
31108
|
0 |
7685 |
unless (defined $rK_range->[0])
|
|
31133
|
119 |
7566 |
if (not $rOpts_add_newlines or $CODE_type eq "NIN")
|
|
31140
|
1173 |
6512 |
if ($rLL->[$K_last][6] eq "#")
|
|
31141
|
786 |
387 |
if ($K_last == $K_first and $CODE_type ne 'HSC') { }
|
|
31153
|
4 |
7681 |
if ($CODE_type eq "VER")
|
|
31161
|
2770 |
4915 |
if ($max_index_to_go >= 0)
|
|
31164
|
2589 |
139 |
if (not $is_block_comment and $types_to_go[$max_index_to_go] ne "b" and $K_first > 0 and $$rLL[$K_first - 1][6] eq "b")
|
|
31181
|
786 |
6899 |
if ($is_block_comment)
|
|
31183
|
21 |
765 |
if ($rOpts_delete_block_comments)
|
|
31193
|
20 |
1 |
unless ($is_no_critic)
|
|
31200
|
39 |
727 |
if $max_index_to_go >= 0
|
|
31203
|
53 |
0 |
if ($self->[55] ne "#" and $self->[55] ne "b" and $rOpts->{'blanks-before-comments'} and $rtok_first->[4] ne '#' || $last_line_had_side_comment && $rLL->[$K_first][3] > 0 and not $self->[54] and not $is_static_block_comment and $rOpts->{'blanks-before-opening-comments'} || $rLL->[$K_first][3] <= $self->[56])
|
|
31240
|
717 |
49 |
if ($rOpts->{'indent-block-comments'} and !$rOpts->{'indent-spaced-block-comments'} || $input_line =~ /^\s+/ and not $is_static_block_comment_without_leading_space) { }
|
|
31269
|
2 |
6897 |
if ($self->[79])
|
|
31284
|
2 |
0 |
unless ($exception)
|
|
31295
|
12 |
6887 |
if ($CODE_type eq "IO")
|
|
31302
|
11 |
1 |
unless $line_of_tokens->{'_starting_in_quote'}
|
|
31326
|
2728 |
4159 |
if ($max_index_to_go >= 0)
|
|
31331
|
0 |
2728 |
if ($rOpts_ignore_old_breakpoints and $rOpts_line_up_parentheses)
|
|
31333
|
0 |
0 |
if ($is_assignment_or_fat_comma{$type_first})
|
|
31340
|
26 |
2702 |
if ($last_old_nonblank_type eq "," and $rOpts_break_at_old_comma_breakpoints)
|
|
31344
|
8 |
18 |
if (%break_at_old_comma_types)
|
|
31351
|
35 |
2693 |
if (not $index_start_one_line_block and $last_old_nonblank_type eq ";" and $first_new_nonblank_token ne "}" or $break_at_old_commas)
|
|
31364
|
23 |
12 |
if $break_at_old_commas
|
|
31376
|
9 |
2684 |
if ($max_index_to_go >= 0 and $self->[85]{$K_first_true})
|
|
31380
|
4 |
5 |
if ($self->[85]{$K_first_true} == 2) { }
|
|
31395
|
3672 |
3215 |
if ($max_index_to_go >= 0)
|
|
31401
|
616 |
3056 |
if ($type eq '#' or $in_quote or $CODE_type eq 'VER' or $type eq 'J' and $rOpts_break_after_labels != 2 or $break_flag and $break_flag != 2 or not $rOpts->{'delete-old-newlines'} or $max_index_to_go == 2 and $types_to_go[0] eq 'k' and $tokens_to_go[0] eq 'use' and $tokens_to_go[$max_index_to_go] eq 'overload') { }
|
|
31451
|
0 |
3056 |
if ($break_flag and $break_flag == 2)
|
|
31456
|
3046 |
0 |
if (not $rOpts_ignore_old_breakpoints or $rOpts_line_up_parentheses and $is_assignment_or_fat_comma{$type})
|
|
31473
|
2 |
6885 |
if ($K_dangling_elsif and $rOpts_add_missing_else)
|
|
31489
|
25 |
6862 |
if ($max_index_to_go < 0 and $rLL->[$K_first][6] eq "b")
|
|
31500
|
22063 |
41718 |
if ($rtoken_vars->[6] eq "b")
|
|
31513
|
239 |
41479 |
if ($rbrace_follower)
|
|
31515
|
196 |
43 |
unless ($rbrace_follower->{$token})
|
|
31516
|
174 |
22 |
if $max_index_to_go >= 0
|
|
31527
|
10992 |
30726 |
if ($rtoken_vars->[7])
|
|
31533
|
2292 |
4 |
if ($block_type and $token eq $type and $block_type ne "t" and not $self->[42]{$type_sequence})
|
|
31539
|
1146 |
1146 |
if ($type eq '{') { }
|
|
|
1146 |
0 |
elsif ($type eq '}') { }
|
|
31559
|
2227 |
39491 |
if ($has_side_comment)
|
|
31562
|
387 |
1840 |
if ($Ktoken_vars == $K_last)
|
|
31569
|
331 |
1509 |
if ($Ktoken_vars == $K_last - 1 or $Ktoken_vars == $K_last - 2 and $$rLL[$K_last - 1][6] eq "b")
|
|
31582
|
3039 |
38292 |
if ($type eq ';') { }
|
|
|
1146 |
37146 |
elsif ($is_opening_BLOCK) { }
|
|
|
1146 |
36000 |
elsif ($is_closing_BLOCK) { }
|
|
|
35 |
35965 |
elsif ($type eq 'h') { }
|
|
31586
|
571 |
2468 |
if ($Ktoken_vars < $K_last)
|
|
31588
|
560 |
11 |
if $rLL->[$Knnb][6] eq "b"
|
|
31593
|
2 |
0 |
if ($rOpts_break_at_old_semicolon_breakpoints and $Ktoken_vars == $K_first and $max_index_to_go >= 0 and not defined $index_start_one_line_block)
|
|
31603
|
2546 |
273 |
if not $no_internal_newlines and !$rOpts_keep_interior_semicolons || $Ktoken_vars >= $K_last and $next_nonblank_token ne "}"
|
|
31631
|
0 |
0 |
if ($max_index_to_go >= 0 and defined $K_last_nonblank_code and $rLL->[$K_last_nonblank_code][6] eq ")" and $rtoken_vars->[3] < $levels_to_go[0] || $too_long)
|
|
31646
|
21 |
1125 |
if ($total_weld_count and defined $self->[73]{$Ktoken_vars})
|
|
31653
|
51 |
1095 |
if ($want_break and not defined $index_start_one_line_block or not $keyword_on_same_line || $rOpts_opening_brace_always_on_right)
|
|
31670
|
51 |
0 |
unless ($nobreak_BEFORE_BLOCK)
|
|
31676
|
48 |
3 |
if $max_index_to_go >= 0
|
|
31685
|
1095 |
51 |
if $max_index_to_go >= 0 and not $no_internal_newlines
|
|
31696
|
453 |
693 |
if ($Ktoken_vars < $K_last)
|
|
31698
|
281 |
172 |
if $rLL->[$Knnb][6] eq "b"
|
|
31704
|
409 |
737 |
if (defined $index_start_one_line_block)
|
|
31711
|
17 |
17 |
if ($has_side_comment and not $rOpts_ignore_side_comment_lengths and $next_nonblank_token_type eq "#")
|
|
31719
|
36 |
373 |
if ($next_nonblank_token_type eq ";" and not $is_block_without_semicolon{$block_type})
|
|
31726
|
0 |
409 |
if ($self->excess_line_length($index_start_one_line_block, $max_index_to_go) + $added_length >= 0)
|
|
31741
|
73 |
415 |
if $max_index_to_go >= 0 and not $nobreak_BEFORE_BLOCK and not defined $index_start_one_line_block
|
|
31755
|
409 |
737 |
if (defined $index_start_one_line_block)
|
|
31763
|
409 |
0 |
if (defined $Kom)
|
|
31777
|
1 |
11 |
if ($rOpts_line_up_parentheses and $next_nonblank_token_type eq "," and $Knnb eq $K_last)
|
|
31784
|
1 |
0 |
unless $is_excluded
|
|
31804
|
93 |
1 |
if ($is_block_without_semicolon{$block_type} || $one_line_block_type =~ /^[UG]$/ && $Ktoken_vars == $K_last and $next_nonblank_token ne ";")
|
|
31818
|
81 |
12 |
unless $no_internal_newlines
|
|
31825
|
234 |
912 |
if ($is_if_unless_elsif_else{$block_type}) { }
|
|
|
47 |
865 |
elsif ($block_type eq 'do') { }
|
|
|
141 |
724 |
elsif ($is_sort_map_grep_eval{$block_type} or $one_line_block_type eq 'G') { }
|
|
|
189 |
535 |
elsif ($self->[9]{$type_sequence}) { }
|
|
31830
|
3 |
44 |
if ($self->tight_paren_follows($K_to_go[0], $Ktoken_vars))
|
|
31848
|
90 |
99 |
if ($one_line_block_type) { }
|
|
31854
|
2 |
88 |
if ($Ktoken_vars < $K_last and $next_nonblank_token eq '}') { }
|
|
|
1 |
87 |
elsif ($Ktoken_vars == $K_last and $rOpts_line_up_parentheses) { }
|
|
31879
|
1 |
0 |
if $keep_going
|
|
31901
|
35 |
1111 |
if ($block_type eq "elsif")
|
|
31904
|
8 |
27 |
if ($next_nonblank_token_type ne 'b' and $next_nonblank_token_type ne '#') { }
|
|
31908
|
0 |
8 |
unless ($is_elsif_else{$next_nonblank_token})
|
|
31914
|
0 |
0 |
if ($rOpts_warn_missing_else and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762.
|
|
31925
|
0 |
17 |
if (not defined $K_next or $rLL->[$K_next][6] ne "k" or not $is_elsif_else{$rLL->[$K_next][4]})
|
|
31931
|
0 |
10 |
if ($rOpts_warn_missing_else and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762.
|
|
31934
|
0 |
0 |
if ($rOpts_add_missing_else) { }
|
|
31950
|
144 |
1002 |
if ($keep_going) { }
|
|
|
650 |
352 |
elsif ($next_nonblank_token_type eq 'b' and $rOpts_add_newlines) { }
|
|
|
322 |
30 |
elsif ($rbrace_follower) { }
|
|
31961
|
204 |
446 |
unless ($rbrace_follower)
|
|
31962
|
157 |
47 |
if not $no_internal_newlines and $max_index_to_go >= 0
|
|
31969
|
208 |
114 |
if ($rbrace_follower->{$next_nonblank_token}) { }
|
|
31975
|
0 |
0 |
if ($next_nonblank_token_type eq "," and $Knnb eq $K_last and $block_type eq "do" and $rOpts_add_newlines and $self->is_trailing_comma($Knnb))
|
|
31985
|
62 |
52 |
if not $no_internal_newlines and $max_index_to_go >= 0
|
|
31994
|
17 |
13 |
if not $no_internal_newlines and $max_index_to_go >= 0
|
|
32018
|
3 |
5 |
if ($rOpts_break_after_labels and $type eq "J" and $rOpts_break_after_labels == 1)
|
|
32022
|
3 |
0 |
unless $no_internal_newlines
|
|
32073
|
0 |
47 |
unless defined $K_ic
|
|
32078
|
0 |
47 |
unless ($seqno_i)
|
|
32086
|
1 |
46 |
unless defined $K_oc
|
|
32088
|
39 |
7 |
unless $token_next eq ")"
|
|
32093
|
0 |
7 |
unless defined $K_io and defined $K_oo
|
|
32101
|
3 |
4 |
if (defined $K_test and $rLL->[$K_test][6] eq "{")
|
|
32103
|
3 |
0 |
if ($seqno_test)
|
|
32104
|
3 |
0 |
if ($self->[9]{$seqno_test} or $self->[10]{$seqno_test})
|
|
32131
|
4 |
0 |
if $K_ic - $K_io > 16
|
|
32147
|
0 |
0 |
if $K_io - $K_oo > 9
|
|
32150
|
0 |
0 |
if $K_oo < $K_to_go_0
|
|
32168
|
0 |
0 |
unless ($rOpts_ignore_old_breakpoints)
|
|
32171
|
0 |
0 |
if $iline_oo != $iline_oc
|
|
32227
|
0 |
1146 |
if (not defined $max_index_to_go or $max_index_to_go < 0)
|
|
32235
|
22 |
1124 |
if ($rbreak_container->{$type_sequence_j})
|
|
32243
|
0 |
1124 |
unless defined $block_type
|
|
32247
|
1102 |
22 |
if (defined $K_last_nonblank)
|
|
32249
|
986 |
116 |
if ($i_last_nonblank >= 0)
|
|
32257
|
178 |
946 |
if ($max_index_to_go == 0 or $is_brace_semicolon_colon{$block_type} or substr($block_type, 0, 7) eq 'package' or $block_type eq 'field') { }
|
|
|
665 |
281 |
elsif ($i_last_nonblank >= 0 and $previous_nonblank_token eq $block_type || $self->[9]{$type_sequence_j} || $self->[10]{$type_sequence_j} || substr($block_type, -2, 2) eq '()') { }
|
|
|
277 |
4 |
elsif ($previous_nonblank_token eq ')') { }
|
|
|
4 |
0 |
elsif ($block_type eq 'case' or $block_type eq 'when') { }
|
|
32284
|
37 |
628 |
if ($tokens_to_go[$i_start] eq ')') { }
|
|
|
343 |
285 |
elsif ($i_start > 0) { }
|
|
32288
|
0 |
37 |
unless defined $K_start
|
|
32290
|
0 |
37 |
unless $seqno
|
|
32292
|
0 |
37 |
unless defined $K_opening
|
|
32296
|
0 |
37 |
if $i_opening < 0
|
|
32300
|
37 |
0 |
if ($i_start > 0)
|
|
32301
|
17 |
20 |
if ($types_to_go[$i_start] eq "b" and $i_start > 0)
|
|
32303
|
2 |
35 |
if ($lev > $rLL->[$Kj][3])
|
|
32310
|
331 |
12 |
if ($types_to_go[$i_eq] eq "b" and $i_eq > 0)
|
|
32312
|
1 |
86 |
if ($is_assignment{$type_eq} and $want_break_before{$type_eq})
|
|
32329
|
2 |
275 |
if ($types_to_go[$i_start] eq "b")
|
|
32339
|
0 |
277 |
if (substr($block_type, -2, 2) eq "()")
|
|
32342
|
10 |
267 |
if ($tokens_to_go[$i_start] ne $stripped_block_type)
|
|
32353
|
0 |
4 |
if ($types_to_go[$i_start] eq "b")
|
|
32356
|
0 |
4 |
if ($tokens_to_go[$i_start] ne $block_type)
|
|
32374
|
14 |
1098 |
if ($pos > $maximum_line_length)
|
|
32389
|
0 |
1098 |
unless defined $K_closing
|
|
32396
|
24 |
1074 |
if ($total_weld_count and $self->is_welded_at_seqno($type_sequence_j))
|
|
32400
|
345 |
753 |
if ($excess > 0)
|
|
32404
|
343 |
2 |
if $excess > 1
|
|
32412
|
2 |
0 |
if $ldiff
|
|
32421
|
1480 |
2437 |
if ($rLL->[$Ki][6] eq 'b') { }
|
|
32426
|
823 |
3094 |
$type_sequence_i ? :
|
|
32429
|
0 |
3917 |
if ($pos > $maximum_line_length) { }
|
|
|
3094 |
823 |
elsif (not $type_sequence_i) { }
|
|
|
30 |
793 |
elsif ($rLL->[$Ki][4] eq '{' and $rLL->[$Ki][6] eq '{' and $rblock_type_of_seqno->{$type_sequence_i} and not $nobreak) { }
|
|
|
388 |
405 |
elsif ($rLL->[$Ki][4] eq '}' and $rLL->[$Ki][6] eq '}' and $rblock_type_of_seqno->{$type_sequence_i} and not $nobreak) { }
|
|
32457
|
195 |
193 |
if ($Ki_nonblank < $K_last)
|
|
32459
|
122 |
73 |
if ($rLL->[$Ki_nonblank][6] eq "b" and $Ki_nonblank < $K_last)
|
|
32492
|
19 |
8 |
if ($Ki < $K_last and $rLL->[$K_last][6] eq "#" and $rLL->[$K_last][3] == $rLL->[$Ki][3] and not $rOpts_ignore_side_comment_lengths and not $is_sort_map_grep_eval{$block_type} and $K_last - $Ki_nonblank <= 2)
|
|
32509
|
19 |
0 |
if (not $is_if_unless_elsif_else{$block_type} or $K_last == $Ki_nonblank)
|
|
32515
|
19 |
0 |
if ($Ki_nonblank > $Ki + 1)
|
|
32519
|
17 |
2 |
if ($$rLL[$Ki + 1][6] eq 'b') { }
|
|
32525
|
0 |
19 |
if ($pos >= $maximum_line_length)
|
|
32562
|
47 |
288 |
if ($want_one_line_block{$block_type} and not $is_bli)
|
|
32565
|
26 |
21 |
$rtype_count && $rtype_count->{';'} ? :
|
|
32568
|
44 |
3 |
if ($semicolon_count <= 2)
|
|
32572
|
23 |
21 |
if (defined $Kp and $rLL->[$Kp][6] eq ";")
|
|
32578
|
26 |
21 |
if ($semicolon_count <= 0) { }
|
|
|
18 |
3 |
elsif ($semicolon_count == 1 and $block_type eq 'eval') { }
|
|
32600
|
48 |
3 |
if ($max_index_to_go > 0) { }
|
|
32621
|
0 |
2 |
unless defined $K_first
|
|
32627
|
0 |
2 |
if $type eq "b"
|
|
32632
|
0 |
2 |
if ($structural_indentation_level > $self->[82])
|
|
32643
|
0 |
2 |
if ($guessed_indentation_level ne $structural_indentation_level) { }
|
|
32646
|
0 |
0 |
if ($is_closing_block)
|
|
32648
|
0 |
0 |
unless ($self->[71])
|
|
32651
|
0 |
0 |
unless ($self->[70])
|
|
32656
|
0 |
0 |
unless ($self->[69])
|
|
32659
|
0 |
0 |
if ($self->[68] <= 6)
|
|
32665
|
0 |
0 |
unless $self->[66]
|
|
32671
|
0 |
2 |
if $is_closing_block
|
|
32674
|
0 |
2 |
if ($in_tabbing_disagreement)
|
|
32676
|
0 |
0 |
if ($self->[68] <= 6)
|
|
32681
|
0 |
0 |
if ($self->[68] == 6)
|
|
32736
|
0 |
4382 |
if (not defined $i or $i < 0)
|
|
32754
|
1825 |
2557 |
if (defined $i_nonblank and $is_opening_sequence_token{$tokens_to_go[$i_nonblank]})
|
|
32806
|
0 |
4974 |
unless defined $i
|
|
32807
|
0 |
4974 |
if $i < 0
|
|
32811
|
838 |
4136 |
if ($i > 0 and $types_to_go[$i] eq "b")
|
|
32816
|
43 |
4931 |
if $total_weld_count and $self->[74]{$K_to_go[$i]}
|
|
32822
|
9 |
4922 |
if (not $token and $type eq ",")
|
|
32826
|
2108 |
2823 |
if ($is_binary_operator_token{$token} and $type eq $token || $type eq 'k') { }
|
|
|
5 |
2818 |
elsif ($is_if_unless{$token} and $type eq 'k') { }
|
|
32829
|
253 |
1855 |
if ($want_break_before{$token} and $i >= 0)
|
|
32838
|
4925 |
6 |
if ($i >= 0 and $i <= $max_index_to_go)
|
|
32839
|
4675 |
250 |
$types_to_go[$i] ne 'b' ? :
|
|
32841
|
3926 |
999 |
if ($i_nonblank >= 0 and not $nobreak_to_go[$i_nonblank] and not $forced_breakpoint_to_go[$i_nonblank])
|
|
32847
|
2729 |
1197 |
if ($i_nonblank > $index_max_forced_break)
|
|
32880
|
0 |
505 |
if ($i_start < 0)
|
|
32895
|
805 |
0 |
if ($i >= 0 and $i <= $max_index_to_go) { }
|
|
32942
|
599 |
2027 |
if (defined $mate_index_to_go[$i_break]) { }
|
|
32946
|
592 |
7 |
if ($mate_index_to_go[$i_break] > $i_break + 2)
|
|
32950
|
25 |
567 |
$tokens_to_go[$i_break] eq '?' ? :
|
|
32957
|
2027 |
0 |
if ($type_sequence)
|
|
33032
|
0 |
0 |
if ($max_index_to_go < 0)
|
|
33047
|
0 |
0 |
if (not defined $KK or $KK < 0 or $KK > $Klimit)
|
|
33048
|
0 |
0 |
unless defined $KK
|
|
33054
|
0 |
0 |
if ($ii > 0 and $KK != $Km + 1)
|
|
33117
|
266 |
5172 |
if ($max_index_to_go >= 0 and $types_to_go[$max_index_to_go] eq "b")
|
|
33121
|
0 |
5438 |
if $max_index_to_go < 0
|
|
33124
|
313 |
5125 |
if ($rOpts_line_up_parentheses)
|
|
33134
|
773 |
4665 |
if (not $max_index_to_go and $types_to_go[0] eq "#")
|
|
33145
|
714 |
3 |
unless ($is_HSC or $lp_object_count_this_batch)
|
|
33183
|
21580 |
41733 |
if ($types_to_go[$i] eq "b")
|
|
33193
|
26055 |
15678 |
unless $quick_filter{$types_to_go[$i]}
|
|
33198
|
10992 |
4686 |
if ($type_sequence_to_go[$i]) { }
|
|
|
3558 |
1128 |
elsif ($type eq ',') { }
|
|
|
1094 |
34 |
elsif ($type eq '=>') { }
|
|
|
34 |
0 |
elsif ($type eq 'f') { }
|
|
33203
|
150 |
10842 |
if ($self->[78]{$seqno})
|
|
33207
|
5496 |
5496 |
if ($is_opening_sequence_token{$tokens_to_go[$i]}) { }
|
|
33208
|
45 |
5451 |
if ($self->[41]{$seqno})
|
|
33212
|
192 |
5304 |
if ($type eq "?")
|
|
33218
|
24 |
4695 |
if ($i > 0 and $self->[41]{$seqno})
|
|
33223
|
4539 |
957 |
if (defined $i_mate and $i_mate >= 0) { }
|
|
33224
|
4539 |
0 |
if ($type_sequence_to_go[$i_mate] == $type_sequence_to_go[$i]) { }
|
|
33230
|
479 |
4060 |
if $cac
|
|
33242
|
192 |
5304 |
if ($type eq ":")
|
|
33251
|
1006 |
88 |
if (@unmatched_opening_indexes_in_this_batch)
|
|
33267
|
2 |
4722 |
if (@i_for_semicolon and @i_for_semicolon == 1)
|
|
33270
|
2 |
0 |
if ($inext <= $max_index_to_go and $types_to_go[$inext] ne "#")
|
|
33278
|
848 |
3876 |
if (@unmatched_opening_indexes_in_this_batch)
|
|
33283
|
48 |
4676 |
if (@ix_seqno_controlling_ci)
|
|
33297
|
447 |
899 |
if ($block_type_to_go[$max_index_to_go] and $max_index_to_go > 0 and not $is_block_without_semicolon{$block_type_to_go[$max_index_to_go]})
|
|
33317
|
22 |
922 |
if $levels_to_go[$i] < $lev
|
|
33318
|
0 |
922 |
if $levels_to_go[$i] > $lev
|
|
33320
|
0 |
922 |
if ($block_type_to_go[$i]) { }
|
|
|
415 |
507 |
elsif (not $types_to_go[$i] =~ /^[\(\)Gwib]$/) { }
|
|
33321
|
0 |
0 |
if ($tokens_to_go[$i] eq "}")
|
|
33344
|
0 |
4724 |
if ($types_to_go[$imin] eq "b")
|
|
33345
|
0 |
4724 |
if ($types_to_go[$imax] eq "b")
|
|
33347
|
0 |
4724 |
if ($imin > $imax)
|
|
33366
|
3746 |
978 |
if ($last_line_leading_type ne "#")
|
|
33371
|
1358 |
2388 |
if ($leading_type eq 'k') { }
|
|
|
121 |
2267 |
elsif ($leading_type eq 'S' or $leading_type eq 'P') { }
|
|
|
725 |
1542 |
elsif ($leading_token eq '}') { }
|
|
33372
|
7 |
1351 |
if ($leading_token eq 'BEGIN' or $leading_token eq 'END') { }
|
|
|
116 |
1235 |
elsif ($last_line_leading_type ne 'b' and $is_if_unless_while_until_for_foreach{$leading_token}) { }
|
|
33373
|
1 |
6 |
if terminal_type_i(0, $max_index_to_go) ne "}"
|
|
33384
|
0 |
116 |
unless (defined $lc)
|
|
33388
|
41 |
75 |
if ($levels_to_go[0] != $last_line_leading_level)
|
|
33392
|
1 |
0 |
if ($rOpts->{'blanks-before-blocks'} and $lc >= $rOpts->{'long-block-line-count'} and $self->consecutive_nonblank_lines >= $rOpts->{'long-block-line-count'} and terminal_type_i(0, $max_index_to_go) ne "}")
|
|
33411
|
121 |
0 |
if ($special_identifier)
|
|
33413
|
92 |
29 |
if ($special_identifier eq 'sub') { }
|
|
|
29 |
0 |
elsif ($special_identifier eq 'package') { }
|
|
33415
|
41 |
51 |
unless terminal_type_i(0, $max_index_to_go) =~ /^[\;\}\,]$/
|
|
33428
|
29 |
0 |
unless $self->[98]{$pseqno}
|
|
33441
|
2 |
0 |
if ($rOpts->{'blank-lines-before-closing-block'} and $block_type_to_go[0] and $block_type_to_go[0] =~ /$blank_lines_before_closing_block_pattern/)
|
|
33447
|
2 |
0 |
if ($nblanks > $blank_count)
|
|
33456
|
49 |
3697 |
if ($blank_count)
|
|
33467
|
2760 |
1964 |
if ($leading_level == $last_line_leading_level and $leading_type ne '#' || $is_HSC and defined $nonblank_lines_at_depth[$leading_level]) { }
|
|
33477
|
56 |
4668 |
$is_HSC ? :
|
|
33494
|
3876 |
848 |
if ($max_index_to_go > 0) { }
|
|
|
607 |
241 |
elsif ($is_unbalanced_batch) { }
|
|
33508
|
242 |
358 |
if ($block_type and not $lp_object_count_this_batch and $is_block_without_semicolon{$block_type})
|
|
33514
|
15 |
227 |
if ($leading_type eq '{') { }
|
|
33517
|
15 |
0 |
if ($rtype_count)
|
|
33519
|
15 |
0 |
unless ($comma_count)
|
|
33538
|
3 |
4721 |
if (%maximum_field_count_control_hash)
|
|
33540
|
3 |
0 |
if ($self->[101]{$_})
|
|
33548
|
66 |
2695 |
if ($is_long_line or $multiple_old_lines_in_batch or $is_unbalanced_batch or $comma_count_in_batch and $has_limited_field_count || $rOpts_comma_arrow_breakpoints == 0 or $comma_arrow_count_contained and $rOpts_comma_arrow_breakpoints != 3)
|
|
33584
|
848 |
3876 |
if (not $max_index_to_go) { }
|
|
33595
|
2580 |
1296 |
if (not +($is_long_line || $saw_good_break || $forced_breakpoint_count) && $rOpts_add_newlines) { }
|
|
33624
|
3 |
1293 |
unless $called_pad_array_to_go
|
|
33634
|
32 |
1264 |
if %{$self->[109];} and not $pack_operator_types{'->'}
|
|
33637
|
559 |
737 |
if @{$ri_first;} >= 3
|
|
33639
|
2 |
1294 |
if ($rOpts_cuddled_paren_brace)
|
|
33647
|
819 |
477 |
if $rOpts_recombine and @{$ri_first;} > 1
|
|
33649
|
87 |
1209 |
if @colon_list
|
|
33653
|
50 |
3826 |
if %break_before_container_types and $max_index_to_go > 0
|
|
33660
|
21 |
3855 |
if (not $token_lengths_to_go[$imax] and $types_to_go[$imax] eq ";")
|
|
33661
|
20 |
1 |
if ($rOpts_add_semicolons) { }
|
|
33667
|
0 |
0 |
if ($rOpts_space_terminal_semicolon and $imax > 0 and $types_to_go[$imax - 1] eq "b")
|
|
33676
|
6 |
3870 |
if ($rOpts_one_line_block_semicolons == 0)
|
|
33682
|
1178 |
2698 |
if ($max_index_to_go > $peak_batch_size)
|
|
33694
|
141 |
4583 |
if ($lp_object_count_this_batch)
|
|
33706
|
6 |
4718 |
if ($rOpts_blank_lines_after_opening_block)
|
|
33708
|
0 |
6 |
if ($types_to_go[$iterm] eq "#" and $iterm > $imin)
|
|
33710
|
0 |
0 |
if ($types_to_go[$iterm] eq "b" and $iterm > $imin)
|
|
33715
|
2 |
0 |
if ($types_to_go[$iterm] eq "{" and $block_type_to_go[$iterm] and $block_type_to_go[$iterm] =~ /$blank_lines_after_opening_block_pattern/)
|
|
33735
|
4577 |
243 |
$i - 1 > 0 && $types_to_go[$i - 1] eq 'b' ? :
|
|
33757
|
0 |
20 |
unless $type eq ";"
|
|
33760
|
0 |
20 |
if ($want_left_space{$type} != -1)
|
|
33796
|
153 |
848 |
unless defined $runmatched_opening_indexes
|
|
33803
|
174 |
827 |
if ($types_to_go[$max_index_to_go] eq "q")
|
|
33807
|
36 |
138 |
if ($seqno_qw_opening)
|
|
33818
|
36 |
957 |
unless ($seqno)
|
|
33819
|
36 |
0 |
if ($seqno_qw_opening and $i_opening == $max_index_to_go) { }
|
|
33850
|
1011 |
0 |
if ($seqno)
|
|
33851
|
1011 |
0 |
if ($saved_opening_indentation{$seqno})
|
|
33892
|
0 |
1606 |
unless (@{$ri_last;})
|
|
33905
|
195 |
1411 |
if $i_opening < $ri_first->[$nline]
|
|
33908
|
1606 |
0 |
if ($i_opening <= $ri_last->[-1]) { }
|
|
33952
|
10 |
98 |
if ($type_i eq "#")
|
|
33954
|
0 |
10 |
if ($i < $ibeg)
|
|
33961
|
9 |
99 |
if ($type_i eq "b")
|
|
33963
|
0 |
9 |
if ($i < $ibeg)
|
|
33973
|
1 |
49 |
if ($type_i eq "}" and !$block_type || $is_sort_map_grep_eval_do{$block_type})
|
|
34003
|
275 |
1757 |
if ($is_closing_type{$types_to_go[$max_index_to_go]}) { }
|
|
|
683 |
1074 |
elsif ($is_opening_type{$types_to_go[$max_index_to_go]}) { }
|
|
34004
|
0 |
275 |
if ($nesting_depth_to_go[$max_index_to_go] <= 0) { }
|
|
34009
|
0 |
0 |
unless ($self->get_saw_brace_error)
|
|
34045
|
0 |
32 |
unless %{$self->[109];}
|
|
34049
|
0 |
32 |
!$want_break_before{'->'} ? :
|
|
34051
|
7 |
89 |
if ($types_to_go[$ii] eq "->")
|
|
34053
|
29 |
3 |
unless @i_arrow_breaks
|
|
34060
|
0 |
3 |
!$want_break_before{'->'} ? :
|
|
34064
|
1 |
6 |
if $ip < 0 or $tokens_to_go[$ip] ne ")"
|
|
34067
|
0 |
6 |
unless $seqno_start
|
|
34076
|
0 |
19 |
if $i_K <= 0 or $i_K >= $max_index_to_go
|
|
34077
|
14 |
5 |
if $is_end_i{$i_K}
|
|
34078
|
0 |
5 |
if ($K_to_go[$i_K] != $KK)
|
|
34090
|
2 |
1 |
if (@insert_list)
|
|
34125
|
5 |
4423 |
if $typel eq "-"
|
|
34126
|
10 |
4418 |
if $typer eq "-"
|
|
34127
|
4 |
4424 |
if $typel eq "/"
|
|
34128
|
13 |
4415 |
if $typer eq "/"
|
|
34130
|
786 |
3642 |
$typel eq 'k' ? :
|
|
34131
|
56 |
4372 |
$typer eq 'k' ? :
|
|
34132
|
343 |
65 |
if ($is_chain_operator{$keyl} and $want_break_before{$typel})
|
|
34133
|
69 |
274 |
if $typel eq "?"
|
|
34138
|
48 |
4311 |
if ($is_chain_operator{$keyr} and not $want_break_before{$typer})
|
|
34139
|
1 |
47 |
if $typer eq "?"
|
|
34146
|
1161 |
135 |
unless $end_count
|
|
34156
|
124 |
4253 |
$type eq 'k' ? :
|
|
34157
|
54 |
4323 |
if $key eq "-"
|
|
34158
|
85 |
4292 |
if $key eq "/"
|
|
34159
|
193 |
4184 |
if ($saw_chain_type{$key})
|
|
34166
|
102 |
33 |
unless $interior_count
|
|
34174
|
0 |
19 |
if ($has_interior_dot_or_plus and $nmax == 1 and @keys == 1)
|
|
34183
|
0 |
41 |
if $pack_operator_types{$key}
|
|
34189
|
71 |
122 |
if ($left_chain_type{$key})
|
|
34190
|
0 |
71 |
if $nobreak_to_go[$itest - 1]
|
|
34192
|
131 |
15 |
unless $self->in_same_container_i($i, $itest)
|
|
34203
|
1 |
14 |
if ($key eq ":" and $levels_to_go[$i] != $levels_to_go[$itest])
|
|
34207
|
1 |
0 |
if (defined $i_question and $i_question > 0)
|
|
34216
|
122 |
71 |
if ($right_chain_type{$key})
|
|
34217
|
0 |
122 |
if $nobreak_to_go[$itest]
|
|
34219
|
196 |
31 |
unless $self->in_same_container_i($i, $itest)
|
|
34223
|
0 |
31 |
if ($key eq ":" and $levels_to_go[$i] != $levels_to_go[$itest])
|
|
34227
|
0 |
0 |
if (defined $i_question)
|
|
34238
|
20 |
13 |
if (@insert_list)
|
|
34257
|
0 |
2 |
if $nmax < 1
|
|
34261
|
0 |
2 |
if $tokens_to_go[$il_n] ne "{" or not $block_type_to_go[$il_n]
|
|
34266
|
0 |
2 |
if $tokens_to_go[$ir_nm] ne ")"
|
|
34270
|
1 |
1 |
if ($ir_n ne $il_n)
|
|
34274
|
0 |
1 |
if $inext ne $ir_n
|
|
34275
|
0 |
1 |
if $types_to_go[$ir_n] ne "#"
|
|
34278
|
0 |
1 |
$rOpts_ignore_side_comment_lengths ? :
|
|
34280
|
0 |
1 |
if $excess > 0
|
|
34284
|
1 |
1 |
if ($ir_nm != $il_nm)
|
|
34287
|
0 |
1 |
unless $rOpts_cuddled_paren_brace_weld
|
|
34292
|
0 |
1 |
unless (defined $i_mate)
|
|
34337
|
0 |
224 |
if $nobreak_to_go[$i_break_left]
|
|
34345
|
0 |
392 |
if ($line_number >= @{$ri_last;})
|
|
34358
|
12 |
212 |
if ($types_to_go[$i_break_left] eq "b")
|
|
34361
|
105 |
0 |
if ($i_break_left >= $i_f and $i_break_left < $i_l and $i_break_right > $i_f and $i_break_right <= $i_l)
|
|
34368
|
2 |
103 |
if ($set_forced)
|
|
34402
|
316 |
58 |
if $parent_seqno_to_go[$i2] ne $parent_seqno_1
|
|
34404
|
52 |
6 |
if ($i2 < $i1)
|
|
34409
|
0 |
58 |
if $depth_1 < 0
|
|
34412
|
0 |
58 |
unless $nesting_depth_to_go[$i2] == $depth_1
|
|
34416
|
55 |
3 |
$type_1 ne ':' ? :
|
|
34425
|
0 |
323 |
if ($KK <= $Knext_last)
|
|
34434
|
55 |
268 |
if $KK >= $K2
|
|
34437
|
0 |
268 |
if $depth_i < $depth_1
|
|
34438
|
217 |
51 |
if $depth_i > $depth_1
|
|
34439
|
45 |
6 |
if ($type_1 ne ":")
|
|
34441
|
0 |
45 |
if $tok_i eq "?" or $tok_i eq ":"
|
|
34452
|
0 |
58 |
if $i2 - $i1 > 200
|
|
34457
|
1268 |
400 |
if $depth_i > $depth_1
|
|
34458
|
0 |
400 |
if $depth_i < $depth_1
|
|
34460
|
5 |
395 |
if ($typ_i eq "k")
|
|
34461
|
11 |
389 |
if $rbreak->{$typ_i}
|
|
34497
|
0 |
559 |
if $nmax < 2
|
|
34506
|
45 |
550 |
$typel eq 'k' ? :
|
|
34509
|
537 |
58 |
unless $has_leading_op
|
|
34510
|
22 |
36 |
if ($n > 1)
|
|
34512
|
5 |
17 |
unless $tokenl eq $tokbeg and $nesting_depth_to_go[$il] eq $depth_beg
|
|
34527
|
1 |
139 |
if ($is_assignment{$type} and $nesting_depth_to_go[$i] eq $depth_beg)
|
|
34530
|
0 |
1 |
if ($want_break_before{$type}) { }
|
|
34551
|
4 |
1 |
if ($types_to_go[$i] eq "k" and $tokens_to_go[$i] eq "return" and $ir > $il and $nesting_depth_to_go[$i] eq $depth_beg)
|
|
34559
|
12 |
5 |
unless @insert_list
|
|
34574
|
0 |
100 |
if $is_assignment{$type} and $nesting_depth_to_go[$ii] eq $depth_beg
|
|
34580
|
5 |
0 |
if (@insert_list)
|
|
34656
|
2 |
4 |
if ($type_end eq "#")
|
|
34658
|
2 |
0 |
if (defined $K_end)
|
|
34663
|
0 |
6 |
unless $type_end eq "}" and $rLL->[$K_end][4] eq "}"
|
|
34667
|
0 |
6 |
unless defined $K_semicolon
|
|
34669
|
0 |
6 |
if $i_semicolon <= $i_beg
|
|
34670
|
0 |
6 |
unless $rLL->[$K_semicolon][6] eq ";"
|
|
34674
|
0 |
6 |
if ($types_to_go[$i_semicolon] ne ";")
|
|
34683
|
0 |
6 |
unless defined $K_opening
|
|
34685
|
0 |
6 |
if $i_opening < $i_beg
|
|
34690
|
2 |
20 |
if ($rLL->[$K][6] eq ";")
|
|
34695
|
2 |
4 |
if $semicolon_count
|
|
34738
|
1 |
818 |
if $high_stress_level <= 2
|
|
34741
|
0 |
818 |
if $nmax_start <= 0
|
|
34744
|
50 |
768 |
if ($types_to_go[$iend_max] eq "#")
|
|
34772
|
208 |
5620 |
if ($is_math_op{$type} or $is_amp_amp{$type} or $is_assignment{$type} or $type eq ":")
|
|
34786
|
2824 |
181 |
if ($excess <= 1 or defined $nend_sec and $nn < 5 || $nmax_start - $nn < 5) { }
|
|
34798
|
29 |
152 |
if (defined $nend_sec)
|
|
34801
|
19 |
10 |
if ($num > $nmax_section)
|
|
34809
|
729 |
89 |
if (defined $nend_sec)
|
|
34812
|
719 |
10 |
if ($num > $nmax_section)
|
|
34944
|
73 |
2751 |
if ($is_amp_amp{$types_to_go[$ibeg_2]})
|
|
34952
|
0 |
3205 |
unless $Perl::Tidy::Formatter::b->[1] <=> $Perl::Tidy::Formatter::a->[1]
|
|
34993
|
758 |
888 |
if ($nmax_batch >= $nmax_last)
|
|
35004
|
0 |
888 |
if ($rhash->{'_num_compares'} > $max_compares)
|
|
35068
|
49 |
839 |
if ($rhash->{'_optimization_on'} and $num_joints <= 2)
|
|
35127
|
421 |
2744 |
if $excess > 0
|
|
35142
|
684 |
2060 |
if ($n == $nmax)
|
|
35144
|
41 |
643 |
if ($type_ibeg_2 eq "{")
|
|
35148
|
41 |
0 |
if $type_iend_1 ne "=>"
|
|
35165
|
354 |
2349 |
if ($itok)
|
|
35167
|
174 |
180 |
unless $ok_0
|
|
35175
|
0 |
78 |
if ($total_weld_count and $type_sequence_to_go[$iend_1] && defined $$rK_weld_right{$K_to_go[$iend_1]} || $type_sequence_to_go[$ibeg_2] && defined $$rK_weld_left{$K_to_go[$ibeg_2]})
|
|
35196
|
1869 |
660 |
unless $ok_2
|
|
35207
|
12 |
648 |
if ($skip_Section_3)
|
|
35218
|
243 |
405 |
unless $ok_3
|
|
35226
|
245 |
160 |
if $forced_breakpoint_to_go[$iend_1]
|
|
35252
|
0 |
1 |
if $old_breakpoint_to_go[$iend_1] and not $this_line_is_semicolon_terminated and $n < $nmax and $excess + 4 > 0 and $type_iend_2 ne ","
|
|
35259
|
144 |
16 |
if ($n < $nmax)
|
|
35268
|
0 |
11 |
if $level_1 < $level_2 and $level_2 < $level_if_next and not $n == 1 && $iend_1 - $ibeg_1 <= 2 && $type_ibeg_1 eq 'k' && $tokens_to_go[$ibeg_1] eq 'if' && $tokens_to_go[$iend_1] ne '('
|
|
35286
|
118 |
42 |
if (not $n_best) { }
|
|
35296
|
42 |
76 |
if ($rhash->{'_optimization_on'} == 1)
|
|
35306
|
0 |
42 |
if ($bs > $bs_best or $bs == $bs_best and $n < $n_best)
|
|
35318
|
130 |
758 |
if ($n_best)
|
|
35332
|
375 |
367 |
if ($n_old > $n_best)
|
|
35344
|
76 |
54 |
if (not $rhash->{'_optimization_on'} || $incomplete_loop and $num_bs)
|
|
35403
|
354 |
0 |
if ($itok)
|
|
35407
|
110 |
244 |
if ($type eq ':') { }
|
|
|
87 |
157 |
elsif ($is_math_op{$type}) { }
|
|
|
64 |
93 |
elsif ($is_amp_amp{$type}) { }
|
|
|
93 |
0 |
elsif ($is_assignment{$type}) { }
|
|
35411
|
1 |
109 |
if ($itok eq $iend_1) { }
|
|
35412
|
1 |
0 |
unless $want_break_before{$type}
|
|
35415
|
109 |
0 |
if $want_break_before{$type}
|
|
35443
|
26 |
61 |
if ($types_to_go[$itokp] eq "n")
|
|
35446
|
2 |
24 |
if ($itokp == $iend_2) { }
|
|
35461
|
15 |
72 |
if (not $good_combo and $types_to_go[$itokm] eq "n")
|
|
35464
|
6 |
9 |
if ($itokm == $ibeg_1) { }
|
|
35481
|
68 |
19 |
unless ($good_combo)
|
|
35487
|
42 |
26 |
$itok eq $iend_1 ? :
|
|
35535
|
64 |
23 |
unless ($good_combo)
|
|
35539
|
40 |
24 |
$itok == $iend_1 ? :
|
|
35547
|
64 |
23 |
unless $good_combo
|
|
35597
|
1926 |
603 |
$n < $nmax ? :
|
|
35606
|
360 |
2169 |
if ($type_iend_1 eq '}') { }
|
|
|
669 |
1500 |
elsif ($type_iend_1 eq '{') { }
|
|
|
0 |
1500 |
elsif ($is_amp_amp{$type_iend_1}) { }
|
|
|
1 |
1499 |
elsif ($type_iend_1 eq '?') { }
|
|
|
896 |
603 |
elsif ($type_iend_1 eq ',') { }
|
|
|
0 |
603 |
elsif ($type_iend_1 eq '(') { }
|
|
|
0 |
603 |
elsif ($type_iend_1 eq ')') { }
|
|
|
8 |
595 |
elsif ($type_iend_1 eq 'f') { }
|
|
|
82 |
513 |
elsif ($is_assignment{$type_iend_1}) { }
|
|
|
26 |
487 |
elsif ($type_iend_1 eq 'k') { }
|
|
|
0 |
487 |
elsif ($type_iend_1 eq '.') { }
|
|
35666
|
16 |
344 |
if ($is_amp_amp{$type_ibeg_2})
|
|
35670
|
5 |
10 |
if ($is_amp_amp{$type_t} or $type_t eq ":")
|
|
35704
|
7 |
0 |
if ($block_type_to_go[$iend_1] and $rOpts_brace_follower_vertical_tightness > 0 and $tokens_to_go[$iend_2] eq '{' && $block_type_to_go[$iend_1] eq 'eval' && !ref($leading_spaces_to_go[$iend_1]) && !$rOpts_indent_closing_brace || $rOpts_brace_follower_vertical_tightness > 1 && $ibeg_1 == $iend_1 and $type_ibeg_2 =~ /^(\&\&|\|\|)$/ || $type_ibeg_2 eq 'k' && $is_and_or{$tokens_to_go[$ibeg_2]} || $is_if_unless{$tokens_to_go[$ibeg_2]})
|
|
35744
|
256 |
104 |
unless $keep_going
|
|
35753
|
652 |
17 |
if $forced_breakpoint_to_go[$iend_1]
|
|
35758
|
0 |
0 |
unless $want_break_before{$type_iend_1}
|
|
35766
|
0 |
1 |
if $levels_to_go[$ibeg_1] ne $levels_to_go[$ibeg_2]
|
|
35769
|
0 |
1 |
unless $type_iend_2 eq ":"
|
|
35779
|
731 |
165 |
if $old_breakpoint_to_go[$iend_1]
|
|
35784
|
1 |
164 |
if ($type_ibeg_1 eq '}' and $type_ibeg_2 eq 'i') { }
|
|
35792
|
1 |
0 |
unless $combine_ok
|
|
35803
|
122 |
42 |
if $n + 1 < $nmax
|
|
35808
|
28 |
14 |
if $levels_to_go[$iend_1] != $levels_to_go[$iend_2]
|
|
35814
|
0 |
34 |
if ($tokens_to_go[$ii] eq "(")
|
|
35819
|
0 |
14 |
if $saw_paren
|
|
35846
|
35 |
47 |
if $old_breakpoint_to_go[$iend_1] and $iend_1 != $ibeg_1
|
|
35864
|
47 |
0 |
if ($ibeg_1 != $iend_1 and not $is_short_quote and not $is_ternary_joint)
|
|
35903
|
25 |
22 |
unless $combine_ok
|
|
35905
|
1 |
21 |
if ($nmax >= $n + 2 and not $ibeg_3 > 0 && ref $leading_spaces_to_go[$ibeg_3] && $type_iend_2 eq ',')
|
|
35927
|
0 |
1 |
unless $ok
|
|
35932
|
20 |
2 |
unless ($tokens_to_go[$ibeg_2] =~ /^[\{\(\[]$/)
|
|
35946
|
11 |
15 |
if $is_last_next_redo_return{$tokens_to_go[$iend_1]} and $n < $nmax
|
|
35952
|
0 |
15 |
if ($is_and_or{$tokens_to_go[$iend_1]})
|
|
35954
|
0 |
0 |
unless $want_break_before{$tokens_to_go[$iend_1]}
|
|
36002
|
0 |
0 |
unless $combine_ok
|
|
36005
|
0 |
0 |
if ($this_line_is_semicolon_terminated)
|
|
36035
|
0 |
2 |
if ($nesting_depth_to_go[$i] != $depth)
|
|
36037
|
0 |
0 |
if $tv > 1
|
|
36044
|
0 |
1 |
if ($tv > 0)
|
|
36048
|
0 |
0 |
if $tv > 1
|
|
36053
|
0 |
0 |
$n < $nmax ? :
|
|
36058
|
0 |
0 |
if ($nesting_depth_to_go[$i] != $depth)
|
|
36060
|
0 |
0 |
if $tv > 2
|
|
36067
|
0 |
0 |
if $tv > 2
|
|
36102
|
526 |
122 |
$n > 1 ? :
|
|
36103
|
457 |
191 |
$n < $nmax ? :
|
|
36104
|
321 |
327 |
$n + 2 <= $nmax ? :
|
|
36113
|
48 |
600 |
if ($is_amp_amp{$type_ibeg_2}) { }
|
|
|
87 |
513 |
elsif ($type_ibeg_2 eq '?') { }
|
|
|
157 |
356 |
elsif ($type_ibeg_2 eq '.') { }
|
|
|
33 |
323 |
elsif ($type_ibeg_2 eq 'k') { }
|
|
|
0 |
323 |
elsif ($is_amp_amp{$type_ibeg_2}) { }
|
|
|
11 |
312 |
elsif ($is_assignment{$type_ibeg_2}) { }
|
|
36150
|
0 |
2 |
if $ibeg_3 < 0 and $type_ibeg_2 eq "&&" and $type_ibeg_1 eq "||" and $nesting_depth_to_go[$ibeg_2] == $nesting_depth_to_go[$ibeg_1]
|
|
36157
|
47 |
0 |
if not $ok and $want_break_before{$type_ibeg_2}
|
|
36170
|
15 |
72 |
if $lev ne $levels_to_go[$ibeg_1]
|
|
36179
|
18 |
54 |
unless $follows_colon or $precedes_colon
|
|
36182
|
29 |
25 |
unless ($follows_colon)
|
|
36189
|
34 |
72 |
if $ii >= 0 and $types_to_go[$ii] eq ":" and $levels_to_go[$ii] == $lev
|
|
36194
|
24 |
5 |
if $local_count <= 1
|
|
36248
|
103 |
54 |
unless $combine_ok
|
|
36251
|
7 |
47 |
if ($this_line_is_semicolon_terminated)
|
|
36260
|
8 |
25 |
if ($tokens_to_go[$ibeg_2] eq 'or') { }
|
|
|
8 |
17 |
elsif ($tokens_to_go[$ibeg_2] eq 'and' or $tokens_to_go[$ibeg_2] eq 'xor') { }
|
|
|
8 |
9 |
elsif ($is_if_unless{$tokens_to_go[$ibeg_2]}) { }
|
|
36282
|
4 |
4 |
unless $combine_ok
|
|
36285
|
3 |
1 |
unless $old_breakpoint_to_go[$iend_1]
|
|
36317
|
6 |
2 |
unless $combine_ok
|
|
36333
|
8 |
0 |
unless $combine_ok
|
|
36341
|
8 |
1 |
unless ($is_assignment{$type_iend_1})
|
|
36343
|
8 |
0 |
if $type_iend_1 ne "k" and $tokens_to_go[$ibeg_2] ne "while"
|
|
36364
|
0 |
0 |
unless $combine_ok
|
|
36369
|
0 |
11 |
unless $n == 1 or $n == $nmax
|
|
36370
|
0 |
11 |
if $old_breakpoint_to_go[$iend_1]
|
|
36386
|
10 |
1 |
unless $combine_ok
|
|
36416
|
38 |
240 |
if $typel eq "?"
|
|
36417
|
1 |
239 |
if $typer eq "?"
|
|
36418
|
23 |
216 |
if ($typel eq ":")
|
|
36419
|
1 |
215 |
if ($typer eq ":")
|
|
36426
|
23 |
25 |
if ($i_first_colon > 0)
|
|
36428
|
13 |
10 |
if (defined $i_question and $i_question > 0)
|
|
36445
|
1 |
9 |
if ($type eq ',' || $type eq 'k' && ($nmax > 1 && $token eq 'return') and $self->in_same_container_i($ii, $i_question))
|
|
36459
|
1 |
12 |
if (@insert_list)
|
|
36480
|
0 |
50 |
unless %break_before_container_types
|
|
36483
|
0 |
50 |
if $nmax < 0
|
|
36496
|
21 |
122 |
if $ir <= $il
|
|
36503
|
4 |
118 |
if ($type_end eq "#")
|
|
36505
|
0 |
4 |
unless defined $Kend
|
|
36510
|
0 |
122 |
if ($total_weld_count)
|
|
36512
|
0 |
0 |
if (defined $Kend_test and $Kend_test > $Kl)
|
|
36519
|
0 |
0 |
if defined $Kend_test
|
|
36523
|
92 |
30 |
unless $is_opening_token{$token}
|
|
36524
|
0 |
30 |
if $Kl >= $Kend - 1
|
|
36527
|
0 |
30 |
unless defined $seqno
|
|
36530
|
16 |
14 |
unless $rbreak_before_container_by_seqno->{$seqno}
|
|
36535
|
0 |
14 |
if $ibreak < $il
|
|
36536
|
0 |
14 |
if $nobreak_to_go[$ibreak]
|
|
36541
|
10 |
40 |
if (@insert_list)
|
|
36550
|
17 |
3 |
if ($self->[57] == 0)
|
|
36561
|
3 |
11 |
if ($self->[60] == 0)
|
|
36574
|
0 |
0 |
unless ($self->[64])
|
|
36578
|
0 |
0 |
if ($self->[63] <= 6)
|
|
36616
|
5 |
136 |
if (@{$ri_starting_one_line_block;})
|
|
36641
|
855 |
3261 |
unless ref $indentation
|
|
36644
|
2638 |
623 |
if $indentation->get_marked
|
|
36651
|
383 |
240 |
unless $align_seqno
|
|
36656
|
240 |
0 |
if (defined $Ko and defined $Kc)
|
|
36657
|
106 |
134 |
if $Ko >= $K_to_go[$ibeg] and $Kc <= $K_to_go[$iend]
|
|
36676
|
54 |
80 |
if ($line == 1 and $i == $ibeg)
|
|
36689
|
122 |
12 |
if ($i == $ibeg) { }
|
|
36692
|
7 |
115 |
if ($line == 0) { }
|
|
36698
|
7 |
0 |
if (defined $indent)
|
|
36718
|
92 |
23 |
if $types_to_go[$iendm + 1] eq "b"
|
|
36733
|
10 |
2 |
if ($closing_index > $iend)
|
|
36735
|
9 |
1 |
if ($ci_levels_to_go[$ibeg_next] > 0)
|
|
36754
|
55 |
79 |
if ($move_right == 0)
|
|
36762
|
69 |
10 |
unless defined $collapsed_length
|
|
36772
|
10 |
69 |
if ($closing_index < 0 and not $collapsed_length)
|
|
36793
|
68 |
1 |
if ($have_child or $move_right > 0)
|
|
36798
|
3 |
65 |
if ($Kc > $K_to_go[$max_index_to_go])
|
|
36802
|
62 |
6 |
if ($i == $ibeg)
|
|
36804
|
61 |
1 |
if ($length > $max_length)
|
|
36811
|
61 |
465 |
if $closing_index <= $ibeg_t
|
|
36820
|
97 |
368 |
if ($length_t > $max_length)
|
|
36828
|
0 |
68 |
if ($right_margin < 0)
|
|
36851
|
63 |
6 |
if ($move_right < 0 or $rOpts_extended_line_up_parentheses and $Kc > $K_to_go[$max_index_to_go] or $closing_index < 0 or $comma_count == 0 or $comma_count > 0 and not $is_vertically_aligned) { }
|
|
36869
|
37 |
26 |
$move_right <= $right_margin ? :
|
|
36909
|
0 |
5 |
unless @ilist
|
|
36918
|
6 |
9 |
if $inext > $iend
|
|
36922
|
7 |
2 |
ref $leading_spaces_to_go[$ibeg] ? :
|
|
36927
|
0 |
9 |
if ($excess > 0)
|
|
36930
|
0 |
0 |
if ($available_spaces > 0)
|
|
36941
|
0 |
4 |
if $inext <= $iend
|
|
36942
|
4 |
0 |
if $inext > $iend
|
|
36944
|
5 |
4 |
if $inext <= $iend
|
|
36980
|
0 |
9 |
if $max_line <= $line_open
|
|
36993
|
0 |
9 |
if ($ibeg eq $closing_index)
|
|
36994
|
0 |
9 |
if $lev_start != $levels_to_go[$ibeg]
|
|
36995
|
9 |
0 |
if $ci_start_plus != $ci_levels_to_go[$ibeg]
|
|
36996
|
0 |
0 |
if $closing_index <= $iend
|
|
37054
|
1 |
1295 |
if ($types_to_go[0] eq ":")
|
|
37060
|
12 |
1284 |
if (@{$rbond_strength_bias;})
|
|
37063
|
16 |
0 |
if ($ii >= 0 and $ii <= $max_index_to_go) { }
|
|
37080
|
0 |
1296 |
if ($types_to_go[$imin] eq "b")
|
|
37081
|
0 |
1296 |
if ($types_to_go[$imax] eq "b")
|
|
37092
|
9 |
206 |
if ($_ eq $last_tok)
|
|
37122
|
459 |
3936 |
if (@{$rcolon_list;})
|
|
37131
|
396 |
63 |
unless ($is_colon_chain)
|
|
37133
|
1801 |
65 |
unless $tokens_to_go[$i] eq "?"
|
|
37137
|
0 |
65 |
if $tokens_to_go[$max_index_to_go] eq "#" and not terminal_type_i(0, $max_index_to_go) =~ /^[\;\}]$/
|
|
37143
|
60 |
5 |
if defined $mate_index_to_go[$i] and $mate_index_to_go[$i] <= $i_next_nonblank
|
|
37147
|
4 |
1 |
if ($want_break_before{'?'})
|
|
37162
|
36 |
423 |
if ($next_nonblank_type eq '?') { }
|
|
|
4 |
419 |
elsif ($types_to_go[$i_lowest] eq '?') { }
|
|
37177
|
93 |
366 |
if ($next_nonblank_type eq ':') { }
|
|
|
4 |
362 |
elsif ($types_to_go[$i_lowest] eq ':') { }
|
|
37193
|
505 |
3890 |
if ($tokens_to_go[$i_next_nonblank] eq ")")
|
|
37211
|
4 |
379 |
if ($types_to_go[$i_prev] ne "," and defined $i_opening and $i_opening > $i_last_break)
|
|
37224
|
0 |
4395 |
if ($i_lowest <= $i_last_break)
|
|
37237
|
0 |
4395 |
$types_to_go[$i_begin] eq 'b' ? :
|
|
37239
|
294 |
4101 |
$types_to_go[$i_lowest] eq 'b' ? :
|
|
37244
|
12 |
4383 |
if ($tokens_to_go[$i_lowest] eq '{' || $tokens_to_go[$i_lowest] eq '[' and not $forced_breakpoint_to_go[$i_lowest])
|
|
37261
|
2533 |
1862 |
if ($i_begin <= $imax and $types_to_go[$i_begin] eq "b")
|
|
37274
|
53 |
1243 |
if (@i_colon_breaks)
|
|
37276
|
41 |
12 |
unless ($is_chain)
|
|
37350
|
0 |
4395 |
if ($types_to_go[$i_begin] eq "i" and substr($tokens_to_go[$i_begin], 0, 1) =~ /\w/)
|
|
37354
|
0 |
0 |
if ($tokens_to_go[$i_next_nonblank] eq "(")
|
|
37364
|
560 |
38 |
if ($i_begin < $imax and $tokens_to_go[$i_begin] eq $types_to_go[$i_begin] and not $forced_breakpoint_to_go[$i_begin] and not $tokens_to_go[$i_begin] eq '}' && $block_type_to_go[$i_begin] && $block_type_to_go[$i_begin] eq 'eval' and $leading_spaces + $summed_lengths_to_go[$i_begin + 1] - $starting_sum < $maximum_line_length)
|
|
37414
|
11927 |
24750 |
if ($type eq "b")
|
|
37417
|
582 |
36095 |
if ($old_breakpoint_to_go[$i_test] and $type eq ',' and not $want_break_before{$type} and $i_next_nonblank <= $imax and $want_break_before{$next_nonblank_type} || $token_lengths_to_go[$i_next_nonblank] > 2 || $next_nonblank_type eq ',' || $is_opening_type{$next_nonblank_type}) { }
|
|
37449
|
326 |
35769 |
if ($len >= $maximum_line_length)
|
|
37478
|
31 |
12 |
if ($strength <= $lowest_strength and $nesting_depth_to_go[$i_begin] > $nesting_depth_to_go[$i_next_nonblank] and $is_dot_and_or{$next_nonblank_type} || $next_nonblank_type eq 'k' && $is_and_or{$next_nonblank_token})
|
|
37499
|
35 |
33632 |
if ($forced_breakpoint_to_go[$i_test] or $line_count and $token eq ")" and $next_nonblank_type eq "{" and $next_nonblank_block_type and $next_nonblank_block_type ne $tokens_to_go[$i_begin] and not +($next_nonblank_block_type =~ /$SUB_PATTERN/ || $matches_ASUB{$next_nonblank_block_type}) && $nesting_depth_to_go[$i_begin] == $nesting_depth_to_go[$i_next_nonblank] and not $rOpts_opening_brace_always_on_right or $type eq "{" and $i_test == $imax)
|
|
37548
|
3045 |
0 |
if ($strength < 9999)
|
|
37558
|
45 |
3485 |
if ($next_nonblank_type eq ';' || $next_nonblank_type eq ',' and not $must_break and $leading_spaces + $summed_lengths_to_go[$i_next_nonblank + 1] - $starting_sum > $maximum_line_length)
|
|
37570
|
11 |
34 |
if ($i_lowest >= 0)
|
|
37581
|
16174 |
20492 |
if ($strength <= $lowest_strength and $strength < 10000)
|
|
37586
|
111 |
16063 |
if ($leading_alignment_type)
|
|
37600
|
6 |
0 |
if ($i_test == $imax and not $forced_breakpoint_count and $saw_good_break and $type =~ /^[#;\{]$/ and $i_last_break < 0 and $i_lowest >= 0 and $i_lowest < $imax - 1 and $strength - $lowest_strength < "0.4")
|
|
37632
|
6 |
344 |
if ($line_count > 2 and $i_lowest >= 0 and $i_lowest < $i_test and $i_test > $imax - 2 and $nesting_depth_to_go[$i_begin] > $nesting_depth_to_go[$i_lowest] and $lowest_strength < $last_break_strength - "0.4")
|
|
37645
|
3 |
3 |
if ($types_to_go[$il] =~ m[^[/\*\+\-\%]$] or $types_to_go[$ir] =~ m[^[/\*\+\-\%]$])
|
|
37658
|
3045 |
13009 |
if ($must_break)
|
|
37667
|
3761 |
5223 |
if ($line_count > 0 and $i_test < $imax and $lowest_strength - $last_break_strength <= "0.001")
|
|
37674
|
112 |
0 |
if ($tok_beg eq $next_nonblank_token and $is_chain_operator{$tok_beg} and $type_beg eq 'k' || $type_beg eq $tok_beg and $nesting_depth_to_go[$i_begin] >= $nesting_depth_to_go[$i_next_nonblank] or $tokens_to_go[$i_last_end] eq $token and $is_chain_operator{$token} and $type eq 'k' || $type eq $token and $nesting_depth_to_go[$i_last_end] >= $nesting_depth_to_go[$i_test])
|
|
37703
|
722 |
32779 |
if $i_test >= $imax
|
|
37712
|
32178 |
601 |
if ($excess < 0) { }
|
|
|
166 |
435 |
elsif ($excess == 0) { }
|
|
37732
|
119 |
47 |
if ($i_test + 1 < $imax and $next_nonblank_type ne ',' and not $is_closing_type{$next_nonblank_type}) { }
|
|
37767
|
3 |
89 |
if ($i_lowest == $i_test and $token_lengths_to_go[$i_test] > 1 and $next_nonblank_type eq ';' || $next_nonblank_type eq ',' and $rOpts_fuzzy_line_length)
|
|
37779
|
497 |
54 |
if ($i_lowest >= 0)
|
|
37794
|
0 |
4395 |
if ($i_lowest < 0)
|
|
37817
|
58 |
10 |
if (defined $i_question)
|
|
37818
|
57 |
1 |
if ($want_break_before{'?'})
|
|
37822
|
58 |
0 |
if ($i_question >= 0)
|
|
37940
|
34 |
624 |
if ($rOpts_line_up_parentheses)
|
|
37943
|
3 |
31 |
if ($rOpts_extended_continuation_indentation)
|
|
37947
|
0 |
3 |
if ($rOpts_variable_maximum_line_length)
|
|
37974
|
2745 |
0 |
if ($depth_t < $minimum_depth)
|
|
37983
|
0 |
2745 |
if ($rOpts_comma_arrow_breakpoints == 3 and $seqno)
|
|
38007
|
4 |
2741 |
%break_at_old_comma_types ? :
|
|
38011
|
1050 |
1695 |
if ($changed_seqno or not defined $has_broken_sublist[$depth_t])
|
|
38039
|
643 |
0 |
if ($item_count_stack[$dd])
|
|
38047
|
643 |
0 |
$seqno ? :
|
|
38050
|
40 |
603 |
if ($dont_align[$dd]) { }
|
|
|
593 |
10 |
elsif ($real_comma_count) { }
|
|
38083
|
317 |
276 |
if $must_break_open
|
|
38142
|
20 |
56 |
if ($old_breakpoint_to_go[$ii])
|
|
38194
|
0 |
40 |
if ($ci_start and $rOpts_extended_continuation_indentation)
|
|
38196
|
0 |
0 |
if ($self->[77]{$K0})
|
|
38198
|
9 |
26 |
if (not $ci_start and $old_breakpoint_to_go[$i_first_comma] and $level_comma == $levels_to_go[0])
|
|
38205
|
3 |
68 |
if ($old_breakpoint_to_go[$ii])
|
|
38207
|
0 |
3 |
if $obp_count > 1
|
|
38208
|
3 |
0 |
if $levels_to_go[$ii] == $level_comma
|
|
38214
|
3 |
0 |
if ($ibreak >= 0 and $obp_count == 1 and $old_comma_break_count > 0)
|
|
38217
|
0 |
3 |
if $types_to_go[$ibreak_m] eq "b"
|
|
38218
|
3 |
0 |
if ($ibreak_m >= 0)
|
|
38240
|
3 |
0 |
if ($is_uncontained_comma_break_included_type{$type_m})
|
|
38244
|
3 |
0 |
if ($ibreak_p <= $max_index_to_go)
|
|
38252
|
0 |
3 |
unless ($rOpts_break_at_old_ternary_breakpoints)
|
|
38264
|
3 |
0 |
unless $no_break
|
|
38314
|
75 |
0 |
if ($item_count_stack[$dd] == 0 and $is_logical_container{$container_type[$dd]} or $has_old_logical_breakpoints[$dd])
|
|
38326
|
44 |
190 |
if ($rand_or_list[$dd][$ii])
|
|
38400
|
2029 |
0 |
if $current_depth < $minimum_depth
|
|
38412
|
24802 |
14073 |
if ($type ne "b")
|
|
38420
|
26 |
38849 |
if ($i_want_previous_break >= 0)
|
|
38426
|
14073 |
24802 |
if $type eq "b"
|
|
38444
|
2786 |
22016 |
if ($old_breakpoint_to_go[$i])
|
|
38459
|
145 |
24657 |
if ($type eq "#")
|
|
38460
|
0 |
145 |
if ($i != $max_index_to_go)
|
|
38474
|
8 |
5 |
if ($type eq "k" and $i > 0 and $is_if_unless_while_until_for_foreach{$token} and $last_nonblank_type ne 'n' || $i > 2 and !$last_nonblank_block_type || $last_nonblank_block_type ne 'do' and $is_long_line || $next_nonblank_token eq '(' && (!defined($mate_index_to_go[$i_next_nonblank]) || $mate_index_to_go[$i_next_nonblank] < $i))
|
|
38507
|
2239 |
22563 |
if ($quick_filter_A{$type})
|
|
38508
|
63 |
2176 |
if ($type eq '||') { }
|
|
|
59 |
2117 |
elsif ($type eq '&&') { }
|
|
|
28 |
2089 |
elsif ($type eq 'f') { }
|
|
|
1542 |
547 |
elsif ($type eq 'k') { }
|
|
|
547 |
0 |
elsif ($is_assignment{$type}) { }
|
|
38510
|
31 |
32 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
38516
|
28 |
31 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
38524
|
44 |
1498 |
if ($token eq 'and') { }
|
|
|
40 |
1458 |
elsif ($token eq 'or') { }
|
|
|
145 |
1313 |
elsif ($is_if_unless{$token}) { }
|
|
38526
|
19 |
25 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
38537
|
15 |
25 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
38540
|
9 |
31 |
if ($is_logical_container{$container_type[$depth]}) { }
|
|
38544
|
16 |
15 |
if ($is_long_line) { }
|
|
|
4 |
11 |
elsif ($i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints) { }
|
|
38575
|
6898 |
17904 |
if ($type_sequence)
|
|
38588
|
3420 |
3478 |
if ($depth == $current_depth + 1 and $is_opening_type{$type}) { }
|
|
|
3208 |
270 |
elsif ($depth == $current_depth - 1 and $is_closing_type{$type}) { }
|
|
38625
|
19150 |
5652 |
unless $quick_filter_B{$type}
|
|
38632
|
1599 |
4053 |
if ($is_non_list_type{$type}) { }
|
|
|
2881 |
1172 |
elsif ($type eq ',') { }
|
|
|
1048 |
124 |
elsif ($type eq '=>') { }
|
|
|
124 |
0 |
elsif ($type eq '.') { }
|
|
38633
|
1589 |
10 |
unless ($self->is_in_list_by_i($i))
|
|
38639
|
28 |
1561 |
if ($type eq "f")
|
|
38650
|
0 |
1048 |
if $last_nonblank_type eq "=>"
|
|
38651
|
6 |
1042 |
if $break_at_old_commas[$depth]
|
|
38653
|
0 |
1042 |
if $rOpts_comma_arrow_breakpoints == 3 and not defined $override_cab3[$depth]
|
|
38680
|
928 |
2029 |
if $dd < $current_depth
|
|
38681
|
96 |
2861 |
if ($item_count_stack[$dd])
|
|
38686
|
50 |
2907 |
if $has_old_logical_breakpoints[$dd]
|
|
38689
|
1 |
2956 |
if @{$rfor_semicolon_list[$dd];}
|
|
38693
|
904 |
24 |
if (defined $i_opening and $i_opening >= 0 and not is_unbreakable_container($dd) and not $type eq 'Q' && $i_opening >= $max_index_to_go - 2 && ($token eq q['] || $token eq '"'))
|
|
38717
|
31 |
1998 |
if ($has_old_logical_breakpoints[$current_depth]) { }
|
|
|
12 |
1986 |
elsif ($i_old_assignment_break and $total_depth_variation > 4 and $old_breakpoint_count == 1 and $i_old_assignment_break < $max_index_to_go) { }
|
|
38759
|
650 |
2231 |
if ($want_comma_break[$depth])
|
|
38761
|
165 |
485 |
if ($is_closing_type{$next_nonblank_type})
|
|
38762
|
165 |
0 |
if ($rOpts_comma_arrow_breakpoints) { }
|
|
38771
|
0 |
0 |
$in ? :
|
|
38772
|
0 |
0 |
if ($self->[41]{$seqno})
|
|
38779
|
485 |
0 |
unless $next_nonblank_type eq "#"
|
|
38792
|
480 |
5 |
if ($ibreak > 0 and not $is_closing_token{$tokens_to_go[$ibreak + 1]})
|
|
38795
|
142 |
338 |
if ($tokens_to_go[$ibreak] eq "-")
|
|
38796
|
467 |
13 |
if ($types_to_go[$ibreak] eq "b")
|
|
38797
|
469 |
11 |
if ($types_to_go[$ibreak] =~ /^[,wiZCUG\(\{\[]$/)
|
|
38806
|
469 |
0 |
if ($types_to_go[$ibreak + 1] ne "->" and $types_to_go[$ibreak + 1] ne ",")
|
|
38826
|
9 |
11 |
if ($depth < $starting_depth and $comma_follows_last_closing_token and not $dont_align[$depth])
|
|
38830
|
9 |
0 |
unless $next_nonblank_type eq "#"
|
|
38837
|
643 |
1579 |
if ($item_count == 0)
|
|
38844
|
31 |
612 |
if ($opening_structure_index_stack[$depth] < 0 and $self->is_in_block_by_i($i))
|
|
38853
|
443 |
1779 |
if ($last_nonblank_type =~ /^[iR\]]$/)
|
|
38905
|
29 |
2757 |
if ($type eq 'k') { }
|
|
38908
|
157 |
2629 |
if ($next_nonblank_type eq 'k') { }
|
|
38917
|
6 |
2780 |
if ($poor_break)
|
|
38931
|
73 |
2707 |
if ($is_assignment{$type}) { }
|
|
|
29 |
2678 |
elsif ($type eq 'k') { }
|
|
38935
|
0 |
29 |
if ($is_if_unless{$token})
|
|
38936
|
0 |
0 |
if ($rOpts_break_at_old_trailing_conditionals)
|
|
38949
|
0 |
2780 |
if ($is_assignment{$next_nonblank_type}) { }
|
|
|
156 |
2624 |
elsif ($next_nonblank_type eq 'k') { }
|
|
|
9 |
2615 |
elsif ($next_nonblank_type eq 'A') { }
|
|
38960
|
28 |
128 |
if ($is_keyword_returning_list{$next_nonblank_token}) { }
|
|
|
7 |
121 |
elsif ($is_if_unless{$next_nonblank_token}) { }
|
|
|
0 |
121 |
elsif ($is_if_unless_while_until_for_foreach{$next_nonblank_token}) { }
|
|
38961
|
14 |
0 |
if ($rOpts_break_at_old_keyword_breakpoints and $type =~ /^[=\)\]\}Riw]$/ || $type eq 'k' && $is_keyword_returning_list{$token})
|
|
38980
|
14 |
0 |
unless $skip
|
|
38987
|
7 |
0 |
if ($rOpts_break_at_old_trailing_conditionals)
|
|
38998
|
0 |
0 |
if ($rOpts_break_at_old_trailing_loops and $token ne '}' || $type ne '}')
|
|
39008
|
0 |
0 |
unless $skip
|
|
39019
|
5 |
4 |
if ($rOpts_break_at_old_attribute_breakpoints)
|
|
39040
|
3343 |
3555 |
if ($is_closing_sequence_token{$token}) { }
|
|
39042
|
135 |
3208 |
if ($type eq ":")
|
|
39046
|
75 |
1 |
if ($i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_ternary_breakpoints and $levels_to_go[$i] < $high_stress_level)
|
|
39057
|
8 |
67 |
unless (defined $mix)
|
|
39058
|
17 |
58 |
if ($ieq > 0 and $ieq < $mix)
|
|
39066
|
844 |
2499 |
if (has_postponed_breakpoint($type_sequence))
|
|
39067
|
14 |
830 |
$type eq ':' ? :
|
|
39068
|
298 |
546 |
if ($i >= $inc)
|
|
39080
|
135 |
3420 |
if ($token eq '?') { }
|
|
39082
|
0 |
121 |
if (not defined $i_colon or $i == 0 or $i == $max_index_to_go)
|
|
39094
|
10 |
4 |
if ($i_last_colon < 0 || $parent_seqno_to_go[$i_last_colon] != $parent_seqno_to_go[$i] and $tokens_to_go[$max_index_to_go] ne "#")
|
|
39117
|
28 |
3392 |
if ($rOpts_extended_line_up_parentheses and not defined $mate_index_to_go[$i])
|
|
39122
|
15 |
13 |
if ($lp_object)
|
|
39152
|
0 |
3420 |
if ($rOpts_comma_arrow_breakpoints == 3 and $type_sequence)
|
|
39161
|
1001 |
2419 |
$is_container_label_type{$last_nonblank_type} ? :
|
|
39183
|
2 |
3418 |
%break_at_old_comma_types ? :
|
|
39187
|
735 |
2685 |
if ($next_nonblank_type eq "b" or $next_nonblank_type eq "#")
|
|
39222
|
4 |
0 |
if ($block_type and $last_nonblank_token eq ")" and not defined $mate_index_to_go[$i_last_nonblank_token] and not $rOpts_opening_brace_always_on_right and $type eq "{" and $token eq "{")
|
|
39264
|
716 |
2492 |
if $depth < $minimum_depth
|
|
39275
|
4 |
0 |
if ($token eq ")" and $next_nonblank_block_type and $interrupted_list[$current_depth] and $next_nonblank_type eq "{" and not $rOpts_opening_brace_always_on_right)
|
|
39290
|
547 |
2661 |
if ($item_count_stack[$current_depth])
|
|
39304
|
286 |
2922 |
if ($rOpts_line_up_parentheses and $saw_opening_structure)
|
|
39325
|
0 |
3208 |
if ($cab_flag == 3 and $type_sequence)
|
|
39327
|
0 |
0 |
if (defined $test_cab)
|
|
39334
|
10 |
3198 |
if ($type_sequence and $cab_flag != 5)
|
|
39335
|
7 |
3 |
if (not $self->[39]{$type_sequence}) { }
|
|
39343
|
2 |
1 |
unless ($rtype_count and $rtype_count->{'=>'})
|
|
39353
|
29 |
2463 |
if ($saw_opening_structure and not $lp_object and $levels_to_go[$i_opening] >= $high_stress_level)
|
|
39375
|
462 |
1863 |
if (not $is_long_term and $saw_opening_structure and $is_opening_token{$tokens_to_go[$i_opening]} and $index_before_arrow[$depth + 1] > 0 and not $opening_vertical_tightness{$tokens_to_go[$i_opening]})
|
|
39389
|
2168 |
1040 |
if (not $is_long_term and $saw_opening_structure)
|
|
39397
|
198 |
1970 |
if ($rOpts_line_up_parentheses)
|
|
39412
|
57 |
141 |
if (ref $indentation and $is_list)
|
|
39416
|
0 |
57 |
if ($diff > 0)
|
|
39420
|
25 |
173 |
if ($lp_tol_boost and $lp_object)
|
|
39433
|
95 |
41 |
if ($cab_flag != 0 and $cab_flag != 4 and $saw_opening_structure and $breakpoint_undo_stack[$current_depth] < $forced_breakpoint_undo_count and not $is_long_term and $rOpts_ignore_old_breakpoints || !$self->[20]{$type_sequence} || $cab_flag == 2 && !$self->[41]{$type_sequence})
|
|
39566
|
236 |
1746 |
if ($item_count_stack[$current_depth] == 0 and $saw_opening_structure and $tokens_to_go[$i_opening] eq "(" and $is_logical_container{$container_type[$current_depth]})
|
|
39575
|
223 |
13 |
if (not $has_comma_breakpoints) { }
|
|
39590
|
4 |
3204 |
if ($is_long_term and @{$rfor_semicolon_list[$current_depth];})
|
|
39597
|
3 |
1 |
unless $lp_object
|
|
39605
|
738 |
2470 |
if (not $block_type || $is_simple_logical_expression and $has_comma_breakpoints || !$saw_opening_structure || $is_long_term && !$self->is_in_block_by_i($i_opening)) { }
|
|
|
12 |
2458 |
elsif ($is_simple_logical_expression and $has_old_logical_breakpoints[$current_depth]) { }
|
|
|
97 |
2361 |
elsif ($is_long_term) { }
|
|
39641
|
98 |
640 |
if ($lp_object)
|
|
39649
|
738 |
0 |
if ($minimum_depth <= $current_depth)
|
|
39651
|
527 |
211 |
if ($i_opening >= 0)
|
|
39652
|
480 |
0 |
unless ($do_not_break_apart or is_unbreakable_container($current_depth))
|
|
39661
|
0 |
0 |
if ($is_long_term and $types_to_go[$i_opening] eq "L" and $opening_vertical_tightness{'{'} and $closing_vertical_tightness{'}'})
|
|
39667
|
0 |
0 |
if ($seqno)
|
|
39675
|
107 |
631 |
if ($last_comma_index[$depth])
|
|
39680
|
5 |
733 |
if ($last_dot_index[$depth])
|
|
39688
|
456 |
282 |
if ($i_opening > 2)
|
|
39689
|
238 |
218 |
$types_to_go[$i_opening - 1] eq 'b' ? :
|
|
39696
|
11 |
445 |
if ($type_prev eq ',' and $types_to_go[$i_prev - 1] eq ')' || $types_to_go[$i_prev - 1] eq '}') { }
|
|
|
6 |
439 |
elsif ($type_prev =~ /^([k\:\?]|&&|\|\|)$/ and $want_break_before{$token_prev}) { }
|
|
39719
|
84 |
654 |
if ($types_to_go[$i + 1] eq ",")
|
|
39724
|
0 |
738 |
if ($is_assignment{$next_nonblank_type} and $breakpoint_stack[$current_depth] != $forced_breakpoint_count)
|
|
39740
|
25 |
713 |
if (defined $icomma and $i_opening - $icomma < 5)
|
|
39741
|
0 |
25 |
unless ($forced_breakpoint_to_go[$icomma])
|
|
39803
|
23 |
2547 |
if ($i_opening_minus <= 0)
|
|
39809
|
1356 |
1191 |
if ($type_prev_nb eq "b" and $iprev_nb > 0)
|
|
39813
|
209 |
2338 |
if ($levels_to_go[$iprev_nb] < $levels_to_go[$i_opening_paren]) { }
|
|
|
240 |
2098 |
elsif ($type_prev_nb eq ',') { }
|
|
|
1828 |
270 |
elsif ($tokens_to_go[$i_opening_paren] eq '(' and $type_prev_nb ne '=>' or $is_kwiZ{$type_prev_nb}) { }
|
|
|
22 |
248 |
elsif ($type_prev_nb eq '=') { }
|
|
39840
|
1456 |
2581 |
if ($is_key_type{$types_to_go[$j]})
|
|
39843
|
124 |
1332 |
if ($types_to_go[$j] eq "=")
|
|
39848
|
11 |
1817 |
if ($types_to_go[$i_opening_minus] eq "b")
|
|
39853
|
0 |
22 |
if ($want_break_before{$type_prev_nb})
|
|
39891
|
9 |
584 |
unless defined $rhash_A
|
|
39910
|
82 |
502 |
if ($has_broken_sublist)
|
|
39920
|
99 |
402 |
if ($break_at_old_commas or $interrupted or $i_opening_paren < 0)
|
|
39945
|
62 |
340 |
if ($rOpts_line_up_parentheses and $rhash_A->{'_i_effective_last_comma'} != $rhash_A->{'_i_last_comma'})
|
|
39953
|
0 |
62 |
if ($i_first_comma > 0 and $types_to_go[$i_first_comma - 1] eq "b")
|
|
39964
|
243 |
159 |
if $excess + $tol <= 0
|
|
39999
|
0 |
10 |
if ($interrupted and $rOpts_extended_line_up_parentheses and ref $leading_spaces_to_go[$i_first_comma])
|
|
40016
|
0 |
82 |
if ($maximum_field_count and $fields > $maximum_field_count)
|
|
40026
|
27 |
175 |
if ($j < $item_count and $ri_term_end->[$j] == $ri_term_begin->[$j] and $ritem_lengths->[$j] <= $small_length)
|
|
40032
|
82 |
202 |
if $j == 0
|
|
40033
|
6 |
196 |
if ($is_simple_last_term and $is_simple_next_term and $skipped_count < $max_skipped_count) { }
|
|
40042
|
67 |
129 |
unless defined $i_tc
|
|
40050
|
10 |
72 |
if ($interrupted)
|
|
40121
|
2 |
5 |
if ($number_of_fields_best == 1 or $in_hierarchical_list or $comma_count > 1 and not $long_last_term || $long_first_term) { }
|
|
|
2 |
3 |
elsif ($long_last_term) { }
|
|
|
3 |
0 |
elsif ($long_first_term) { }
|
|
40142
|
1 |
1 |
unless $must_break_open
|
|
40216
|
18 |
141 |
if ($is_lp_formatting and not $must_break_open)
|
|
40228
|
12 |
147 |
unless defined $hash_B
|
|
40259
|
73 |
40 |
$packed_lines == 2 ? :
|
|
|
12 |
113 |
$packed_lines == 1 ? :
|
|
|
22 |
125 |
$item_count < 3 ? :
|
|
40266
|
125 |
22 |
if ($opening_token eq "(")
|
|
40272
|
6 |
119 |
if ($rOpts_break_open_compact_parens)
|
|
40279
|
0 |
6 |
if ($flag eq '*' or $flag eq '1') { }
|
|
|
0 |
6 |
elsif ($flag eq '0') { }
|
|
40299
|
60 |
29 |
if ($packed_lines <= 2 and $item_count < 9 and $opening_is_in_block and $two_line_word_wrap_ok)
|
|
40309
|
5 |
6 |
if ($is_lp_formatting and $item_count == 2 and not $must_break_open)
|
|
40324
|
28 |
27 |
if ($number_of_fields == 2 and $item_count == 3 or $new_identifier_count > 0 and $sparsity > "0.15")
|
|
40335
|
1 |
27 |
if $use_separate_first_term
|
|
40340
|
25 |
3 |
unless ($must_break_open)
|
|
40341
|
24 |
1 |
if ($break_count <= 1 or $is_lp_formatting and not $need_lp_break_open)
|
|
40383
|
6 |
0 |
if (not $too_long and $i_opening_paren > 0 and $opening_token eq "(")
|
|
40392
|
0 |
0 |
if (not $too_long and $i_opening_paren > 0 and $list_type eq "=>")
|
|
40394
|
0 |
0 |
if ($i_opening_minus_test >= 0)
|
|
40414
|
17 |
95 |
if (not $maximum_field_count && ($packed_lines > 1 || @{$ri_ragged_break_list;}) && $number_of_fields >= $maximum_field_count and $formatted_lines < 3 && $packed_lines < $formatted_lines || $formatted_lines < 2 || $unused_columns > $max_allowed_sparsity * $formatted_columns)
|
|
40436
|
0 |
17 |
if ($packed_lines > 2 and $item_count > 10) { }
|
|
40448
|
0 |
17 |
if $use_separate_first_term
|
|
40450
|
3 |
14 |
unless ($must_break_open_container)
|
|
40451
|
3 |
0 |
if ($break_count <= 1 or $is_lp_formatting and not $need_lp_break_open)
|
|
40492
|
0 |
593 |
if $item_count < 1
|
|
40497
|
23 |
570 |
if ($i_last_comma >= $max_index_to_go)
|
|
40499
|
9 |
14 |
if $item_count < 1
|
|
40522
|
1 |
2112 |
$i == 0 || $types_to_go[$i - 1] eq 'b' ? :
|
|
40526
|
2017 |
96 |
$types_to_go[$i_prev_plus] eq 'b' ? :
|
|
40539
|
584 |
1529 |
if ($j == 0) { }
|
|
40544
|
752 |
777 |
if ($length > $rmax_length->[$is_odd])
|
|
40553
|
578 |
6 |
$types_to_go[$i_last_comma + 1] eq 'b' ? :
|
|
40560
|
486 |
98 |
$types_to_go[$i_closing_paren - 1] eq 'b' ? :
|
|
40568
|
463 |
121 |
if ($last_item_length > 0)
|
|
40579
|
387 |
76 |
if ($last_item_length > $rmax_length->[$i_odd])
|
|
40586
|
156 |
307 |
if ($types_to_go[$i_b + 1] =~ /^[iR\]]$/)
|
|
40592
|
55 |
529 |
if ($i_effective_last_comma >= $max_index_to_go)
|
|
40600
|
580 |
4 |
unless $maximum_field_count
|
|
40666
|
4 |
8 |
if ($identifier_count >= $item_count - 1 or $is_assignment{$next_nonblank_type} or $list_type and $list_type ne "=>" and not $list_type =~ /^[\:\?]$/)
|
|
40690
|
159 |
0 |
unless ($use_separate_first_term)
|
|
40691
|
6 |
153 |
if ($is_keyword_with_special_leading_term{$list_type})
|
|
40695
|
5 |
1 |
if ($item_count < 3) { }
|
|
|
1 |
0 |
elsif ($first_term_length < 20 and $i_first_comma - $i_opening_paren < 4) { }
|
|
40696
|
5 |
0 |
if ($i_first_comma - $i_opening_paren < 4)
|
|
40704
|
1 |
0 |
if ($first_term_length < $columns)
|
|
40715
|
6 |
153 |
if ($use_separate_first_term) { }
|
|
40726
|
5 |
1 |
if $item_count <= 1
|
|
40738
|
53 |
100 |
if ($first_term_length > $rmax_length->[0])
|
|
40745
|
88 |
66 |
$rmax_length->[0] > $rmax_length->[1] ? :
|
|
40758
|
0 |
0 |
if ($rOpts_variable_maximum_line_length and $tokens_to_go[$i_opening_paren] eq "(" and @{$ri_term_begin;})
|
|
40767
|
0 |
0 |
if ($type eq "w")
|
|
40806
|
23 |
131 |
if ($number_of_fields_best != 0 and $number_of_fields_best < $number_of_fields_max) { }
|
|
|
0 |
131 |
elsif ($number_of_fields_best > 1 and $number_of_fields_best > $number_of_fields_max) { }
|
|
40824
|
17 |
19 |
if ($is_lp_formatting and $number_of_fields == 0 || $number_of_fields == 1 && $number_of_fields != $number_of_fields_best)
|
|
40849
|
56 |
98 |
if ($number_of_fields <= 0)
|
|
40855
|
0 |
154 |
if ($maximum_field_count and $number_of_fields > $maximum_field_count)
|
|
40872
|
41 |
113 |
if ($i_last_comma == $i_effective_last_comma) { }
|
|
40886
|
0 |
113 |
if ($i_first_comma > 0 and $types_to_go[$i_first_comma - 1] eq "b")
|
|
40893
|
0 |
154 |
if ($columns <= 0)
|
|
40900
|
7 |
147 |
if ($number_of_fields <= 0)
|
|
40921
|
43 |
104 |
if ($formatted_lines != int $formatted_lines)
|
|
40933
|
68 |
79 |
if ($number_of_fields > 1) { }
|
|
40941
|
12 |
135 |
if ($formatted_columns < $packed_columns)
|
|
40986
|
10 |
7 |
if ($available_spaces > 0)
|
|
40990
|
5 |
5 |
if ($number_of_fields_best == 0)
|
|
40995
|
3 |
7 |
if ($number_of_fields_best != 1)
|
|
40997
|
3 |
0 |
if ($available_spaces > $spaces_wanted_2)
|
|
41002
|
6 |
4 |
if ($spaces_wanted > 0)
|
|
41008
|
5 |
1 |
if ($deleted_spaces > 0)
|
|
41014
|
0 |
5 |
if ($number_of_fields_best == 1 and $number_of_fields >= 1)
|
|
41040
|
0 |
97 |
if ($number_of_fields < 1)
|
|
41046
|
0 |
97 |
$use_separate_first_term ? :
|
|
41086
|
3 |
151 |
if ($maximum_field_count)
|
|
41107
|
323 |
719 |
if ($types_to_go[$ib] =~ /^[qQ]$/) { }
|
|
|
36 |
683 |
elsif ($types_to_go[$ib] =~ /^[w\-]$/) { }
|
|
41118
|
783 |
259 |
if ($ib eq $ie) { }
|
|
41119
|
53 |
730 |
if ($is_quote and $tokens_to_go[$ib] =~ /\s/)
|
|
41125
|
229 |
30 |
if (&first(sub {
|
|
41129
|
24 |
235 |
if (&first(sub {
|
|
41138
|
290 |
752 |
if ($weighted_length >= $definitely_complex) { }
|
|
|
11 |
741 |
elsif ($i == $i_max and $i_last_break == $i - 1 and $weighted_length <= $definitely_simple) { }
|
|
41142
|
21 |
131 |
if ($i_last_break == $i - 1 and $i > 1 and $i_last_last_break != $i - 2)
|
|
41174
|
62 |
88 |
if ($max_width > 12 and $complex_item_count > $item_count / 2 and $number_of_fields_best != 2)
|
|
41196
|
2 |
3 |
if ($item_count <= 5) { }
|
|
41217
|
9 |
15 |
if ($length > $max_length[$is_odd])
|
|
41221
|
21 |
3 |
if (defined $last_length)
|
|
41228
|
18 |
6 |
if (defined $ll) { }
|
|
41240
|
3 |
0 |
$item_count > 5 ? :
|
|
|
0 |
3 |
$item_count > 10 ? :
|
|
41241
|
0 |
3 |
if ($total_variation_2 >= $factor * $total_variation_1)
|
|
41270
|
10 |
149 |
if ($odd_or_even == 1 and $max_pairs * $pair_width + $max_width <= $columns)
|
|
41295
|
50 |
97 |
if ($number_of_fields >= $odd_or_even * 2 and $formatted_lines > 0)
|
|
41299
|
0 |
50 |
if ($odd_or_even < 1)
|
|
41324
|
39 |
34 |
if ($j)
|
|
41352
|
137 |
1108 |
if ($old_breakpoint_to_go[$i])
|
|
41358
|
97 |
1 |
unless ($controlled_comma_style or $break_at_old_commas)
|
|
41373
|
0 |
0 |
if ($types_to_go[$i_break] ne ',') { }
|
|
41375
|
0 |
0 |
if ($index > $i_break and $types_to_go[$index] eq ",")
|
|
41387
|
1 |
2 |
if (not $controlled_comma_style and $break_at_old_commas)
|
|
41392
|
1 |
0 |
unless ($mixed)
|
|
41412
|
409 |
0 |
if ($i >= 0 and $i <= $j and $j <= $max_index_to_go) { }
|
|
41445
|
0 |
4747 |
if ($ibeg < 0)
|
|
41448
|
122 |
4625 |
if ($ibeg > $iend)
|
|
41462
|
606 |
1459 |
if (ref $spaces)
|
|
41483
|
905 |
12149 |
if (ref $excess)
|
|
41486
|
241 |
387 |
if ($total_weld_count and $type_sequence_to_go[$iend] and not $ignore_right_weld)
|
|
41491
|
12 |
229 |
if defined $wr
|
|
41508
|
253 |
3837 |
ref $indentation ? :
|
|
41517
|
39 |
0 |
ref $indentation ? :
|
|
41528
|
17 |
0 |
ref $item ? :
|
|
41567
|
6 |
652 |
if ($high_stress_level <= 1)
|
|
41573
|
6 |
652 |
if ($high_stress_level <= 2 and not $rOpts_add_whitespace)
|
|
41633
|
0 |
313 |
if (not $rOpts_line_up_parentheses && defined $max_index_to_go or $max_index_to_go < 0)
|
|
41637
|
0 |
0 |
defined $rOpts_line_up_parentheses ? :
|
|
41641
|
0 |
0 |
defined $max_index_to_go ? :
|
|
41680
|
2 |
311 |
if ($starting_in_quote)
|
|
41685
|
218 |
95 |
if ($Kpnb > 0 and $rLL->[$Kpnb][6] eq "b")
|
|
41688
|
281 |
32 |
if ($Kpnb >= 0 and $rLL->[$Kpnb][6] ne "b")
|
|
41692
|
281 |
32 |
if (defined $K_last_nonblank)
|
|
41709
|
1844 |
4187 |
if ($stack_changed)
|
|
41712
|
827 |
1017 |
if ($lp_object) { }
|
|
41727
|
348 |
5683 |
if ($type eq "{" or $type eq "(")
|
|
41735
|
145 |
203 |
if ($ii_last_equals)
|
|
41747
|
977 |
5054 |
if ($level < $current_level or $ci_level < $current_ci_level)
|
|
41754
|
1563 |
4468 |
if ($level > $current_level or $ci_level > $current_ci_level)
|
|
41761
|
3960 |
2071 |
if ($type ne "b")
|
|
41766
|
233 |
3727 |
if ($type eq '=>') { }
|
|
|
670 |
3057 |
elsif ($type eq ',') { }
|
|
|
89 |
2968 |
elsif ($is_assignment{$type}) { }
|
|
41786
|
9 |
79 |
if ($ii > $ii_begin_line and $ii == 1 && $types_to_go[0] eq 'b' || $hash_test2{$last_nonblank_type} || $last_nonblank_type eq '{' && $type ne '}' || $last_nonblank_type eq '(' && $type ne ')' || $hash_test3{$type} || $last_nonblank_type eq '}' && $last_nonblank_token eq $last_nonblank_type || $last_nonblank_type eq 'k' && ($last_nonblank_token eq 'return' && $type ne '{') || $type eq 'k' && $is_if_unless_and_or_last_next_redo_return{$token} || $is_assignment{$last_nonblank_type} && ($hash_test1{$last_last_nonblank_type} || $lp_position_predictor > $maximum_line_length_at_level[$level] - $rOpts_maximum_line_length / 2))
|
|
41846
|
1125 |
0 |
if ($ii_begin_line > 0)
|
|
41850
|
8 |
1117 |
$last_nonblank_type eq 'k' ? :
|
|
41851
|
14 |
1111 |
if $wbb
|
|
41863
|
4599 |
1432 |
if ($ii > $ii_begin_line) { }
|
|
41871
|
2893 |
1706 |
if (ref $indentation)
|
|
41892
|
3604 |
2427 |
if ($rLP->[$max_lp_stack][2])
|
|
41896
|
1403 |
2201 |
if ($max_lp_stack > 0 and $ci_level and $$rLP[$max_lp_stack - 1][2]) { }
|
|
41910
|
236 |
77 |
unless $rOpts_extended_line_up_parentheses
|
|
41934
|
136 |
9 |
if ($ii_last_equals and $ii < $max_index_to_go)
|
|
41937
|
102 |
34 |
if $types_to_go[$inext_nb] eq "b"
|
|
41943
|
108 |
37 |
if ($ii_last_equals and $ii_last_equals > $ii_begin_line and not $is_empty_container)
|
|
41962
|
0 |
108 |
if ($want_break_before{$types_to_go[$i_test]}) { }
|
|
|
108 |
0 |
elsif ($types_to_go[$i_test + 1] eq 'b') { }
|
|
41964
|
0 |
0 |
if $types_to_go[$i_test] eq "b"
|
|
41987
|
3 |
105 |
if ($min_len and $min_len > $len_increase)
|
|
41991
|
0 |
28 |
if ($lp_position_predictor + $len_increase > $mll or $seqno and $self->[95]{$seqno} or $rOpts_variable_maximum_line_length and $seqno and $self->[41]{$seqno} or $lp_position_predictor > $mll - $rOpts_maximum_line_length * 3 / 4 and $types_to_go[$ii_last_equals] ne "=>" and $old_breakpoint_to_go[$ii_last_equals] || $ii_last_equals > 0 && $old_breakpoint_to_go[$ii_last_equals - 1] || $ii_last_equals > 1 && $types_to_go[$ii_last_equals - 1] eq 'b' && $old_breakpoint_to_go[$ii_last_equals - 2])
|
|
42032
|
15 |
1 |
if (defined $Kc and $Kc <= $K_to_go[$max_index_to_go] or $rOpts_extended_line_up_parentheses)
|
|
42058
|
0 |
0 |
if ($ii == $max_index_to_go and not $block_type_to_go[$ii] and $types_to_go[$ii] eq "{" and $seqno and not $self->[30]{$seqno})
|
|
42091
|
0 |
1113 |
if ($max_lp_stack <= 0)
|
|
42103
|
623 |
490 |
if ($rLP->[$max_lp_stack][2])
|
|
42111
|
352 |
271 |
if ($type eq "}" or $type eq ")")
|
|
42115
|
34 |
318 |
unless defined $comma_count
|
|
42116
|
44 |
308 |
unless defined $arrow_count
|
|
42126
|
56 |
55 |
if ($available_spaces > 0 and $K_start >= $K_to_go[0] and $comma_count <= 0 || $arrow_count > 0)
|
|
42137
|
0 |
56 |
if ($i < 0 or $i > $max_lp_object_list)
|
|
42146
|
29 |
27 |
if ($arrow_count == 0) { }
|
|
42172
|
506 |
607 |
if ($rLP_top->[2])
|
|
42180
|
977 |
136 |
if ($lev <= $level and $ci_lev <= $ci_level)
|
|
42223
|
1531 |
32 |
if (defined $K_last_nonblank)
|
|
42227
|
507 |
1024 |
$last_nonblank_seqno ? :
|
|
42236
|
34 |
1529 |
if ($max_lp_stack == 0) { }
|
|
|
1251 |
278 |
elsif ($last_nonblank_block_type or not $last_nonblank_seqno or defined $last_nonblank_seqno and $self->[30]{$last_nonblank_seqno} or $last_nonblank_type ne '{' or not $in_lp_mode and $level >= $high_stress_level) { }
|
|
42268
|
517 |
734 |
if ($in_lp_mode)
|
|
42286
|
58 |
220 |
if (defined $min_len)
|
|
42291
|
3 |
55 |
if ($excess > 0)
|
|
42303
|
151 |
127 |
if ($rLP_top->[2])
|
|
42309
|
0 |
278 |
!$rOpts_add_whitespace && $rOpts_extended_line_up_parentheses ? :
|
|
42314
|
2 |
276 |
if (not $in_lp_mode and $available_spaces <= $tol || $next_opening_too_far) { }
|
|
42326
|
200 |
76 |
if ($available_spaces >= $standard_increment) { }
|
|
|
47 |
29 |
elsif ($available_spaces > 1) { }
|
|
|
29 |
0 |
elsif ($is_opening_token{$last_nonblank_token}) { }
|
|
42338
|
10 |
34 |
if ($type ne "b" and $excess <= 0 and $is_opening_token{$last_nonblank_token} and $ii > 0 and $types_to_go[$ii - 1] ne "b")
|
|
42361
|
15 |
14 |
if ($tightness{$last_nonblank_token} < 2 or $rOpts_continuation_indentation < 2 and $self->[21]{$last_nonblank_seqno}) { }
|
|
42381
|
62 |
214 |
if ($available_spaces < 0)
|
|
42392
|
1177 |
386 |
if ($type ne "b")
|
|
42394
|
506 |
671 |
if ($rLP->[$max_lp_stack][2])
|
|
42404
|
623 |
554 |
if ($in_lp_mode)
|
|
42409
|
623 |
0 |
if ($level >= 0)
|
|
42414
|
623 |
0 |
if ($ii_begin_line >= 0 and $ii_begin_line <= $max_index_to_go)
|
|
42429
|
2 |
0 |
if ($type eq "#" and $max_index_to_go > 0 and $align_seqno and $rOpts_indent_columns > 0)
|
|
42462
|
623 |
0 |
if ($level >= 0)
|
|
42466
|
271 |
352 |
if ($is_opening_token{$last_nonblank_token} and $last_nonblank_seqno)
|
|
42493
|
169 |
1008 |
if ($available_spaces > 0 and $lp_object)
|
|
42497
|
31 |
138 |
if $space_count > $halfway
|
|
42515
|
243 |
882 |
if $max_lp_object_list < 0
|
|
42523
|
32 |
850 |
if ($types_to_go[$ii_to_go] eq "," and $ii_to_go < $max_index_to_go)
|
|
42527
|
32 |
0 |
if ($types_to_go[$in] eq "b" and $in < $max_index_to_go)
|
|
42528
|
7 |
25 |
if ($is_closing_token{$tokens_to_go[$in]})
|
|
42538
|
880 |
2 |
if $spaces_needed <= 0
|
|
42552
|
187 |
13 |
if $item->get_closed >= 0
|
|
42556
|
8 |
5 |
if ($available_spaces > 0)
|
|
42561
|
0 |
2 |
unless @candidates
|
|
42566
|
0 |
7 |
unless $Perl::Tidy::Formatter::b->[1] <=> $Perl::Tidy::Formatter::a->[1]
|
|
42571
|
2 |
0 |
$available_spaces > $spaces_needed ? :
|
|
42587
|
200 |
0 |
if ($old_spaces >= $deleted_spaces) { }
|
|
42609
|
2 |
0 |
if $spaces_needed <= 0
|
|
42630
|
148 |
88 |
if $max_lp_object_list < 0
|
|
42637
|
521 |
19 |
if $item->get_closed >= 0
|
|
42642
|
9 |
10 |
if ($available_spaces > 0)
|
|
42683
|
0 |
113 |
if $i_begin_line < 0 or $i_begin_line > $max_index_to_go
|
|
42688
|
18 |
95 |
if ($i_begin_line == $i_opening)
|
|
42698
|
18 |
0 |
unless $self->[74]{$K_to_go[$i_opening]}
|
|
42699
|
0 |
0 |
unless $types_to_go[$max_index_to_go] eq "q"
|
|
42706
|
1 |
94 |
if $test2 != $test1
|
|
42710
|
44 |
50 |
if ($ibr > 0 and $types_to_go[$ibr] eq "b")
|
|
42715
|
44 |
50 |
if ($ibr >= 0)
|
|
42721
|
33 |
11 |
if (defined $i_nonblank)
|
|
42742
|
5 |
1 |
if ($available_spaces > 0 and $spaces_wanted <= $available_spaces || !$item->get_have_child)
|
|
42775
|
0 |
0 |
unless (defined $ri_first and defined $ri_last)
|
|
42783
|
0 |
0 |
if ($nmax < 0 or $nmax_check < 0 or $nmax != $nmax_check)
|
|
42794
|
0 |
0 |
if ($ibeg < 0 or $iend < $ibeg or $iend > $max_index_to_go)
|
|
42800
|
0 |
0 |
if $n == 0
|
|
42801
|
0 |
0 |
if ($ibeg <= $iend_m)
|
|
42848
|
773 |
4665 |
if (not $max_index_to_go and $type_beg eq "#")
|
|
42851
|
56 |
717 |
if ($batch_CODE_type and $batch_CODE_type eq 'HSC') { }
|
|
42855
|
85 |
5353 |
if ($rOpts_closing_side_comments)
|
|
42861
|
841 |
4597 |
if ($n_last_line > 0) { }
|
|
|
83 |
4514 |
elsif ($rOpts_extended_continuation_indentation) { }
|
|
42869
|
23 |
310 |
if $type_beg eq "k" and $is_if_unless{$token_beg}
|
|
42871
|
837 |
4 |
if $rOpts_logical_padding
|
|
42874
|
35 |
806 |
if $rOpts_extended_line_up_parentheses
|
|
42894
|
1562 |
3876 |
if (not $max_index_to_go) { }
|
|
42897
|
56 |
1506 |
if ($is_HSC) { }
|
|
42934
|
3072 |
5438 |
if ($nline > 0)
|
|
42949
|
3072 |
5438 |
if ($nline < $n_last_line) { }
|
|
|
4092 |
1346 |
elsif (not $is_block_comment and $Kend < $Klimit) { }
|
|
42966
|
3511 |
581 |
if ($Kbeg_next < $Klimit and $rLL->[$Kbeg_next][6] eq "b")
|
|
42989
|
7671 |
839 |
if (not $batch_CODE_type or $batch_CODE_type eq "VER")
|
|
43044
|
1058 |
38 |
if ($type_beg eq "Q" and $rOpts_outdent_long_quotes or $type_beg eq "#" and $rOpts_outdent_long_comments and not $this_batch->[2])
|
|
43062
|
21 |
1037 |
if (ref $indentation)
|
|
43073
|
26 |
8484 |
if ($is_outdented_line) { }
|
|
|
54 |
8430 |
elsif ($do_not_pad) { }
|
|
|
165 |
8265 |
elsif ($token_beg eq 'if' and $type_beg eq 'k') { }
|
|
43088
|
128 |
37 |
if ($Kbeg > 0)
|
|
43091
|
116 |
12 |
if ($type_m eq "b" and $Km > 0)
|
|
43095
|
23 |
105 |
if ($type_m eq "#" and $Km > 0)
|
|
43098
|
7 |
16 |
if ($type_m eq "b" and $Km > 0)
|
|
43105
|
53 |
75 |
if ($seqno_m)
|
|
43111
|
49 |
0 |
if ($type_m eq ";" or $type_m eq "}" and $block_type_m and $block_type_m ne "if" and $block_type_m ne "unless" and $block_type_m ne "elsif" and $block_type_m ne "else")
|
|
43133
|
1333 |
6460 |
unless ($is_block_comment or $self->[106])
|
|
43160
|
102 |
8408 |
if ($type_beg eq ":" or $nline > 0 and $type_end_last eq ":")
|
|
43163
|
98 |
4 |
$nline > 0 ? :
|
|
43165
|
62 |
8 |
if ($terminal_type ne ";" and $n_last_line > $nline and $level_end == $lev)
|
|
43173
|
16 |
27 |
if ($last_leading_type eq ":" and $terminal_type eq ';' && $level_end <= $lev || $terminal_type ne ':' && $level_end < $lev)
|
|
43193
|
0 |
15 |
if ($KP <= $Knext_last)
|
|
43202
|
8 |
7 |
if $KP > $Kend
|
|
43204
|
0 |
7 |
if ($type_KP eq "?" or $type_KP eq ":")
|
|
43216
|
17 |
8493 |
if ($closing_side_comment and $nline == $n_last_line)
|
|
43220
|
17 |
0 |
if (@{$rfields;})
|
|
43235
|
7793 |
717 |
unless ($is_block_comment)
|
|
43251
|
1435 |
7075 |
if ($is_closing_type{$types_to_go[$ibeg]})
|
|
43252
|
1182 |
7328 |
if ($is_closing_type{$types_to_go[$iend]})
|
|
43261
|
0 |
876 |
if ($rOpts_line_up_parentheses and $type_beg eq "q" and $ibeg == $iend)
|
|
43269
|
0 |
0 |
if (defined $Km and $rLL->[$Km][6] eq "q" or defined $Kp and $rLL->[$Kp][6] eq "q")
|
|
43284
|
61 |
8449 |
if ($block_type_to_go[$i_terminal] and $nesting_depth_end > $nesting_depth_beg)
|
|
43343
|
1001 |
4437 |
if $this_batch->[11] or $types_to_go[$max_index_to_go] eq "q"
|
|
43348
|
0 |
5438 |
if ($cscw_block_comment)
|
|
43376
|
0 |
0 |
unless defined $msg
|
|
43394
|
0 |
0 |
if (defined $KK and not $rOpts_indent_only)
|
|
43397
|
0 |
0 |
if ($len_by_sum != $len_tok_i or defined $len_tok_K and $len_by_sum != $len_tok_K)
|
|
43400
|
0 |
0 |
defined $KK ? :
|
|
43401
|
0 |
0 |
unless defined $KK
|
|
43458
|
1314 |
2 |
if (Perl::Tidy::VerticalAligner::vertical_alignment_ok($_))
|
|
43499
|
0 |
3873 |
if ($max_i < $max_index_to_go)
|
|
43506
|
84 |
3789 |
if ($max_i <= 0 or not $rOpts_add_whitespace)
|
|
43514
|
315 |
3474 |
if ($types_to_go[$max_i] eq "#")
|
|
43518
|
315 |
0 |
if ($i_terminal > 0 and $types_to_go[$i_terminal] eq "b")
|
|
43558
|
7 |
308 |
if (not $do_not_align || $rOpts_valign_side_comments and $rOpts_valign_code)
|
|
43565
|
7 |
0 |
if ($types_to_go[$ipad] eq "b")
|
|
43573
|
298 |
17 |
unless ($do_not_align)
|
|
43582
|
15 |
3774 |
unless ($rOpts_valign_code)
|
|
43595
|
446 |
6220 |
if $iend <= $ibeg
|
|
43598
|
300 |
5920 |
if ($iend > $i_terminal)
|
|
43644
|
1925 |
4295 |
if ($type_beg eq "k")
|
|
43650
|
1756 |
169 |
if ($types_to_go[$i_good_paren] eq "b")
|
|
43658
|
29 |
0 |
if ($token_beg eq "elsif" and $i_good_paren < $iend and $tokens_to_go[$i_good_paren] eq "(")
|
|
43664
|
0 |
29 |
unless (defined $i_elsif_close)
|
|
43674
|
18348 |
33163 |
if ($type = $types_to_go[$i]) eq "b"
|
|
43705
|
1156 |
32007 |
if ($token eq ")" and @imatch_list)
|
|
43712
|
0 |
1156 |
unless (defined $imate)
|
|
43713
|
54 |
183 |
if ($imatch_list[-1] eq $imate and $ibeg > 1 || @imatch_list > 1 and $imate > $i_good_paren)
|
|
43717
|
54 |
0 |
if ($ralignment_type_to_go->[$imate])
|
|
43727
|
197 |
32966 |
if ($levels_to_go[$i] < $level_beg)
|
|
43740
|
2324 |
30642 |
if ($i < $ibeg + 2) { }
|
|
|
12399 |
18243 |
elsif ($types_to_go[$i - 1] ne 'b') { }
|
|
|
3709 |
14534 |
elsif ($last_vertical_alignment_BEFORE_index == $i - 2) { }
|
|
|
763 |
13771 |
elsif ($type eq 'k') { }
|
|
|
60 |
13711 |
elsif ($type eq 'q') { }
|
|
|
4661 |
9050 |
elsif ($is_vertical_alignment_type{$type} and not $is_not_vertical_alignment_token{$token}) { }
|
|
|
73 |
8977 |
elsif ($type eq 'U') { }
|
|
43754
|
197 |
566 |
if ($is_vertical_alignment_keyword{$token})
|
|
43760
|
11 |
186 |
if ($token eq "unless" and $rOpts_valign_if_unless)
|
|
43763
|
8 |
189 |
if ($token eq "cmp" and $rOpts_valign_comparison_operators)
|
|
43772
|
36 |
24 |
if ($types_to_go[0] eq "k" and $tokens_to_go[0] eq "use")
|
|
43783
|
51 |
24 |
if ($rOpts_valign_wide_equals and $is_assignment{$type})
|
|
43788
|
41 |
4620 |
if ($type eq "A")
|
|
43791
|
41 |
0 |
$in > $ibeg && $in < $iend ? :
|
|
43795
|
38 |
3 |
$type_next eq 'w' || $type_next eq 'q' ? :
|
|
43809
|
707 |
3954 |
if ($i == $iend)
|
|
43811
|
688 |
19 |
unless $is_terminal_alignment_type{$type}
|
|
43831
|
37 |
1749 |
if ($i == $ibeg + 2 and $is_dot_question_colon{$type_beg} and $types_to_go[$i - 1] eq "b")
|
|
43840
|
133 |
4528 |
if ($is_low_level_alignment_token{$token} and $levels_to_go[$i] != $level_beg)
|
|
43846
|
642 |
4019 |
if ($token eq "(")
|
|
43853
|
196 |
446 |
if ($vert_last_nonblank_type eq "k" and not $is_if_unless_elsif{$tokens_to_go[$i - 2]})
|
|
43861
|
7 |
635 |
unless ($rOpts_function_paren_vertical_alignment)
|
|
43864
|
7 |
0 |
if $self->[18]{$seqno}
|
|
43868
|
15 |
1 |
if ($tokens_to_go[0] eq "use" and $types_to_go[0] eq "k" and defined $mate_index_to_go[$i] and $mate_index_to_go[$i] == $i + 1)
|
|
43889
|
1 |
42 |
if ($types_to_go[0] eq "k" and $tokens_to_go[0] eq "use" and substr($token, 0, 2) eq "qw")
|
|
43905
|
3864 |
29102 |
if ($alignment_type) { }
|
|
43917
|
2256 |
340 |
if ($vert_last_nonblank_type eq ',' || $vert_last_nonblank_type eq ';' and $types_to_go[$i - 1] eq "b" and not $is_closing_token{$type})
|
|
43942
|
6120 |
26846 |
if ($alignment_type)
|
|
43945
|
64 |
6056 |
if ($token eq '{' and $block_type_to_go[$i] and $matches_ASUB{$block_type_to_go[$i]}) { }
|
|
|
17 |
6039 |
elsif ($i > $i_elsif_open and $i < $i_elsif_close) { }
|
|
|
5 |
6034 |
elsif (substr($alignment_type, 0, 1) eq ' ') { }
|
|
43985
|
5 |
51 |
if (not $rOpts_add_whitespace) { }
|
|
|
1 |
50 |
elsif (not $rOpts_valign_side_comments and $rOpts_valign_code) { }
|
|
44069
|
0 |
3876 |
if ($max_index_to_go == 0)
|
|
44070
|
0 |
0 |
if (@{$ri_first;} == 1 and $ri_last->[0] == 0) { }
|
|
44104
|
3873 |
3 |
if ($rOpts_valign_code or $types_to_go[$max_index_to_go] eq "#")
|
|
44151
|
15 |
0 |
if ($rLL->[$KK][6] eq "q")
|
|
44154
|
2 |
13 |
if ($ii > 0) { }
|
|
44155
|
2 |
0 |
if $token =~ /^qw\s*[\(\{\[]/
|
|
44159
|
3 |
10 |
unless ($self->[130][1])
|
|
44160
|
3 |
0 |
if $token =~ /[\)\}\]]$/
|
|
44192
|
0 |
3 |
if $max_line < 1
|
|
44200
|
1 |
2 |
if ($is_closing_token{$tokens_to_go[$ibeg_max]}) { }
|
|
44202
|
0 |
1 |
if $i_n < $ibeg_max or $i_n > $iend_max
|
|
44203
|
0 |
1 |
if $types_to_go[$i_n] ne ";"
|
|
44205
|
0 |
1 |
if not defined $i_opening or $i_opening <= 0
|
|
44212
|
0 |
2 |
if ($types_to_go[$i_t] eq "#")
|
|
44215
|
0 |
2 |
if $i_t <= $ibeg_max
|
|
44216
|
0 |
2 |
if $types_to_go[$i_t] ne ";"
|
|
44218
|
0 |
2 |
if $i_t <= $ibeg_max
|
|
44219
|
0 |
2 |
unless $is_closing_token{$tokens_to_go[$i_t]}
|
|
44221
|
0 |
2 |
if not defined $i_opening or $i_opening < 0
|
|
44230
|
0 |
3 |
unless $ci_levels_to_go[$ibeg_last]
|
|
44233
|
0 |
3 |
if ref $reduced_spaces_to_go[$ibeg_last]
|
|
44238
|
0 |
7 |
if ref $reduced_spaces_to_go[$ibeg]
|
|
44239
|
3 |
4 |
unless $ci_levels_to_go[$ibeg]
|
|
44240
|
0 |
4 |
if $levels_to_go[$ibeg] != $level_last
|
|
44247
|
0 |
3 |
if $line_o < 0
|
|
44250
|
0 |
3 |
if $ci_levels_to_go[$ibeg_o]
|
|
44251
|
0 |
3 |
if $levels_to_go[$ibeg_o] >= $level_last
|
|
44252
|
0 |
3 |
if $i_opening < $ibeg_o or $i_opening > $iend_o
|
|
44300
|
48 |
876 |
if ($rix_seqno_controlling_ci and @{$rix_seqno_controlling_ci;})
|
|
44318
|
71 |
853 |
if ($rOpts_line_up_parentheses and $rOpts_extended_continuation_indentation)
|
|
44325
|
19 |
66 |
if (ref $leading_spaces_to_go[$ibeg])
|
|
44360
|
3056 |
940 |
if ($line and not $skip_SECTION_1)
|
|
44367
|
15 |
762 |
if ($lev == $lev_last + 1 and $ci_levels_to_go[$ibeg] and not $ci_levels_to_go[$ibeg_last])
|
|
44375
|
11 |
3045 |
if ($line_1) { }
|
|
44378
|
8 |
3 |
if ($lev == $lev_last) { }
|
|
|
3 |
0 |
elsif ($lev < $lev_last) { }
|
|
44379
|
6 |
2 |
if ($types_to_go[$ibeg] eq 'k' and $is_sort_map_grep{$tokens_to_go[$ibeg]}) { }
|
|
44398
|
0 |
6 |
if $is_semicolon_terminated
|
|
44420
|
3 |
8 |
if (defined $line_2 and defined $line_1)
|
|
44422
|
3 |
0 |
if $continuation_line_count >= 0
|
|
44437
|
778 |
2267 |
if ($lev > $lev_last)
|
|
44438
|
10 |
768 |
if ($types_to_go[$ibeg] eq "k" and $is_sort_map_grep{$tokens_to_go[$ibeg]})
|
|
44456
|
514 |
3482 |
if ($types_to_go[$ibeg] eq "}" and $nesting_depth_to_go[$iend] + 1 == $nesting_depth_to_go[$ibeg])
|
|
44463
|
6 |
508 |
if ($terminal_type eq "#" and $iend > $ibeg)
|
|
44465
|
0 |
6 |
if ($terminal_type eq "#" and $iend - 1 > $ibeg)
|
|
44476
|
19 |
495 |
if ($terminal_type eq "{" and not $is_cuddled_closing_brace)
|
|
44487
|
1389 |
2607 |
if ($ci_levels_to_go[$ibeg])
|
|
44490
|
28 |
37 |
if ($seqno and $undo_extended_ci{$seqno})
|
|
44493
|
15 |
13 |
unless (ref $reduced_spaces_to_go[$ibeg])
|
|
44505
|
32 |
3964 |
if (not $ci_levels_to_go[$ibeg] and defined $i_controlling_ci[$line])
|
|
44518
|
3 |
921 |
if ($line_double_jump and $rOpts_minimize_continuation_indentation)
|
|
44591
|
692 |
145 |
if ($K_to_go[0] > 0)
|
|
44593
|
649 |
43 |
if ($Kp > 0 and $rLL->[$Kp][6] eq "b")
|
|
44596
|
197 |
495 |
if ($Kp > 0 and $rLL->[$Kp][6] eq "#")
|
|
44598
|
25 |
172 |
if ($Kp > 0 and $rLL->[$Kp][6] eq "b")
|
|
44603
|
147 |
545 |
if ($seqno)
|
|
44605
|
113 |
34 |
if ($block_type)
|
|
44624
|
194 |
2865 |
$type_next eq 'k' ? :
|
|
44627
|
22 |
1005 |
if (not $has_leading_op_next and $iend > $ibeg + 2 and $types_to_go[$ibeg + 1] eq "b" and $is_opening_type{$types_to_go[$ibeg]} and $nesting_depth_to_go[$iend] > $nesting_depth_to_go[$ibeg])
|
|
44637
|
2717 |
342 |
unless $has_leading_op_next
|
|
44641
|
36 |
306 |
if $nesting_depth_to_go[$ibeg] > $nesting_depth_to_go[$ibeg_next]
|
|
44648
|
277 |
29 |
if ($nesting_depth_to_go[$ibeg] == $nesting_depth_to_go[$ibeg_next])
|
|
44653
|
246 |
31 |
if ($line > 0) { }
|
|
44656
|
166 |
80 |
if $has_leading_op
|
|
44686
|
0 |
80 |
if $levels_to_go[$ibeg] ne $levels_to_go[$ibeg_next]
|
|
44695
|
0 |
3 |
if ($types_to_go[$iendm] eq "," and $line == 1 and $max_line > 2)
|
|
44712
|
22 |
58 |
unless $ok_pad
|
|
44723
|
0 |
31 |
if $starting_in_quote
|
|
44727
|
0 |
31 |
if ($types_to_go[$ibeg] eq '}') { }
|
|
|
4 |
27 |
elsif ($is_short_block) { }
|
|
44740
|
0 |
27 |
if $nesting_depth_to_go[$ibeg] != $nesting_depth_to_go[$ibeg_next]
|
|
44760
|
16 |
11 |
if $max_line <= 1
|
|
44770
|
3 |
8 |
if $leading_token eq "."
|
|
44774
|
0 |
12 |
if $line + $l > $max_line
|
|
44778
|
7 |
5 |
if $tokens_to_go[$ibeg_next_next] eq $leading_token
|
|
44783
|
5 |
3 |
if $tokens_differ
|
|
44784
|
0 |
3 |
if $count < 3 and $leading_token ne ":"
|
|
44791
|
29 |
65 |
unless (defined $ipad)
|
|
44797
|
50 |
29 |
if not $type_sequence_to_go[$i] && defined $mate_index_to_go[$i] or $mate_index_to_go[$i] <= $iend
|
|
44803
|
29 |
0 |
if $ipad
|
|
44805
|
0 |
29 |
if not $ipad or $ipad > $iend
|
|
44826
|
0 |
94 |
if $ipad == 0 and $peak_batch_size <= 1
|
|
44831
|
9 |
85 |
if $nesting_depth_to_go[$iend_next + 1] > $nesting_depth_to_go[$ipad]
|
|
44840
|
78 |
7 |
if ($line + 2 <= $max_line)
|
|
44843
|
47 |
31 |
if ($tokens_to_go[$ibeg_next_next] eq $leading_token and $nesting_depth_to_go[$ibeg_next] eq $nesting_depth_to_go[$ibeg_next_next])
|
|
44856
|
7 |
78 |
if (not $types_match and $type eq "!")
|
|
44860
|
21 |
22 |
if ($logical_continuation_lines > 1 and $ipad > 0 || $is_short_block or $types_match and not $type eq 'k' && $tokens_to_go[$ipad] ne $tokens_to_go[$inext_next])
|
|
44924
|
22 |
158 |
if $nesting_depth_to_go[$ibeg_t + 1] < $depth or $nesting_depth_to_go[$ibeg_t] < $depth
|
|
44929
|
2 |
156 |
if ($levels_to_go[$ibeg_t] + $ci_levels_to_go[$ibeg_t] < $lsp)
|
|
44938
|
48 |
15 |
if ($l == $max_line)
|
|
44940
|
3 |
45 |
if ($types_to_go[$i2] eq "#")
|
|
44942
|
0 |
3 |
if terminal_type_i($i1, $i2) eq ","
|
|
44963
|
0 |
63 |
if ($types_to_go[$ibeg_next] eq "m")
|
|
44964
|
0 |
0 |
if $types_to_go[$ibeg] eq "Q"
|
|
44967
|
2 |
61 |
unless $ok_to_pad
|
|
44990
|
4 |
57 |
if ($matches_without_bang)
|
|
44994
|
0 |
61 |
if (ref $indentation_1 and $indentation_1->get_recoverable_spaces == 0)
|
|
44998
|
0 |
0 |
if (ref $indentation_2 and $indentation_2->get_recoverable_spaces != 0)
|
|
45007
|
7 |
54 |
if ($pad_spaces < 0)
|
|
45013
|
3 |
4 |
if ($pad_spaces == -1)
|
|
45014
|
2 |
0 |
if ($ipad > $ibeg and $types_to_go[$ipad - 1] eq "b" and not %keyword_paren_inner_tightness and $types_to_go[$inext_next] eq $types_to_go[$ipad] || $types_to_go[$ipad] eq '!' && $types_to_go[$ipad + 1] eq $types_to_go[$inext_next])
|
|
45037
|
51 |
10 |
if ($ipad >= 0 and $pad_spaces)
|
|
45040
|
51 |
0 |
if ($pad_spaces + $length_t <= $maximum_line_length_at_level[$levels_to_go[$ibeg]])
|
|
45108
|
0 |
22 |
if $iend < $ibeg + 3 or $types_to_go[$ibeg + 1] ne "b"
|
|
45112
|
0 |
22 |
unless $seqno
|
|
45114
|
7 |
15 |
unless $is_list
|
|
45118
|
11 |
4 |
if not $seqno_beg_next or $seqno_beg_next != $seqno
|
|
45122
|
3 |
1 |
if not defined $mate_index_to_go[$ibeg] or $mate_index_to_go[$ibeg] <= $iend_next
|
|
45127
|
0 |
1 |
if ($types_to_go[$i_terminal] eq "#")
|
|
45129
|
0 |
0 |
if ($types_to_go[$i_terminal] eq "b")
|
|
45133
|
0 |
1 |
if $i_terminal < $ibeg + 2
|
|
45134
|
0 |
1 |
if $types_to_go[$i_terminal] ne ","
|
|
45142
|
0 |
1 |
if ref $lsp or ref $lsp_next
|
|
45149
|
0 |
1 |
if $pad_spaces <= 0
|
|
45153
|
0 |
1 |
if $excess + $pad_spaces > 0
|
|
45170
|
59 |
2 |
if ($pad_spaces > 0) { }
|
|
|
0 |
2 |
elsif ($pad_spaces == 0) { }
|
|
|
2 |
0 |
elsif ($pad_spaces == -1 and $tokens_to_go[$ipad] eq ' ') { }
|
|
45228
|
0 |
35 |
if @{$ri_first;} <= 1
|
|
45233
|
5 |
30 |
unless ref $lp_object
|
|
45237
|
27 |
3 |
unless $K_extra_space
|
|
45243
|
0 |
3 |
if $ii <= $ibeg_0 or $ii > $iend_0
|
|
45247
|
1 |
2 |
if substr($tok, 0, 1) eq " "
|
|
45252
|
0 |
2 |
if $types_to_go[$ibeg_0] eq "k" and $is_if_unless_elsif{$tokens_to_go[$ibeg_0]}
|
|
45256
|
2 |
0 |
if ($spaces > 0)
|
|
45386
|
3464 |
3484 |
unless ($alignment_count)
|
|
45393
|
631 |
2833 |
if ($ibeg == $iend) { }
|
|
45423
|
1895 |
1589 |
if ($ibeg == 0 and $iend == $max_index_to_go)
|
|
45425
|
258 |
1637 |
if ($types_to_go[$iterm] eq "#")
|
|
45434
|
1058 |
426 |
if ($iterm > $ibeg and $term_type_ok and not $is_my_local_our{$tokens_to_go[$ibeg]} and $levels_to_go[$ibeg] eq $levels_to_go[$iterm])
|
|
45455
|
15476 |
28237 |
if (($type = $types_to_go[$i]) eq "b")
|
|
45466
|
6271 |
21966 |
if ($type_sequence_to_go[$i])
|
|
45468
|
3236 |
3035 |
if ($is_opening_token{$token}) { }
|
|
|
2762 |
273 |
elsif ($is_closing_token{$token}) { }
|
|
45472
|
369 |
2867 |
unless (defined $i_mate)
|
|
45473
|
2613 |
623 |
if ($i_mate > $i and $i_mate <= $iend)
|
|
45495
|
1145 |
1468 |
$token eq '(' ? :
|
|
45499
|
1 |
2612 |
if ($name eq ".")
|
|
45530
|
1981 |
632 |
unless ($ralignment_type_to_go->[$i])
|
|
45540
|
46 |
1935 |
if ($saw_exclamation_mark)
|
|
45545
|
861 |
1120 |
if ($i_start == $ibeg)
|
|
45551
|
0 |
1981 |
if ($len < 0)
|
|
45563
|
2613 |
149 |
if $depth > 0
|
|
45574
|
6278 |
18475 |
if ($i > $i_start and $ralignment_type_to_go->[$i])
|
|
45580
|
22 |
6256 |
if $tok_map
|
|
45584
|
5980 |
298 |
if ($last_raw_tok ne "#")
|
|
45590
|
3270 |
3008 |
if ($last_raw_tok eq "," or $last_raw_tok eq "=>")
|
|
45594
|
79 |
3191 |
$i == $i_depth_prev ? :
|
|
45595
|
79 |
3191 |
$depth_last < $depth ? :
|
|
45597
|
1803 |
1467 |
if ($container_name{$depth_p})
|
|
45613
|
250 |
6028 |
if ($last_raw_tok eq "(")
|
|
45614
|
1 |
249 |
if ($ci_levels_to_go[$ibeg] and $container_name{$depth} =~ /^\+(if|unless)/)
|
|
45625
|
282 |
27 |
if ($last_raw_tok eq "{" and $block_type_to_go[$i])
|
|
45631
|
71 |
211 |
if defined $block_type_map{$block_type}
|
|
45635
|
62 |
220 |
if ($block_type =~ /$SUB_PATTERN/)
|
|
45638
|
12 |
270 |
if ($block_type =~ /^[A-Z]+$/)
|
|
45644
|
26 |
256 |
if ($ci_levels_to_go[$ibeg])
|
|
45655
|
2307 |
3971 |
if ($last_raw_tok eq "=" or $last_raw_tok eq "=>")
|
|
45657
|
201 |
2106 |
if ($token_count{$tok} > 1)
|
|
45684
|
5641 |
22596 |
if ($is_k_w_n_C_q_bang{$type}) { }
|
|
45687
|
2205 |
3436 |
if ($type eq 'k') { }
|
|
|
50 |
3386 |
elsif ($type eq '!') { }
|
|
45694
|
165 |
2040 |
if defined $keyword_map{$tok_fix}
|
|
45715
|
2983 |
403 |
if ($i < $iend - 1)
|
|
45717
|
1542 |
1441 |
$next_type eq 'b' ? :
|
|
45720
|
837 |
2146 |
if ($types_to_go[$i_next_nonblank] eq "=>")
|
|
45728
|
212 |
625 |
if ($patterns[$j] eq "m")
|
|
45739
|
86 |
877 |
if ($type eq "w" and $i > $ibeg and $i < $iend and $types_to_go[$i - 1] eq "L" and $types_to_go[$i + 1] eq "R")
|
|
45750
|
17 |
3369 |
if ($type eq "q" and $last_raw_tok eq "A")
|
|
45768
|
683 |
21913 |
if ($depth == 0 and $type eq "=>")
|
|
45802
|
444 |
1568 |
if ($type eq "b")
|
|
45811
|
7 |
403 |
if ($token eq "(" or $is_binary_type{$type} or $type eq "k" and $is_binary_keyword{$token})
|
|
45821
|
767 |
575 |
unless $is_kwU{$type}
|
|
45824
|
443 |
132 |
if ($count == 0) { }
|
|
|
65 |
67 |
elsif (defined $count_max and $count >= $count_max) { }
|
|
45825
|
68 |
375 |
if ($type eq 'k' and $is_use_like{$tokens_to_go[$ii]}) { }
|
|
45841
|
0 |
510 |
if (defined $name_map{$token})
|
|
45851
|
235 |
2 |
if ($name and defined $ilast_blank and $ilast_blank > $iname_end)
|
|
45871
|
19 |
1126 |
if $im < 0
|
|
45872
|
590 |
536 |
if ($types_to_go[$im] eq "b")
|
|
45873
|
0 |
1126 |
if $im < 0
|
|
45878
|
5 |
1121 |
if ($name eq "->")
|
|
45880
|
5 |
0 |
if ($im >= 0 and $types_to_go[$im] ne "b")
|
|
45886
|
0 |
1126 |
if (substr($name, 0, 2) eq "->")
|
|
45953
|
331 |
8179 |
if ($terminal_type eq "#" and $i_terminal > $ibeg)
|
|
45956
|
317 |
14 |
if ($terminal_type eq "b" and $i_terminal > $ibeg)
|
|
45973
|
175 |
8335 |
if ($type_beg eq "q" and $ibeg == 0)
|
|
46026
|
2250 |
6260 |
if ($seqno_beg or $seqno_qw_closing) { }
|
|
46055
|
58 |
6202 |
if ($type_beg eq ";")
|
|
46056
|
1 |
57 |
unless $rOpts_indent_leading_semicolon
|
|
46078
|
7735 |
775 |
if ($adjust_indentation == 0) { }
|
|
|
664 |
111 |
elsif ($adjust_indentation == 1) { }
|
|
|
93 |
18 |
elsif ($adjust_indentation == 2) { }
|
|
46107
|
2 |
1041 |
if ($levels_to_go[$i_ind] < $lev)
|
|
46143
|
39 |
54 |
if (ref $last_indentation_written and not $is_closing_token{$last_leading_token})
|
|
46155
|
50 |
43 |
if ($diff > 0) { }
|
|
46170
|
0 |
43 |
if ($rOpts_extended_line_up_parentheses and $diff >= -$rOpts_indent_columns and $space_count > $leading_spaces_beg) { }
|
|
|
41 |
2 |
elsif ($default_adjust_indentation == 0) { }
|
|
|
2 |
0 |
elsif ($default_adjust_indentation == 1) { }
|
|
46225
|
6 |
12 |
if ($block_type_beg and $ci_levels_to_go[$i_terminal] == 0) { }
|
|
46249
|
1 |
11 |
if (get_spaces($last_indentation_written) < get_spaces($indentation))
|
|
46265
|
8489 |
21 |
unless ($ibeg == 0 and $this_batch->[0])
|
|
46293
|
4 |
32 |
if ($seqno_qw_closing and length $token_beg > 1 || $token_beg eq '>')
|
|
46305
|
1569 |
6941 |
if (defined $opening_indentation)
|
|
46336
|
3 |
1566 |
if (not $leading_paren_arrow || $is_isolated_block_brace || $is_unaligned_colon and get_spaces($opening_indentation) > get_spaces($indentation))
|
|
46356
|
30 |
38 |
if ($ibeg == 0 and $rOpts_outdent_keywords && $type_beg eq 'k' && $outdent_keyword{$token_beg} || $rOpts_outdent_labels && $type_beg eq 'J' || $rOpts_outdent_static_block_comments && $this_batch->[2])
|
|
46382
|
26 |
6 |
if ($space_count > 0)
|
|
46385
|
0 |
26 |
if ($space_count < 0)
|
|
46390
|
0 |
26 |
if ($type_beg eq "#" and $space_count == 0)
|
|
46468
|
4 |
2210 |
if ($seqno_beg and $self->[32]{$seqno_beg})
|
|
46471
|
4 |
0 |
if ($is_closing_type_beg or $ibeg == $i_terminal) { }
|
|
|
0 |
0 |
elsif ($total_weld_count) { }
|
|
46480
|
0 |
0 |
if (defined $Kterm_test and $Kterm_test >= $K_beg)
|
|
46483
|
0 |
0 |
if ($Kterm == $K_beg)
|
|
46491
|
2214 |
36 |
$seqno_beg ? :
|
|
46499
|
21 |
2229 |
if ($is_bli_beg and $is_bli_beg == 1)
|
|
46503
|
21 |
0 |
if ($K_beg eq $K_opening) { }
|
|
46516
|
8 |
2242 |
if ($seqno_qw_closing and $total_weld_count)
|
|
46518
|
8 |
0 |
if ($i_plus <= $max_index_to_go)
|
|
46520
|
6 |
2 |
if (defined $self->[73]{$K_plus})
|
|
46527
|
1471 |
779 |
if ($is_closing_type_beg or $seqno_qw_closing) { }
|
|
|
98 |
681 |
elsif ($type_beg eq ':') { }
|
|
46553
|
399 |
500 |
if ($is_semicolon_terminated or $terminal_type eq "{" and $type_beg eq "}" and $nesting_depth_to_go[$iend] + 1 == $nesting_depth_to_go[$ibeg] and not $is_cuddled_closing_brace or $type_beg eq "}" and $terminal_type eq '{' || $levels_to_go[$iend] < $level_beg and not $is_cuddled_closing_brace or $level_jump < 0 and not $some_closing_token_indentation and not $self->[77]{$K_beg} or $i_terminal > $ibeg and $is_closing_type{$types_to_go[$iend]})
|
|
46611
|
92 |
1379 |
if ($terminal_type eq "," and $self->is_in_list_by_i($i_terminal))
|
|
46632
|
619 |
120 |
if ($i_terminal == $ibeg and $is_closing_type_beg and defined $K_beg and $K_beg < $Klimit)
|
|
46640
|
565 |
54 |
if ($type_plus eq "b" and $K_plus < $Klimit)
|
|
46644
|
63 |
556 |
if ($type_plus eq "#" and $K_plus < $Klimit)
|
|
46646
|
44 |
19 |
if ($type_plus eq "b" and $K_plus < $Klimit)
|
|
46662
|
605 |
14 |
if (not $is_bli_beg and defined $K_plus)
|
|
46669
|
321 |
284 |
if $level_next < $lev and not $self->[77]{$K_beg}
|
|
46678
|
18 |
411 |
if (not $rOpts_indent_closing_brace and $block_type_beg and $self->[9]{$seqno_beg} and $self->is_in_list_by_i($i_terminal))
|
|
46690
|
14 |
4 |
if (defined $opening_indentation and get_spaces($indentation) > get_spaces($opening_indentation))
|
|
46703
|
30 |
1 |
if ($block_type_beg and $block_type_beg eq "eval" and not ref $leading_spaces_beg and not $rOpts_indent_closing_brace)
|
|
46715
|
24 |
6 |
if (defined $opening_indentation and get_spaces($indentation) > get_spaces($opening_indentation))
|
|
46724
|
21 |
1450 |
if $is_bli_beg
|
|
46731
|
750 |
721 |
if (not $block_type_beg) { }
|
|
46740
|
30 |
720 |
if ($seqno_qw_closing and $ibeg_weld_fix == $ibeg)
|
|
46752
|
3 |
27 |
if (not defined $cti and length $tok == 1)
|
|
46760
|
3 |
0 |
if ($tok ne ">")
|
|
46767
|
0 |
30 |
if (defined $cti and $cti == 1)
|
|
46770
|
3 |
747 |
if (not defined $cti) { }
|
|
|
44 |
703 |
elsif ($cti == 1) { }
|
|
|
3 |
700 |
elsif ($cti == 2) { }
|
|
|
3 |
697 |
elsif ($cti == 3) { }
|
|
46785
|
43 |
1 |
if ($i_terminal <= $ibeg + 1 or $is_semicolon_terminated) { }
|
|
46795
|
3 |
0 |
if ($is_semicolon_terminated) { }
|
|
46812
|
12 |
0 |
if ($rOpts_indent_closing_brace and $i_terminal == $ibeg || $is_semicolon_terminated)
|
|
46834
|
50 |
48 |
if ($is_leading)
|
|
46846
|
969 |
1281 |
if ($adjust_indentation == 1)
|
|
46850
|
306 |
663 |
if ($no_left_adjustment_space)
|
|
46904
|
613 |
1004 |
if (defined $i_opening and $i_opening >= 0) { }
|
|
46914
|
30 |
974 |
unless $seqno
|
|
46930
|
4 |
654 |
if ($rOpts_freeze_whitespace)
|
|
46940
|
34 |
620 |
if $rOpts_line_up_parentheses
|
|
46943
|
12 |
3649 |
if $opening_vertical_tightness{$key}
|
|
46948
|
9 |
3594 |
if $closing_vertical_tightness{$key}
|
|
46953
|
2 |
1791 |
if $opening_token_right{$key}
|
|
46958
|
1 |
1788 |
if $stack_opening_token{$key}
|
|
46961
|
0 |
1788 |
if $stack_closing_token{$key}
|
|
46965
|
2 |
594 |
if $rOpts_block_brace_vertical_tightness
|
|
46968
|
2 |
592 |
if $rOpts_stack_closing_block_brace
|
|
47043
|
0 |
1333 |
if ($nline < 0 or $nline > $n_last_line)
|
|
47066
|
8 |
894 |
$types_to_go[$ibeg] eq 'q' ? :
|
|
|
431 |
902 |
$seqno_beg ? :
|
|
47070
|
7 |
867 |
$types_to_go[$iend] eq 'q' ? :
|
|
|
459 |
874 |
$seqno_end ? :
|
|
47081
|
816 |
517 |
if ($nline < $n_last_line) { }
|
|
|
11 |
506 |
elsif ($rOpts_block_brace_vertical_tightness and $ibeg eq $iend and $types_to_go[$iend] eq '{' and $block_type_to_go[$iend] and $block_type_to_go[$iend] =~ /$block_brace_vertical_tightness_pattern/) { }
|
|
|
5 |
501 |
elsif ($rOpts_stack_closing_block_brace and $ibeg eq $iend and $block_type_to_go[$iend] and $types_to_go[$iend] eq '}' and !$closing_side_comment || $nline < $n_last_line) { }
|
|
47097
|
752 |
64 |
$types_to_go[$ibeg_next - 1] eq 'b' ? :
|
|
47103
|
76 |
37 |
if ($seqno_end and not $block_type_to_go[$iend] and $is_opening_token{$token_end} and not $self->[85]{$Kbeg_next} and not $levels_to_go[$ibeg] > $high_stress_level && $types_to_go[$ibeg_next] eq 'w' and not $types_to_go[$ibeg_next] eq 'U' && $self->is_welded_at_seqno($seqno_end) and $opening_vertical_tightness{$token_end} > 0 || $rOpts_line_up_parentheses && $token_end eq '(' && $self->[31]{$seqno_end} && $iend > $ibeg && $types_to_go[$iend - 1] ne 'b')
|
|
47141
|
0 |
76 |
if ($rOpts_line_up_parentheses and $self->[73]{$K_to_go[$iend_next]})
|
|
47150
|
0 |
0 |
if ($is_closing_type{$type_end_next} or $is_opening_type{$type_end_next})
|
|
47159
|
0 |
18 |
if ($ovt and $seqno_end and $self->[41]{$seqno_end})
|
|
47167
|
0 |
76 |
if (defined $self->[104]{$seqno_end})
|
|
47178
|
62 |
14 |
if ($ovt >= 2 or $nesting_depth_to_go[$iend_next + 1] == $nesting_depth_to_go[$ibeg_next])
|
|
47206
|
199 |
0 |
if ($seqno_beg_next and not $block_type_to_go[$ibeg_next] and $is_closing_token{$token_beg_next} and not $self->[41]{$seqno_beg_next} and $types_to_go[$iend] ne "#")
|
|
47219
|
2 |
197 |
if ($cvt == 3)
|
|
47221
|
1 |
1 |
$self->[97]{$seqno_beg_next} ? :
|
|
47229
|
0 |
0 |
if ($cvt == 2 and $throttle_vtc and $token_beg_next eq ")" and not $self->[39]{$seqno_beg_next})
|
|
47239
|
0 |
0 |
if ($Knext == $Kbeg_next)
|
|
47246
|
0 |
0 |
defined $K_opening_m ? :
|
|
47250
|
0 |
0 |
if ($is_kwUi_arrow{$type_opening_m})
|
|
47261
|
10 |
23 |
if ($cvt and $self->[99]{$seqno_beg_next})
|
|
47268
|
0 |
199 |
if (defined $self->[105]{$seqno_beg_next})
|
|
47285
|
0 |
23 |
if ($cvt and $self->[93]{$seqno_beg_next} and defined $self->[100]{$seqno_beg_next})
|
|
47296
|
78 |
18 |
if ($nesting_depth_to_go[$ibeg_next] >= $nesting_depth_to_go[$iend_next + 1] + 1 and $cvt == 2 || !$self->is_in_list_by_i($ibeg_next) && ($cvt == 1 || $rOpts_line_up_parentheses && $token_beg_next eq ')' && $seqno_beg_next && $self->[31]{$seqno_beg_next}))
|
|
47326
|
25 |
53 |
if ($cvt == 2 or $iend_next == $ibeg_next) { }
|
|
47333
|
52 |
1 |
if ($str =~ /^b?[\)\]\}R#;]/)
|
|
47336
|
77 |
1 |
if ($ok)
|
|
47349
|
0 |
1 |
if ($rOpts_line_up_parentheses and $total_weld_count and $seqno_beg_next and $self->[31]{$seqno_beg_next} and $self->is_welded_at_seqno($seqno_beg_next))
|
|
47356
|
0 |
0 |
$cvt ? :
|
|
47389
|
2 |
0 |
if ($opening_token_right{$token_beg_next} and not $is_opening_token{$token_end} and not $block_type_to_go[$ibeg_next] and $iend_next == $ibeg_next || $iend_next == $ibeg_next + 2 && $types_to_go[$iend_next] eq '#' and not $is_uncovered_operator{$token_end} and not $is_assignment{$types_to_go[$iend]} && $rOpts_line_up_parentheses && $seqno_beg_next && $self->[31]{$seqno_beg_next} and $tokens_to_go[$ibeg] ne $token_beg_next and not $self->[86]{$K_to_go[$iend]} and not $rOpts_extended_line_up_parentheses && $rOpts_delete_old_whitespace and not $seqno_beg_next && $self->[95]{$seqno_beg_next})
|
|
47459
|
1 |
815 |
if ($types_to_go[$ibeg_next] eq "q")
|
|
47460
|
1 |
0 |
if ($token_beg_next_fixed =~ /^qw\s*([\[\(\{])$/)
|
|
47465
|
70 |
746 |
if ($is_closing_token{$token_end} and $is_closing_token{$token_beg_next_fixed}) { }
|
|
|
42 |
704 |
elsif ($is_opening_token{$token_end} and $is_opening_token{$token_beg_next_fixed}) { }
|
|
47472
|
70 |
0 |
unless $block_type_to_go[$ibeg_next] or $bom
|
|
47478
|
42 |
0 |
unless $block_type_to_go[$ibeg_next]
|
|
47485
|
6 |
810 |
if ($stackable)
|
|
47488
|
5 |
1 |
if ($nline + 1 == $n_last_line)
|
|
47497
|
6 |
0 |
if ($is_semicolon_terminated or ($iend_next == $ibeg_next or $iend_next == $ibeg_next + 2 and $types_to_go[$iend_next] eq "#"))
|
|
47551
|
0 |
5 |
$rOpts_block_brace_tightness == 2 ? :
|
|
47568
|
1170 |
163 |
if (not $vt_type) { }
|
|
47572
|
537 |
43 |
unless ($vt_seqno_beg or $vt_seqno_end or $last_vt_type)
|
|
47590
|
1 |
162 |
unless (defined $vt_seqno)
|
|
47645
|
15 |
658 |
if ($accumulating_text_for_block)
|
|
47648
|
8 |
7 |
if ($is_if_elsif{$accumulating_text_for_block})
|
|
47664
|
10 |
5 |
unless ($accumulating_text_for_block =~ /^els/)
|
|
47686
|
143 |
0 |
if ($accumulating_text_for_block and not $leading_block_text_length_exceeded and $types_to_go[$i] ne "#")
|
|
47692
|
0 |
143 |
if $i == 0
|
|
47697
|
134 |
9 |
if (length $leading_block_text < $rOpts_closing_side_comment_maximum_text and $new_line_length < $maximum_line_length_at_level[$leading_block_text_level] || length($leading_block_text) + $added_length < $rOpts_closing_side_comment_maximum_text or $tokens_to_go[$i] eq ')' and $i + 1 <= $max_index_to_go && $block_type_to_go[$i + 1] && $block_type_to_go[$i + 1] eq $accumulating_text_for_block || $i + 2 <= $max_index_to_go && $block_type_to_go[$i + 2] && $block_type_to_go[$i + 2] eq $accumulating_text_for_block) { }
|
|
|
0 |
9 |
elsif ($types_to_go[$i] ne 'b') { }
|
|
47742
|
0 |
134 |
if ($i == 0 and $types_to_go[$i] ne "b")
|
|
47782
|
85 |
0 |
unless $csc_last_label
|
|
47783
|
0 |
85 |
if ($types_to_go[0] eq "J")
|
|
47791
|
814 |
52 |
unless $block_type
|
|
47794
|
573 |
293 |
if ($type ne "#" and $type ne "b")
|
|
47801
|
52 |
814 |
if ($block_type and $type_sequence)
|
|
47803
|
26 |
26 |
if ($token eq '}') { }
|
|
|
26 |
0 |
elsif ($token eq '{') { }
|
|
47806
|
15 |
11 |
if (defined $rblock_leading_text->{$type_sequence})
|
|
47815
|
26 |
0 |
if (defined $csc_block_label{$type_sequence})
|
|
47822
|
0 |
26 |
if ($accumulating_text_for_block and $levels_to_go[$i] <= $leading_block_text_level)
|
|
47828
|
26 |
0 |
if (defined $block_opening_line_number{$type_sequence}) { }
|
|
47853
|
0 |
26 |
if ($block_type =~ /:$/)
|
|
47859
|
15 |
11 |
if ($accumulating_text_for_block and $levels_to_go[$i] == $leading_block_text_level)
|
|
47863
|
15 |
0 |
if ($accumulating_text_for_block eq $block_type) { }
|
|
47890
|
15 |
851 |
if ($type eq 'k' and $csc_new_statement_ok and $is_if_elsif_else_unless_while_until_for_foreach{$token} and $token =~ /$closing_side_comment_list_pattern/ and not $token =~ /$closing_side_comment_exclusion_pattern/) { }
|
|
47902
|
558 |
1 |
if ($type ne "b" and $type ne "#" and $type ne "q")
|
|
47906
|
0 |
851 |
if ($type eq ';' and $accumulating_text_for_block and $levels_to_go[$i] == $leading_block_text_level) { }
|
|
47921
|
5 |
80 |
if ($terminal_block_type =~ /^els/ and $rblock_leading_if_elsif_text)
|
|
47929
|
0 |
85 |
if ($terminal_type eq "J")
|
|
47956
|
0 |
5 |
if ($block_type eq "elsif" and $rOpts_closing_side_comment_else_flag == 0)
|
|
47963
|
0 |
5 |
unless $count
|
|
47968
|
5 |
0 |
if ($block_type eq "else")
|
|
47973
|
5 |
0 |
if ($rOpts_closing_side_comment_else_flag == 0)
|
|
47978
|
0 |
0 |
if ($count > 1)
|
|
47980
|
0 |
0 |
if ($count > 2)
|
|
47985
|
0 |
0 |
if ($block_type eq 'else') { }
|
|
47993
|
0 |
0 |
if ($rOpts_closing_side_comment_else_flag == 2)
|
|
48003
|
0 |
0 |
if ($length > $maximum_line_length_at_level[$leading_block_text_level])
|
|
48057
|
164 |
7 |
unless $matching_char{$char}
|
|
48064
|
4 |
3 |
unless $top eq $char
|
|
48089
|
0 |
1 |
unless $seqno
|
|
48092
|
0 |
1 |
unless $K_opening
|
|
48102
|
4 |
2 |
if ($nonblank_count)
|
|
48104
|
3 |
3 |
if ($token_type eq 'b') { }
|
|
48106
|
0 |
3 |
if ($token_type eq "=>")
|
|
48107
|
1 |
2 |
if ($token_type eq "=")
|
|
48108
|
1 |
1 |
if ($token_type eq "i" and $saw_equals or $token_type eq 'w' || $token_type eq 'Q' and $saw_fat_comma)
|
|
48151
|
24 |
61 |
if ($terminal_type eq ";" and $closing_side_comment_want_asub)
|
|
48152
|
1 |
0 |
if ($types_to_go[0] eq "}" and $tokens_to_go[0] eq "}" and $i_terminal == $inext_to_go[0])
|
|
48157
|
1 |
0 |
if ($self->[9]{$seqno})
|
|
48171
|
17 |
0 |
if ($terminal_type eq "}" and $block_type_to_go[$i_terminal] and $block_line_count >= $rOpts->{'closing-side-comment-interval'} || $have_side_comment && $rOpts->{'closing-side-comment-warnings'} and $block_type_to_go[$i_terminal] =~ /$closing_side_comment_list_pattern/ and not $block_type_to_go[$i_terminal] =~ /$closing_side_comment_exclusion_pattern/ and not defined $mate_index_to_go[$i_terminal] and !$have_side_comment || $tokens_to_go[$max_index_to_go] =~ /$closing_side_comment_prefix_pattern/)
|
|
48213
|
1 |
16 |
if ($block_label)
|
|
48218
|
11 |
6 |
if ($i_block_leading_text == $i_terminal)
|
|
48223
|
6 |
11 |
if $rOpts->{'closing-side-comments-balanced'}
|
|
48228
|
0 |
17 |
if ($have_side_comment) { }
|
|
48231
|
0 |
0 |
if ($rOpts->{'closing-side-comment-warnings'})
|
|
48248
|
0 |
0 |
if ($block_type_to_go[$i_terminal] eq 'else') { }
|
|
|
0 |
0 |
elsif ($block_type_to_go[$i_terminal] eq 'elsif') { }
|
|
48249
|
0 |
0 |
if ($old_csc =~ /\[\s*elsif/)
|
|
48252
|
0 |
0 |
if ($old_csc =~ /\[\s*if/)
|
|
48260
|
0 |
0 |
if (length $new_csc > length $old_csc)
|
|
48266
|
0 |
0 |
if (length $new_csc < length $old_csc and $new_trailing_dots)
|
|
48273
|
0 |
0 |
if ($new_csc ne $old_csc) { }
|
|
|
0 |
0 |
elsif ($block_line_count < $rOpts->{'closing-side-comment-interval'}) { }
|
|
48277
|
0 |
0 |
if ($block_line_count < $rOpts->{'closing-side-comment-interval'}) { }
|
|
48288
|
0 |
0 |
if (defined $K)
|
|
48299
|
0 |
0 |
if ($rOpts->{'timestamp'})
|
|
48323
|
0 |
0 |
if ($iend > $ibeg and $iend == $max_index_to_go and $types_to_go[$max_index_to_go] eq "#")
|
|
48329
|
0 |
0 |
if ($iend > $ibeg and $types_to_go[$max_index_to_go] eq "b")
|
|
48344
|
0 |
0 |
if ($token)
|
|
48346
|
0 |
0 |
$length_function ? :
|
|
48405
|
17 |
641 |
if ($added_semicolon_count > 0)
|
|
48406
|
3 |
14 |
$added_semicolon_count > 1 ? :
|
|
48407
|
3 |
14 |
$added_semicolon_count > 1 ? :
|
|
48413
|
3 |
14 |
if ($added_semicolon_count > 1)
|
|
48425
|
3 |
655 |
if ($deleted_semicolon_count > 0)
|
|
48426
|
2 |
1 |
$deleted_semicolon_count > 1 ? :
|
|
48427
|
2 |
1 |
$deleted_semicolon_count > 1 ? :
|
|
48436
|
2 |
1 |
if ($deleted_semicolon_count > 1)
|
|
48448
|
0 |
658 |
if ($embedded_tab_count > 0)
|
|
48449
|
0 |
0 |
$embedded_tab_count > 1 ? :
|
|
48450
|
0 |
0 |
$embedded_tab_count > 1 ? :
|
|
48462
|
0 |
0 |
if ($embedded_tab_count > 1)
|
|
48473
|
0 |
658 |
if ($first_tabbing_disagreement)
|
|
48480
|
0 |
658 |
if ($first_btd)
|
|
48486
|
0 |
0 |
if ($self->get_saw_brace_error)
|
|
48490
|
0 |
658 |
if ($in_btd)
|
|
48496
|
0 |
0 |
if ($self->get_saw_brace_error)
|
|
48499
|
0 |
658 |
if ($in_tabbing_disagreement) { }
|
|
48506
|
0 |
658 |
if ($last_tabbing_disagreement) { }
|
|
48517
|
0 |
658 |
if ($first_tabbing_disagreement)
|