| 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.
|
|
1030
|
0 |
648 |
if (@arglist % 2)
|
|
1052
|
0 |
648 |
unless (defined $sink_object)
|
|
1098
|
0 |
80352 |
unless (exists $self->[$_])
|
|
1102
|
0 |
648 |
if (@missing)
|
|
1107
|
0 |
648 |
if (_increment_count() > 1)
|
|
1113
|
646 |
2 |
if ($logger_object)
|
|
1116
|
2 |
644 |
if ($rOpts->{'entab-leading-whitespace'}) { }
|
|
|
0 |
644 |
elsif ($rOpts->{'tabs'}) { }
|
|
1325
|
0 |
0 |
if (defined $Klimit and $Klimit != $num - 1 or not defined $Klimit and $num > 0)
|
|
1335
|
0 |
0 |
unless defined $Klimit
|
|
1336
|
0 |
0 |
unless $msg
|
|
1358
|
0 |
0 |
if ($exact_match)
|
|
1359
|
0 |
0 |
if ($error)
|
|
1388
|
0 |
0 |
if ($nvars != 8)
|
|
1391
|
0 |
0 |
unless defined $type
|
|
1403
|
0 |
0 |
unless (defined $rLL->[$KK][$var])
|
|
1423
|
0 |
0 |
unless (defined $K_next_seqno)
|
|
1424
|
0 |
0 |
if ($K_next_seqno <= $KK or $K_next_seqno > $Klimit)
|
|
1431
|
0 |
0 |
unless ($rLL->[$K_next_seqno][7])
|
|
1441
|
0 |
0 |
if (defined $K_last_seqno)
|
|
1444
|
0 |
0 |
unless defined $Ktest
|
|
1461
|
0 |
0 |
if ($seqno_parent >= $seqno)
|
|
1532
|
0 |
0 |
if ($logger_object)
|
|
1541
|
3502 |
6 |
if ($logger_object)
|
|
1555
|
7 |
0 |
if ($logger_object)
|
|
1564
|
646 |
2 |
if ($logger_object)
|
|
1573
|
646 |
2 |
if ($logger_object)
|
|
1583
|
0 |
0 |
if ($diagnostics_object)
|
|
1647
|
6427 |
3945 |
unless defined $str
|
|
1650
|
648 |
3297 |
unless length $str
|
|
1664
|
0 |
578 |
unless defined $KK
|
|
1665
|
0 |
578 |
if $KK < 0
|
|
1669
|
578 |
0 |
unless defined $rLL
|
|
1674
|
543 |
452 |
if ($type ne "b" and $type ne "#")
|
|
1694
|
0 |
812 |
unless defined $KK
|
|
1695
|
0 |
812 |
if $KK < 0
|
|
1698
|
559 |
253 |
unless defined $rLL
|
|
1704
|
810 |
502 |
if ($rLL->[$KK][6] ne "b")
|
|
1724
|
2038 |
853 |
unless defined $rLL
|
|
1727
|
2 |
2889 |
unless (defined $KK)
|
|
1729
|
0 |
2891 |
if ($KK > $Num)
|
|
1744
|
2890 |
1172 |
if ($type ne "b" and $type ne "#")
|
|
1765
|
832 |
585 |
unless defined $rLL
|
|
1767
|
511 |
906 |
unless (defined $KK)
|
|
1769
|
0 |
1417 |
if ($KK > $Num)
|
|
1785
|
1407 |
1033 |
if ($rLL->[$KK][6] ne "b")
|
|
1801
|
0 |
0 |
unless defined $rLL
|
|
1803
|
0 |
0 |
unless @{$rLL;}
|
|
1806
|
0 |
0 |
if ($type ne "b" and $type ne "#")
|
|
1820
|
0 |
0 |
unless defined $rLL
|
|
1822
|
0 |
0 |
unless @{$rLL;}
|
|
1825
|
0 |
0 |
if ($type ne "b" and $type ne "#")
|
|
1837
|
1453 |
0 |
if ($seqno)
|
|
1841
|
1453 |
1439 |
if $seqno == 1
|
|
1842
|
0 |
1439 |
if ($seqno >= $seqno_last)
|
|
1869
|
0 |
506 |
unless $seqno
|
|
1870
|
506 |
0 |
unless (defined $value)
|
|
1874
|
506 |
339 |
if $seqno == 1
|
|
1875
|
0 |
339 |
if ($seqno >= $seqno_last)
|
|
1935
|
0 |
207 |
unless defined $KK
|
|
1937
|
63 |
144 |
if ($type_sequence) { }
|
|
1942
|
121 |
23 |
if (defined $Kt)
|
|
1947
|
18 |
103 |
if ($is_closing_type{$type}) { }
|
|
1957
|
0 |
207 |
unless defined $parent_seqno
|
|
1972
|
0 |
0 |
unless defined $seqno_paren
|
|
1978
|
0 |
0 |
if $seqno == 1
|
|
1979
|
0 |
0 |
if ($self->[10]{$seqno})
|
|
1982
|
0 |
0 |
if ($seqno >= $seqno_last)
|
|
2008
|
0 |
0 |
unless defined $KK
|
|
2012
|
0 |
0 |
if ($self->[10]{$parent_seqno}) { }
|
|
2030
|
0 |
362 |
if ($i < 0)
|
|
2036
|
210 |
152 |
if not $seqno or $seqno == 1
|
|
2037
|
38 |
114 |
if $self->[8]{$seqno}
|
|
2051
|
119 |
45 |
if not $parent_seqno or $parent_seqno == 1
|
|
2061
|
0 |
1912 |
unless $seqno
|
|
2062
|
1297 |
615 |
if $seqno == 1
|
|
2063
|
162 |
453 |
if ($self->[39]{$seqno})
|
|
2075
|
0 |
46 |
unless defined $seqno
|
|
2125
|
0 |
0 |
if ($ltype eq 'HERE') { }
|
|
|
0 |
0 |
elsif ($ltype eq 'HERE_END') { }
|
|
2154
|
0 |
0 |
if ($type_KK ne ",")
|
|
2160
|
0 |
0 |
if (defined $Knnb)
|
|
2163
|
0 |
0 |
if ($type_sequence and $is_closing_type{$type_Knnb})
|
|
2176
|
0 |
59 |
$KK <= 0 ? :
|
|
2245
|
0 |
0 |
unless ($is_qwaf_Q)
|
|
2250
|
0 |
0 |
unless (defined $nch)
|
|
2254
|
0 |
0 |
unless defined $nch
|
|
2286
|
0 |
3 |
unless defined $rlist
|
|
2290
|
0 |
4 |
unless (is_keyword($word))
|
|
2294
|
3 |
0 |
unless @unknown_words
|
|
2296
|
0 |
0 |
if ($option_name)
|
|
2303
|
0 |
0 |
if $die_on_error
|
|
2325
|
0 |
40 |
unless defined $rlist
|
|
2328
|
12 |
28 |
if (defined $rkeyword_list)
|
|
2334
|
0 |
0 |
unless (is_valid_token_type($type) or $in_keyword_list{$type})
|
|
2338
|
40 |
0 |
unless @unknown_types
|
|
2340
|
0 |
0 |
if ($option_name)
|
|
2348
|
0 |
0 |
if $die_on_error
|
|
2368
|
0 |
647 |
if ($rOpts->{'dump-want-left-space'})
|
|
2373
|
0 |
647 |
if ($rOpts->{'dump-want-right-space'})
|
|
2421
|
0 |
647 |
if ($rOpts->{'dump-cuddled-block-list'})
|
|
2430
|
3 |
644 |
if ($rOpts->{'indent-only'})
|
|
2432
|
0 |
3 |
if ($rOpts->{'dump-mismatched-args'} or $rOpts->{'dump-mismatched-returns'})
|
|
2438
|
0 |
3 |
if ($rOpts->{'dump-block-summary'})
|
|
2455
|
0 |
647 |
if ($_ and $_ > $MAX_SIL)
|
|
2465
|
0 |
647 |
if (not $_ or $_ <= 0)
|
|
2491
|
4 |
643 |
unless ($rOpts->{'maximum-line-length'})
|
|
2496
|
0 |
647 |
unless ($rOpts->{'long-block-line-count'})
|
|
2529
|
12 |
635 |
if ($rOpts_delete_old_whitespace and not $rOpts_add_whitespace)
|
|
2533
|
0 |
72 |
if ($closing_vertical_tightness{$_} == 2)
|
|
2541
|
0 |
4 |
if ($rOpts->{'extended-line-up-parentheses'} and $rOpts->{'continuation-indentation'} > $rOpts->{'indent-columns'} || $rOpts->{'variable-maximum-line-length'})
|
|
2597
|
2 |
0 |
if (defined $opt_value)
|
|
2602
|
0 |
2 |
unless (defined $opt_value and length $opt_value)
|
|
2603
|
0 |
0 |
if ($rhs_required)
|
|
2610
|
1 |
0 |
unless ($opt_value =~ /[\(\{\[]/ or $opt_value =~ /\s/ or $$rvalid_regex{substr $opt_value, -1, 1})
|
|
2616
|
0 |
3 |
unless defined $rvalid_regex
|
|
2618
|
0 |
3 |
unless ($regex2 and $opt_value =~ /$regex2/)
|
|
2642
|
1 |
1 |
if ($item =~ /^ ([^\(\[\{]*)? ([\(\{\[]) ([^\(\[\{]*)? $/x) { }
|
|
|
1 |
0 |
elsif ($$rvalid_regex{substr $item, -1, 1}) { }
|
|
2644
|
1 |
0 |
if length $1
|
|
2646
|
0 |
1 |
if length $3
|
|
2654
|
0 |
1 |
if (length $item > 1)
|
|
2664
|
0 |
2 |
if (not defined $flag2 and $rhs_required)
|
|
2672
|
2 |
0 |
if ($rvalid_regex)
|
|
2674
|
0 |
2 |
if (defined $flag1 and not defined $regex1 && $flag1 =~ /$regex1/)
|
|
2681
|
0 |
2 |
if (defined $flag2 and not defined $regex2 && $flag2 =~ /$regex2/)
|
|
2689
|
2 |
0 |
unless (defined $control_hash{$key})
|
|
2696
|
0 |
0 |
if (defined $rflags->[0] and $rflags->[0] ne $flag1)
|
|
2700
|
0 |
0 |
if (defined $rflags->[1] and $rflags->[1] ne $flag2)
|
|
2706
|
0 |
1 |
if (%multiple_entries)
|
|
2719
|
646 |
1 |
unless defined $opt
|
|
2724
|
0 |
0 |
if ($opt =~ /\W/g and $opt ne "-" and $opt ne "*")
|
|
2751
|
2 |
645 |
if (defined $olbxl)
|
|
2753
|
2 |
0 |
if (@list)
|
|
2755
|
0 |
2 |
if (@unknown)
|
|
2774
|
646 |
1 |
unless ($is_olb_exclusion_word{'*'})
|
|
2776
|
2583 |
1 |
unless ($is_olb_exclusion_word{$_})
|
|
2785
|
647 |
0 |
if (@grep_aliases)
|
|
2789
|
646 |
1 |
if ($want_one_line_block{'grep'})
|
|
2844
|
643 |
4 |
unless $opt_value
|
|
2847
|
0 |
4 |
unless $opt_value
|
|
2898
|
0 |
9 |
unless (defined $key)
|
|
2902
|
8 |
1 |
unless (defined $weld_nested_exclusion_rules{$key})
|
|
2908
|
1 |
8 |
if ($tok eq "q")
|
|
2916
|
5 |
3 |
if ($item)
|
|
2917
|
5 |
0 |
if ($item =~ /^([\^\.])?([kKfFwW])?$/) { }
|
|
2918
|
5 |
0 |
if $1
|
|
2919
|
3 |
2 |
if $2
|
|
2928
|
6 |
2 |
if ($pos eq "^" or $pos eq "*")
|
|
2929
|
0 |
6 |
if (defined $rflags->[0] and $rflags->[0] ne $select)
|
|
2934
|
5 |
3 |
if ($pos eq "." or $pos eq "*")
|
|
2935
|
0 |
5 |
if (defined $rflags->[1] and $rflags->[1] ne $select)
|
|
2940
|
0 |
8 |
if ($err)
|
|
2942
|
0 |
4 |
if ($msg1)
|
|
2948
|
0 |
4 |
if ($msg2)
|
|
2964
|
1 |
646 |
if ($rOpts->{'weld-fat-comma'})
|
|
2984
|
0 |
647 |
if ($lpxl and $lpil)
|
|
2989
|
3 |
644 |
if ($lpxl) { }
|
|
|
1 |
643 |
elsif ($lpil) { }
|
|
3019
|
0 |
4 |
unless $opt_value
|
|
3022
|
0 |
4 |
unless $opt_value
|
|
3040
|
10 |
0 |
if ($item =~ /^ ([^\(\[\{]*)? ([\(\{\[]) (\d)? $/x) { }
|
|
3042
|
3 |
7 |
if $1
|
|
3043
|
10 |
0 |
if $2
|
|
3044
|
3 |
7 |
if defined $3
|
|
3051
|
0 |
10 |
unless (defined $key)
|
|
3057
|
7 |
3 |
unless (defined $flag1)
|
|
3059
|
0 |
10 |
unless ($flag1 =~ /^[kKfFwW\*]$/)
|
|
3069
|
7 |
3 |
unless (defined $flag2)
|
|
3071
|
0 |
10 |
unless ($flag2 =~ /^[012]$/)
|
|
3076
|
10 |
0 |
unless (defined $line_up_parentheses_control_hash{$key})
|
|
3084
|
0 |
0 |
if (defined $rflags->[0] and $rflags->[0] ne $flag1)
|
|
3088
|
0 |
0 |
if (defined $rflags->[1] and $rflags->[1] ne $flag2)
|
|
3092
|
0 |
0 |
if $err
|
|
3095
|
0 |
4 |
if ($msg1)
|
|
3101
|
0 |
4 |
if ($msg2)
|
|
3109
|
3 |
1 |
if ($line_up_parentheses_control_is_lpxl)
|
|
3113
|
5 |
0 |
if (defined $rflags)
|
|
3115
|
2 |
3 |
if ($flag1 and $flag1 ne "*")
|
|
3116
|
0 |
3 |
if ($flag2)
|
|
3119
|
1 |
2 |
if ($all_off)
|
|
3136
|
1 |
646 |
if (my(@q) = split_words($rOpts->{'nospace-after-keyword'}))
|
|
3139
|
0 |
1 |
if (@q == 1 and $q[0] eq '*') { }
|
|
3146
|
1 |
646 |
if (my(@q) = split_words($rOpts->{'space-after-keyword'}))
|
|
3162
|
646 |
1 |
unless $opt_value
|
|
3165
|
0 |
1 |
unless $opt_value
|
|
3189
|
0 |
1 |
if ($error_message)
|
|
3196
|
0 |
1 |
unless ($rcontrol_hash)
|
|
3216
|
646 |
1 |
unless $opt_value
|
|
3219
|
0 |
1 |
unless $opt_value
|
|
3234
|
0 |
1 |
if ($error_message)
|
|
3241
|
0 |
1 |
unless ($rcontrol_hash)
|
|
3247
|
0 |
1 |
unless ($rOpts->{'break-at-old-comma-breakpoints'})
|
|
3257
|
1 |
1 |
if $key_mate
|
|
3269
|
1 |
646 |
if (@okw) { }
|
|
3288
|
1 |
646 |
if (@kpit) { }
|
|
3305
|
2 |
645 |
if (defined $kpit_value and $kpit_value != 1)
|
|
3336
|
2 |
645 |
if ($rOpts->{$long_name})
|
|
3347
|
2 |
2 |
if (defined $hash{$word}) { }
|
|
|
0 |
2 |
elsif ($word eq 'k') { }
|
|
|
1 |
1 |
elsif ($word eq 't') { }
|
|
|
1 |
0 |
elsif ($word eq 'kt') { }
|
|
3367
|
0 |
2 |
if (@unknown)
|
|
3395
|
2 |
122 |
if ($tok eq "?")
|
|
3396
|
0 |
124 |
if ($tok eq ",")
|
|
3399
|
22 |
102 |
if (defined $lbs and defined $rbs and $lbs < $rbs)
|
|
3413
|
0 |
370 |
if ($tok eq ",")
|
|
3416
|
361 |
9 |
if (defined $lbs and defined $rbs and $rbs < $lbs)
|
|
3424
|
2 |
645 |
if $rOpts->{'break-after-all-operators'}
|
|
3426
|
1 |
646 |
if $rOpts->{'break-before-all-operators'}
|
|
3435
|
1 |
646 |
if (my(@q) = split_words($rOpts->{$optname}))
|
|
3440
|
11 |
636 |
if (my(@q) = split_words($rOpts->{$optname}))
|
|
3456
|
2 |
645 |
unless ($want_break_before{':'})
|
|
3466
|
5 |
642 |
if $_ and $_ > 0
|
|
3469
|
0 |
647 |
if $_ and $_ > 0
|
|
3472
|
5 |
642 |
if $_ and $_ > 0
|
|
3484
|
4 |
643 |
if ($rOpts->{'extended-line-up-parentheses'})
|
|
3488
|
33 |
614 |
if ($rOpts->{'line-up-parentheses'})
|
|
3490
|
0 |
33 |
if ($rOpts->{'indent-only'} or not $rOpts->{'add-newlines'} or not $rOpts->{'delete-old-newlines'})
|
|
3519
|
0 |
33 |
if ($rOpts->{'whitespace-cycle'})
|
|
3547
|
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'})
|
|
3580
|
1 |
646 |
if ($rOpts->{$long_name})
|
|
3583
|
0 |
1 |
if ($word eq "?")
|
|
3584
|
0 |
1 |
if ($word eq "/")
|
|
3585
|
0 |
1 |
if ($word eq "-")
|
|
3586
|
1 |
0 |
if ($is_ok{$word}) { }
|
|
3589
|
0 |
1 |
if (@unknown)
|
|
3610
|
647 |
0 |
unless $rOpts->{'tabs'}
|
|
3619
|
0 |
0 |
if ($rOpts->{$opt})
|
|
3640
|
5 |
0 |
if (defined $opt and $opt > 0 and $break_before_container_types{$tok})
|
|
3646
|
3 |
2 |
if ($opt == 2)
|
|
3647
|
1 |
2 |
if ($rOpts->{'line-up-parentheses'} or $rOpts->{'indent-columns'} <= $rOpts->{'continuation-indentation'})
|
|
3664
|
2 |
645 |
if ($rOpts->{'ignore-old-breakpoints'})
|
|
3667
|
0 |
2 |
if ($rOpts->{'break-at-old-method-breakpoints'})
|
|
3671
|
0 |
2 |
if ($rOpts->{'break-at-old-comma-breakpoints'})
|
|
3675
|
0 |
2 |
if ($rOpts->{'break-at-old-semicolon-breakpoints'})
|
|
3679
|
0 |
2 |
if ($rOpts->{'keep-old-breakpoints-before'})
|
|
3683
|
0 |
2 |
if ($rOpts->{'keep-old-breakpoints-after'})
|
|
3688
|
0 |
2 |
if (@conflicts)
|
|
3719
|
0 |
1 |
if (defined $want_break_before{$key} and not $want_break_before{$key} and $is_soft_keep_break_type{$key})
|
|
3728
|
0 |
0 |
if (defined $want_break_before{$key} and $want_break_before{$key} and $is_soft_keep_break_type{$key})
|
|
3749
|
1292 |
2 |
unless $str
|
|
3764
|
1 |
1 |
if ($short_name eq 'kbb') { }
|
|
|
1 |
0 |
elsif ($short_name eq 'kba') { }
|
|
3780
|
0 |
3 |
if ($item =~ /^( [ \w\* ] )( [ \{\(\[\}\)\] ] )$/x)
|
|
3782
|
0 |
0 |
if (defined $flags{$2}) { }
|
|
3794
|
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\*]$/) { }
|
|
3857
|
646 |
1 |
unless ($opt)
|
|
3883
|
1 |
0 |
if (defined $opt)
|
|
3888
|
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}) { }
|
|
3910
|
0 |
1 |
if ($error_string)
|
|
3918
|
1 |
0 |
unless ($negative_input{'<<>>'})
|
|
3927
|
0 |
10 |
if $negative_input{$word}
|
|
3929
|
2 |
8 |
if ($is_type_option{$word}) { }
|
|
|
8 |
0 |
elsif ($is_Q_subtype_option{$word}) { }
|
|
3930
|
1 |
1 |
if ($word eq "qw")
|
|
3948
|
1 |
0 |
if (@Q_subtype_list)
|
|
3950
|
0 |
1 |
if (bad_pattern($regex))
|
|
4158
|
2 |
645 |
if ($rOpts_whitespace_cycle)
|
|
4159
|
2 |
0 |
if ($rOpts_whitespace_cycle > 0) { }
|
|
4174
|
1 |
646 |
if ($rOpts_variable_maximum_line_length)
|
|
4198
|
634 |
11482 |
if ($excess_inside_space <= 0)
|
|
4221
|
634 |
9592 |
if $remaining_cycles <= 3
|
|
4230
|
0 |
647 |
$rOpts->{'variable-maximum-line-length'} && $rOpts->{'line-up-parentheses'} ? :
|
|
4262
|
3 |
644 |
if ($option)
|
|
4268
|
3 |
644 |
if (defined $option and length $option)
|
|
4276
|
3 |
0 |
if (length $option == 1) { }
|
|
4279
|
3 |
0 |
if ($option)
|
|
4298
|
0 |
0 |
unless $val
|
|
4300
|
0 |
0 |
if ($val and not $is_valid_flag{$val})
|
|
4313
|
0 |
0 |
if (length $part)
|
|
4315
|
0 |
0 |
if ($is_opening_token{$token})
|
|
4326
|
0 |
0 |
if (length $part)
|
|
4329
|
0 |
0 |
unless ($paren_flag =~ /^[kKfFwW]$/)
|
|
4334
|
0 |
0 |
unless ($is_paren)
|
|
4341
|
0 |
0 |
if (length $part)
|
|
4348
|
0 |
0 |
if (defined $rule_hash{$key})
|
|
4353
|
0 |
0 |
if ($duplicate)
|
|
4361
|
0 |
3 |
if ($error_message) { }
|
|
4383
|
645 |
2 |
unless $opt
|
|
4388
|
0 |
2 |
if ($opt eq "kf" or $opt eq "fk")
|
|
4391
|
0 |
2 |
if (length $opt != 1) { }
|
|
|
0 |
2 |
elsif (not $opt =~ /^[kKfFwW\*01]$/) { }
|
|
4464
|
12 |
635 |
if ($option)
|
|
4472
|
3 |
644 |
if (defined $tc_paren_rule)
|
|
4477
|
15 |
632 |
if (defined $option and length $option)
|
|
4485
|
15 |
0 |
if (length $option == 1) { }
|
|
4489
|
15 |
30 |
if ($key eq ")")
|
|
4506
|
0 |
0 |
if ($val and not $is_valid_flag{$val})
|
|
4520
|
0 |
0 |
if (length $part)
|
|
4522
|
0 |
0 |
if ($is_opening_token{$token})
|
|
4533
|
0 |
0 |
if (length $part)
|
|
4535
|
0 |
0 |
if ($sign eq '+') { }
|
|
|
0 |
0 |
elsif ($sign eq '-') { }
|
|
4549
|
0 |
0 |
if (length $part)
|
|
4552
|
0 |
0 |
unless ($paren_flag =~ /^[kKfFwW]$/)
|
|
4557
|
0 |
0 |
unless ($is_paren)
|
|
4564
|
0 |
0 |
if (length $part)
|
|
4577
|
0 |
0 |
if ($key eq ")")
|
|
4581
|
0 |
0 |
if (defined $rule_hash{$sign}{$key})
|
|
4589
|
0 |
0 |
if ($duplicate)
|
|
4597
|
15 |
0 |
unless ($error_message)
|
|
4600
|
15 |
0 |
if (defined $radd and defined $rdelete)
|
|
4604
|
45 |
0 |
if (defined $radd_info and defined $rdelete_info)
|
|
4607
|
45 |
0 |
if $add_val eq $delete_val
|
|
4610
|
0 |
0 |
unless (defined $add_order)
|
|
4616
|
0 |
0 |
unless (defined $delete_order)
|
|
4622
|
0 |
0 |
if ($add_order <= $delete_order)
|
|
4632
|
0 |
15 |
if ($error_message) { }
|
|
4646
|
4 |
643 |
if ($rOpts_add_trailing_commas and $rOpts_delete_trailing_commas)
|
|
4656
|
0 |
4 |
if ($rOpts_whitespace_cycle and $rOpts_whitespace_cycle <= 4) { }
|
|
|
0 |
4 |
elsif (%trailing_comma_break_rules) { }
|
|
4665
|
0 |
0 |
unless defined $delete_rule
|
|
4666
|
0 |
0 |
if $delete_rule->[0] ne "i"
|
|
4668
|
0 |
0 |
unless defined $break_rule
|
|
4672
|
0 |
0 |
if ($break_rule->[0])
|
|
4697
|
0 |
2 |
if ($opt_add and $opt_delete and not $opt_style)
|
|
4704
|
646 |
1 |
unless defined $opt_style
|
|
4708
|
0 |
1 |
unless length $opt_style
|
|
4710
|
0 |
1 |
if ($opt_style eq '0') { }
|
|
|
0 |
1 |
elsif ($opt_style eq '1') { }
|
|
|
0 |
1 |
elsif ($opt_style eq '*') { }
|
|
4730
|
15 |
1 |
if ($opt_style =~ /
|
|
4742
|
3 |
12 |
if ($1)
|
|
4743
|
4 |
8 |
if ($2)
|
|
4744
|
4 |
0 |
if (not $ch1) { }
|
|
4748
|
3 |
5 |
if ($3)
|
|
4749
|
3 |
0 |
if ($ch1) { }
|
|
4753
|
4 |
1 |
if ($4)
|
|
4754
|
4 |
0 |
if ($ch1 or $ch2) { }
|
|
4756
|
4 |
0 |
if (not defined $rule_hash{$key}) { }
|
|
4757
|
3 |
1 |
$ch2 ? :
|
|
4765
|
0 |
1 |
if ($5)
|
|
4767
|
0 |
0 |
if (length $bad > 10)
|
|
4781
|
0 |
1 |
if ($err_msg)
|
|
4783
|
0 |
0 |
if ($pos_last and length $opt_style < 20)
|
|
4918
|
13 |
634 |
unless ($rOpts->{'space-for-semicolon'})
|
|
4924
|
2 |
645 |
if ($rOpts->{'space-terminal-semicolon'})
|
|
4929
|
5 |
642 |
if (my(@q) = split_words($rOpts->{'want-left-space'}))
|
|
4934
|
5 |
642 |
if (my(@q) = split_words($rOpts->{'want-right-space'}))
|
|
4939
|
6 |
641 |
if (my(@q) = split_words($rOpts->{'nowant-left-space'}))
|
|
4944
|
10 |
637 |
if (my(@q) = split_words($rOpts->{'nowant-right-space'}))
|
|
5020
|
4 |
641 |
if $jmax < 0
|
|
5035
|
25 |
4 |
if ($rOpts_space_signature_paren == 1) { }
|
|
5044
|
20 |
5 |
$have_blank ? :
|
|
5047
|
2 |
2 |
$rOpts_space_signature_paren == 0 ? :
|
|
5079
|
17857 |
42419 |
if (($type = $rtokh->[6]) eq "b")
|
|
5093
|
5255 |
37164 |
if ($last_type_is_opening)
|
|
5099
|
595 |
4660 |
$seqno ? :
|
|
5105
|
5255 |
0 |
$last_seqno ? :
|
|
5112
|
244 |
5011 |
if ($token eq $matching_token{$last_token}) { }
|
|
5113
|
51 |
193 |
if ($block_type) { }
|
|
5128
|
1094 |
3917 |
if ($last_block_type and $last_token eq '{') { }
|
|
5146
|
5 |
5006 |
if ($type eq "w" and substr($token, 0, 1) eq "^")
|
|
5152
|
4 |
5007 |
if (defined $tseq)
|
|
5156
|
1058 |
3953 |
if ($tightness_here <= 0) { }
|
|
|
208 |
3745 |
elsif ($tightness_here > 1) { }
|
|
5174
|
3 |
3742 |
if ($regex and length $regex == 1 || $token =~ /$regex/) { }
|
|
|
1574 |
2168 |
elsif (defined $j_closing and $j_closing - $j < 5 and $rLL->[$j_closing][7] eq $last_seqno) { }
|
|
5188
|
1294 |
280 |
if ($j + 1 >= $j_closing) { }
|
|
5204
|
67 |
213 |
if ($ws == -1)
|
|
5216
|
23 |
5232 |
if (%opening_container_inside_ws and $last_seqno)
|
|
5218
|
6 |
17 |
if ($ws_override)
|
|
5233
|
9392 |
33027 |
if ($is_special_ws_type{$type}) { }
|
|
|
5255 |
27772 |
elsif ($is_closing_type{$type}) { }
|
|
|
5255 |
22517 |
elsif ($is_opening_type{$type}) { }
|
|
5235
|
3236 |
6156 |
if ($type eq 'k') { }
|
|
|
1206 |
4950 |
elsif ($type eq '#') { }
|
|
|
2866 |
2084 |
elsif ($type eq 'Q') { }
|
|
|
1695 |
389 |
elsif ($type eq 'w' or $type eq 'C') { }
|
|
|
389 |
0 |
elsif ($type eq 'm' or $type eq '-') { }
|
|
5243
|
1 |
0 |
if ($is_for_foreach{$token} and %keyword_paren_inner_tightness and defined $keyword_paren_inner_tightness{$token} and $j < $jmax)
|
|
5250
|
0 |
3 |
if $jp > $jmax
|
|
5254
|
0 |
3 |
if $rLL->[$jp][3] != $level
|
|
5255
|
0 |
3 |
if $rLL->[$jp][6] eq ";"
|
|
5257
|
2 |
1 |
unless $rLL->[$jp][4] eq "("
|
|
5283
|
11 |
2855 |
if ($last_type eq "\\" and $token =~ /^[\"\']/)
|
|
5284
|
2 |
0 |
$rOpts_space_backslash_quote == 2 ? :
|
|
|
7 |
2 |
$rOpts_space_backslash_quote == 1 ? :
|
|
|
2 |
9 |
!$rOpts_space_backslash_quote ? :
|
|
5294
|
6 |
1689 |
if $last_type eq "-"
|
|
5301
|
4 |
385 |
if $last_type eq "w"
|
|
5321
|
1361 |
3894 |
if ($j == $j_tight_closing_paren) { }
|
|
5328
|
3650 |
244 |
unless (defined $ws)
|
|
5334
|
1092 |
2558 |
if ($block_type and $token eq '}') { }
|
|
5339
|
209 |
3441 |
$tightness_here > 1 ? :
|
|
5344
|
23 |
5232 |
if (%closing_container_inside_ws and $seqno)
|
|
5346
|
6 |
17 |
if ($ws_override)
|
|
5351
|
0 |
4 |
$tseq > 0 ? :
|
|
|
4 |
5251 |
if (defined $tseq)
|
|
5364
|
2427 |
2828 |
if ($token eq '(') { }
|
|
|
2 |
2826 |
elsif ($token eq '{' and $type ne 'L' and $last_token eq ']') { }
|
|
5377
|
8 |
2419 |
if ($last_type eq '}' and $last_token ne ')') { }
|
|
|
767 |
1652 |
elsif ($last_type eq 'k') { }
|
|
|
983 |
669 |
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 |
623 |
elsif ($last_type eq 'i' and $last_token =~ /^[\$\%\@]/) { }
|
|
|
0 |
623 |
elsif ($last_type eq 'C' and $$rLL[$j + 1][4] eq ')') { }
|
|
|
20 |
603 |
elsif ($last_type eq 'S') { }
|
|
5387
|
9 |
758 |
if ($last_token eq 'sub') { }
|
|
5393
|
346 |
405 |
unless $rOpts_space_keyword_paren or $space_after_keyword{$last_token}
|
|
5443
|
37 |
946 |
$rOpts_space_function_paren ? :
|
|
5456
|
307 |
676 |
if ($last_type eq "U")
|
|
5458
|
46 |
261 |
if ($pos >= 0)
|
|
5500
|
4251 |
1004 |
if ($type eq "{")
|
|
5501
|
166 |
9 |
if ($last_token eq "sub" and $last_type eq "k" and $token ne "(")
|
|
5509
|
317 |
3934 |
if ($last_token eq ")" and $token eq "{")
|
|
5515
|
0 |
3138 |
if (not $block_type and $last_type eq "i" and $last_token =~ /^\@/)
|
|
5523
|
60 |
5195 |
if ($rOpts_extended_block_tightness and $token eq "{")
|
|
5525
|
32 |
22 |
if (not $rblock_type_of_seqno->{$seqno} and $extended_block_tightness_list{$last_token})
|
|
5541
|
44 |
41169 |
if ($last_type eq "Z" and $last_token ne "_")
|
|
5545
|
0 |
44 |
if ($last_type eq 'Z' and $last_token eq '$' and $token eq '{') { }
|
|
5556
|
29073 |
12140 |
unless (defined $ws)
|
|
5562
|
1364 |
27709 |
if (defined $binary_ws_rules{$last_type}{$type}) { }
|
|
5593
|
7448 |
20261 |
if (not defined $wl) { }
|
|
|
19701 |
560 |
elsif (not defined $wr or $wr == $wl or $wr == 0 or $wl == -1) { }
|
|
5594
|
7073 |
375 |
defined $wr ? :
|
|
5615
|
297 |
40916 |
if (not $ws and $rtokh->[2] != $rtokh_last->[2])
|
|
5623
|
40 |
6 |
if (not $last_token and $last_type eq "," and $type eq "Q" and $rOpts_qw_as_function)
|
|
5647
|
0 |
0 |
unless (defined $ws_1)
|
|
5648
|
0 |
0 |
unless (defined $ws_2)
|
|
5649
|
0 |
0 |
unless (defined $ws_3)
|
|
5650
|
0 |
0 |
unless (defined $ws_4)
|
|
5662
|
1 |
640 |
if ($rOpts->{'tight-secret-operators'})
|
|
5683
|
1730 |
12 |
unless %keyword_paren_inner_tightness
|
|
5687
|
0 |
12 |
unless $word
|
|
5689
|
12 |
0 |
if ($sequence_number) { }
|
|
5691
|
6 |
6 |
if (defined $tightness_here and $tightness_here != 1)
|
|
5692
|
6 |
0 |
$tightness_here == 0 ? :
|
|
5718
|
0 |
280 |
if ($j + 1 >= $j_closing)
|
|
5726
|
5 |
0 |
if $token eq "-" and $last_token eq "{" and $$rLL[$j + 1][6] eq "w"
|
|
5734
|
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/)
|
|
5744
|
2 |
278 |
if ($j_here + 1 >= $j_closing)
|
|
5747
|
104 |
174 |
$$rLL[$j_here + 1][6] eq 'b' ? :
|
|
5752
|
65 |
213 |
$j_next == $j_closing ? :
|
|
5788
|
0 |
6 |
if ($type_ll eq "k" and $is_indirect_object_taker{$tok_ll})
|
|
5793
|
5 |
0 |
if ($rOpts_qw_as_function and $rtokh_last->[6] eq "U" and $rtokh_last->[4] eq "qw")
|
|
5952
|
18 |
4 |
if (not $tokenl and $typel eq "," and $typer eq "Q" and $rOpts_qw_as_function)
|
|
5963
|
5752 |
1353 |
if $essential_whitespace_filter_l1{$typel} and not $essential_whitespace_filter_r1{$typer}
|
|
5968
|
320 |
1033 |
if $essential_whitespace_filter_r2{$typer} and not $essential_whitespace_filter_l2{$typel}
|
|
5983
|
6 |
1027 |
if ($typer eq "#")
|
|
5985
|
2 |
4 |
if $tokenl and $typel eq '?' || substr($tokenl, -1) eq '$'
|
|
5996
|
0 |
1027 |
ord $tokenr_leading_ch > 126 ? :
|
|
6237
|
3 |
6 |
if $type eq "b"
|
|
6240
|
4 |
2 |
unless $is_leading_secret_token{$token}
|
|
6248
|
1 |
3 |
if $jend <= $jmax and $rLL->[$jend][6] eq "b"
|
|
6252
|
1 |
3 |
if ($jend > $jmax or $tok ne $rLL->[$jend][4])
|
|
6260
|
1 |
1 |
if ($jend)
|
|
6811
|
20611 |
14050 |
if ($type ne "b")
|
|
6818
|
12778 |
21883 |
if ($type eq "b" and $last_type ne "b")
|
|
6831
|
14050 |
7833 |
$next_type eq 'b' ? :
|
|
6851
|
1365 |
20518 |
if ($type eq "k")
|
|
6852
|
156 |
1209 |
if (defined $right_bond_strength{$token})
|
|
6859
|
1272 |
20611 |
if ($i_next_nonblank > $max_index_to_go)
|
|
6866
|
654 |
618 |
if (not defined $bsr or $bsr > "0.55")
|
|
6868
|
77 |
577 |
if ($ris_list_by_seqno->{$seqno_px})
|
|
6872
|
17 |
60 |
if ($seqno_n and $seqno_n eq $seqno_px)
|
|
6880
|
798 |
21085 |
if ($next_nonblank_type eq "k")
|
|
6881
|
156 |
642 |
if (defined $left_bond_strength{$next_nonblank_token})
|
|
6893
|
6335 |
15548 |
unless (defined $bsr)
|
|
6894
|
4813 |
17070 |
unless (defined $bsl)
|
|
6895
|
13815 |
8068 |
$bsr < $bsl ? :
|
|
6919
|
91 |
21792 |
if ($type eq "||" or $type eq "k" and $token eq "or")
|
|
6922
|
4 |
87 |
if ($is_die_confess_croak_warn{$next_nonblank_token})
|
|
6923
|
4 |
0 |
if ($want_break_before{$token} and $i > 0) { }
|
|
6928
|
1 |
3 |
if ($types_to_go[$i - 1] eq "b" and $i > 2)
|
|
6939
|
213 |
21670 |
if ($type eq "}" and $block_type)
|
|
6942
|
163 |
50 |
if ($next_nonblank_type ne ';' and $next_nonblank_type ne ',') { }
|
|
6958
|
1365 |
20518 |
if ($type eq "k")
|
|
6961
|
5 |
52 |
if ($next_nonblank_type eq "k" and $is_last_next_redo_return{$token})
|
|
6974
|
260 |
1105 |
if ($token eq "my")
|
|
6980
|
797 |
21086 |
if ($next_nonblank_type eq 'k' and $type ne 'CORE::') { }
|
|
|
945 |
20141 |
elsif ($next_nonblank_type eq '=>') { }
|
|
6982
|
69 |
728 |
if ($is_keyword_returning_list{$next_nonblank_token})
|
|
6983
|
0 |
69 |
if $bond_str > $list_str
|
|
6988
|
20 |
777 |
if ($is_good_keyword_breakpoint{$next_nonblank_token})
|
|
6995
|
206 |
739 |
if ($bond_str < "2.1")
|
|
7006
|
0 |
248 |
if ($token eq "(" and $next_nonblank_type eq "i" and $last_nonblank_type eq "k" and $is_sort_map_grep{$last_nonblank_token})
|
|
7018
|
2 |
21881 |
if ($last_nonblank_type eq "F" and $next_nonblank_token eq "(")
|
|
7036
|
2690 |
19193 |
if ($type eq '{') { }
|
|
|
2 |
19191 |
elsif ($type eq 'Z') { }
|
|
|
1059 |
18132 |
elsif ($type eq 'w') { }
|
|
7057
|
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 "/")
|
|
7081
|
0 |
1045 |
if not $old_breakpoint_to_go[$i] and substr($next_nonblank_token, 0, 1) eq "/" and $next_nonblank_type ne "//"
|
|
7095
|
130 |
21753 |
if ($next_nonblank_type eq '?') { }
|
|
|
124 |
21629 |
elsif ($next_nonblank_type eq '.') { }
|
|
|
2690 |
18939 |
elsif ($next_nonblank_type eq ',' or $next_nonblank_type eq ';' and not $rOpts_add_semicolons) { }
|
|
7096
|
1 |
129 |
if $types_to_go[$i_next_nonblank + 1] eq "Q"
|
|
7106
|
0 |
124 |
if $types_to_go[$i_next_nonblank + 1] eq "n"
|
|
7115
|
30 |
2660 |
unless (length $next_nonblank_token)
|
|
7138
|
5568 |
260 |
if ($seqno and $is_container_token{$token})
|
|
7142
|
5444 |
268 |
if ($next_nonblank_seqno and $is_container_token{$next_nonblank_token})
|
|
7163
|
2030 |
19853 |
if ($binary_bond_strength{$ltype}{$rtype})
|
|
7169
|
255 |
21628 |
if ($binary_bond_strength_nospace{$ltype}{$next_type})
|
|
7174
|
50 |
21833 |
if ($nobreak_rhs{$ltype} or $nobreak_lhs{$rtype})
|
|
7208
|
0 |
1365 |
$token eq 'err' ? :
|
|
|
1365 |
20518 |
$type eq 'k' ? :
|
|
7211
|
0 |
798 |
$next_nonblank_token eq 'err' ? :
|
|
|
798 |
21085 |
$next_nonblank_type eq 'k' ? :
|
|
7221
|
471 |
21412 |
if (defined $bias{$left_key})
|
|
7222
|
30 |
441 |
unless ($want_break_before{$left_key})
|
|
7229
|
470 |
21413 |
if (defined $bias{$right_key})
|
|
7230
|
440 |
30 |
if ($want_break_before{$right_key})
|
|
7234
|
123 |
317 |
if ($right_key eq '.') { }
|
|
7241
|
83 |
40 |
unless ($is_short_quote)
|
|
7262
|
20393 |
1490 |
if (defined $bond_str and not $nobreak_to_go[$i]) { }
|
|
7263
|
16504 |
3889 |
if ($total_nesting_depth > 0) { }
|
|
7277
|
92 |
1398 |
if $nobreak_to_go[$i] and $nobreak_to_go[$i] > 1
|
|
7287
|
925 |
20958 |
if ($total_weld_count)
|
|
7289
|
95 |
830 |
if ($rK_weld_right->{$KK}) { }
|
|
|
27 |
803 |
elsif ($rK_weld_left->{$KK} and $is_opening_token{$token}) { }
|
|
7305
|
50 |
21833 |
if ($type eq "#")
|
|
7312
|
2965 |
18918 |
if ($strength >= 10000 and $next_nonblank_type ne "?")
|
|
7357
|
12 |
635 |
if ($rOpts->{'cuddled-else'})
|
|
7361
|
12 |
0 |
unless $rOpts->{'cuddled-block-list-exclusive'}
|
|
7367
|
2 |
10 |
if ($cuddled_block_list)
|
|
7408
|
0 |
66 |
unless $string
|
|
7412
|
0 |
66 |
if @words <= 0
|
|
7418
|
0 |
66 |
if (@words > 1)
|
|
7424
|
12 |
54 |
unless (defined $rcuddled_block_types->{$start})
|
|
7435
|
0 |
66 |
if (defined $rbad)
|
|
7436
|
0 |
0 |
unless ($cuddled_block_list)
|
|
7446
|
0 |
66 |
unless $word
|
|
7447
|
0 |
66 |
if ($no_cuddle{$word})
|
|
7498
|
0 |
0 |
unless $cuddled_string
|
|
7501
|
0 |
0 |
if $rOpts->{'cuddled-else'}
|
|
7504
|
0 |
0 |
unless ($rOpts->{'cuddled-else'})
|
|
7530
|
1 |
646 |
if ($rOpts->{'static-block-comment-prefix'})
|
|
7536
|
1 |
0 |
unless ($prefix =~ /^\^#/)
|
|
7537
|
0 |
1 |
unless ($prefix =~ /^#/)
|
|
7544
|
0 |
1 |
if (bad_pattern($pattern))
|
|
7557
|
1292 |
2 |
unless ($param)
|
|
7559
|
0 |
1294 |
unless ($param =~ /^#/)
|
|
7563
|
0 |
1294 |
if (bad_pattern($pattern))
|
|
7580
|
1 |
646 |
if (my $prefix = $rOpts->{'non-indenting-brace-prefix'})
|
|
7582
|
0 |
1 |
unless ($prefix =~ /^#/)
|
|
7586
|
0 |
1 |
if (bad_pattern($pattern))
|
|
7609
|
1 |
646 |
if (defined $cscl and $cscl)
|
|
7616
|
1 |
646 |
if (defined $cscxl and $cscxl)
|
|
7619
|
1 |
0 |
if ($cscxl =~ /\basub\b/)
|
|
7639
|
5 |
642 |
if ($rOpts->{'closing-side-comments'}) { }
|
|
|
0 |
642 |
elsif ($rOpts->{'closing-side-comment-warnings'}) { }
|
|
7640
|
5 |
0 |
unless ($rOpts->{'closing-side-comment-warnings'} or $rOpts->{'indent-only'})
|
|
7652
|
0 |
0 |
if ($rOpts->{'delete-closing-side-comments'})
|
|
7669
|
644 |
3 |
if (not $comment) { }
|
|
7677
|
0 |
3 |
if (substr($comment, 0, 1) ne "#")
|
|
7711
|
3 |
644 |
if ($sub_alias_list) { }
|
|
7719
|
647 |
0 |
unless (defined $rOpts->{'use-feature'} and $rOpts->{'use-feature'} =~ /\bnoclass\b/)
|
|
7728
|
647 |
0 |
if (@words > 1)
|
|
7754
|
1 |
0 |
if (defined $rOpts->{$bll_long_name} and $rOpts->{$bll_long_name})
|
|
7757
|
1 |
646 |
if ($bl_list_string =~ /\bsub\b/)
|
|
7760
|
1 |
646 |
if ($bl_list_string =~ /\basub\b/)
|
|
7767
|
646 |
1 |
if ($bl_pattern =~ /\.\*/)
|
|
7769
|
637 |
9 |
unless (defined $rOpts->{$sbl_long_name})
|
|
7773
|
0 |
646 |
if (not defined $rOpts->{$asbl_long_name} and defined $rOpts->{$bll_long_name})
|
|
7780
|
1 |
0 |
if (defined $rOpts->{$blxl_long_name} and $rOpts->{$blxl_long_name})
|
|
7784
|
0 |
1 |
if ($bl_exclusion_list_string =~ /\bsub\b/)
|
|
7787
|
0 |
1 |
if ($bl_exclusion_list_string =~ /\basub\b/)
|
|
7803
|
3 |
0 |
if (defined $rOpts->{'brace-left-and-indent-list'} and $rOpts->{'brace-left-and-indent-list'})
|
|
7811
|
1 |
0 |
if (defined $rOpts->{'brace-left-and-indent-exclusion-list'} and $rOpts->{'brace-left-and-indent-exclusion-list'})
|
|
7828
|
0 |
0 |
if (defined $rOpts->{'keyword-group-blanks-list'} and $rOpts->{'keyword-group-blanks-list'})
|
|
7835
|
0 |
0 |
if ($word eq 'BC' or $word eq 'SBC') { }
|
|
7837
|
0 |
0 |
if ($word eq "SBC")
|
|
7843
|
0 |
0 |
if (@keyword_list)
|
|
7849
|
0 |
0 |
if (@comment_list)
|
|
7862
|
0 |
0 |
if (defined $rOpts->{'block-brace-vertical-tightness-list'} and $rOpts->{'block-brace-vertical-tightness-list'})
|
|
7876
|
1 |
0 |
if (defined $rOpts->{$key} and $rOpts->{$key})
|
|
7883
|
1 |
0 |
if (defined $rOpts->{$key} and $rOpts->{$key})
|
|
7917
|
650 |
9677 |
if ($i eq "*")
|
|
7918
|
0 |
9677 |
if $seen{$i}
|
|
7920
|
646 |
9031 |
if ($i eq 'sub') { }
|
|
|
648 |
8383 |
elsif ($i eq 'asub') { }
|
|
|
0 |
8383 |
elsif ($i eq ';') { }
|
|
|
0 |
8383 |
elsif ($i eq '{') { }
|
|
|
644 |
7739 |
elsif ($i eq ':') { }
|
|
|
7739 |
0 |
elsif ($i =~ /^\w+$/ and not $i =~ /^\d/) { }
|
|
7943
|
649 |
1293 |
unless (@words)
|
|
7947
|
646 |
1296 |
if ($seen{'sub'})
|
|
7950
|
648 |
1294 |
if ($seen{'asub'})
|
|
7953
|
1293 |
649 |
if ($sub_patterns)
|
|
7966
|
0 |
647 |
if (my $prefix = $rOpts->{'static-side-comment-prefix'})
|
|
7969
|
0 |
0 |
if (bad_pattern($pattern))
|
|
7985
|
645 |
2 |
if (not defined $csc_prefix) { }
|
|
7991
|
0 |
2 |
unless ($test_csc_prefix =~ /^#/)
|
|
8013
|
0 |
2 |
if (bad_pattern($test_csc_prefix_pattern)) { }
|
|
8048
|
646 |
1 |
unless $dscxp_string
|
|
8051
|
0 |
1 |
if $dscxp_string =~ /^\s*$/
|
|
8054
|
0 |
1 |
if (substr($dscxp_string, 0, 1) ne "#" and substr($dscxp_string, 0, 2) ne "\\#")
|
|
8064
|
0 |
1 |
if (bad_pattern($pattern))
|
|
8081
|
639 |
8 |
unless defined $opts
|
|
8107
|
3 |
5 |
if ($top{$str}) { }
|
|
|
5 |
0 |
elsif ($bottom{$str}) { }
|
|
8110
|
0 |
3 |
unless (defined $tok)
|
|
8121
|
0 |
5 |
unless (defined $tok)
|
|
8133
|
0 |
8 |
if (@unknown_types)
|
|
8212
|
0 |
0 |
if $jmax < 0
|
|
8217
|
0 |
0 |
unless defined $seqno
|
|
8221
|
0 |
0 |
if (not $seqno) { }
|
|
8226
|
0 |
0 |
if ($is_opening_sequence_token{$token} and $type ne "q" and $type ne "Q")
|
|
8242
|
0 |
0 |
unless (defined $initial_seqno)
|
|
8247
|
0 |
0 |
if ($initial_seqno != 2)
|
|
8263
|
0 |
0 |
if ($is_opening_sequence_token{$token}) { }
|
|
|
0 |
0 |
elsif ($is_closing_sequence_token{$token}) { }
|
|
8266
|
0 |
0 |
if ($initial_seqno == 2 and $seqno != $last_seqno + 1)
|
|
8276
|
0 |
0 |
if ($saw_opening_seqno{$seqno})
|
|
8289
|
0 |
0 |
if ($saw_closing_seqno{$seqno})
|
|
8300
|
0 |
0 |
unless ($saw_opening_seqno{$seqno})
|
|
8361
|
196 |
8772 |
if ($line_type ne 'CODE') { }
|
|
8378
|
7732 |
1040 |
if ($jmax >= 0) { }
|
|
8380
|
7088 |
644 |
defined $Klimit ? :
|
|
8423
|
5 |
8963 |
if ($tee_output)
|
|
8426
|
5 |
0 |
if $fh_tee
|
|
8486
|
0 |
33 |
if ($qw_type ne "q")
|
|
8495
|
0 |
33 |
unless (length $qw_text)
|
|
8506
|
8 |
25 |
unless ($in_qw_seqno)
|
|
8508
|
0 |
8 |
if ($opening ne "qw(")
|
|
8533
|
8 |
25 |
unless ($is_continued)
|
|
8534
|
8 |
0 |
if (length $qw_text > 0 and substr($qw_text, -1, 1) eq ')') { }
|
|
8557
|
26 |
7 |
if (length $qw_text)
|
|
8562
|
0 |
21 |
unless ($opening or $closing or @words)
|
|
8594
|
8 |
25 |
if ($opening)
|
|
8608
|
3 |
5 |
if ($level_words > $self->[82])
|
|
8635
|
26 |
7 |
if (@words)
|
|
8640
|
26 |
22 |
if ($comma_count or $has_opening_space)
|
|
8661
|
46 |
2 |
if ($commas_needed)
|
|
8672
|
8 |
25 |
if ($closing) { }
|
|
8678
|
0 |
4 |
if (not @words and $in_qw_comma_count == 1 and $rLL->[-1][6] eq ",")
|
|
8692
|
2 |
6 |
$rLL->[-1][6] eq 'Q' ? :
|
|
8693
|
4 |
4 |
if (substr($rLL->[$iQ][4], -1, 1) eq "\\")
|
|
8695
|
2 |
2 |
unless ($rOpts_add_whitespace)
|
|
8701
|
0 |
8 |
if ($has_closing_space)
|
|
8727
|
25 |
8 |
if ($is_continued)
|
|
8765
|
0 |
7732 |
if ($jmax < 0)
|
|
8786
|
644 |
7088 |
unless (defined $nesting_depth)
|
|
8788
|
0 |
644 |
if $nesting_depth < 0
|
|
8793
|
25 |
7707 |
if ($in_qw_seqno)
|
|
8794
|
0 |
25 |
if ($rtoken_type->[0] ne "q")
|
|
8822
|
10886 |
49401 |
if ($$rtype_sequence[++$j]) { }
|
|
8827
|
5250 |
5636 |
if ($is_opening_token{$token}) { }
|
|
|
5250 |
386 |
elsif ($is_closing_token{$token}) { }
|
|
|
193 |
193 |
elsif ($token eq '?') { }
|
|
|
193 |
0 |
elsif ($token eq ':') { }
|
|
8828
|
0 |
5250 |
if ($added_seqno_count)
|
|
8845
|
1113 |
4137 |
if ($rblock_type->[$j])
|
|
8853
|
187 |
926 |
if ($matches_ASUB{$block_type}) { }
|
|
|
149 |
777 |
elsif ($block_type =~ /\s/ and $block_type =~ /$SUB_PATTERN/) { }
|
|
8871
|
0 |
5250 |
if ($added_seqno_count)
|
|
8882
|
0 |
5250 |
unless (defined $opening_depth)
|
|
8884
|
0 |
0 |
if $opening_depth < 0
|
|
8901
|
0 |
193 |
if ($added_seqno_count)
|
|
8914
|
0 |
193 |
if ($added_seqno_count)
|
|
8935
|
5443 |
5443 |
if ($sign > 0) { }
|
|
8944
|
957 |
4486 |
if ($level > $self->[82])
|
|
8977
|
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(')
|
|
9000
|
3 |
7729 |
if ($self->[81])
|
|
9046
|
0 |
648 |
if (not $severe_error and $maximum_level >= $maximum_table_index)
|
|
9057
|
0 |
648 |
if ($severe_error or $rOpts->{'notidy'})
|
|
9073
|
14 |
634 |
if $rOpts_delete_side_comments or $rOpts_delete_closing_side_comments
|
|
9089
|
0 |
648 |
if ($error)
|
|
9101
|
1 |
647 |
if (%maximum_field_count_control_hash)
|
|
9107
|
0 |
648 |
if ($rOpts->{'dump-unique-keys'})
|
|
9112
|
0 |
648 |
if ($rOpts->{'dump-similar-keys'})
|
|
9117
|
0 |
648 |
if ($rOpts->{'warn-unique-keys'} or $rOpts->{'warn-similar-keys'})
|
|
9120
|
0 |
0 |
if $self->[50]
|
|
9124
|
0 |
648 |
if ($rOpts->{'dump-hash-keys'})
|
|
9130
|
0 |
648 |
if ($rOpts->{'dump-block-summary'})
|
|
9135
|
0 |
648 |
if ($rOpts->{'dump-nested-ternaries'})
|
|
9140
|
0 |
648 |
if ($rOpts->{'warn-nested-ternaries'})
|
|
9141
|
0 |
0 |
if $self->[50]
|
|
9146
|
0 |
648 |
if ($rOpts->{'dump-unusual-variables'})
|
|
9154
|
0 |
0 |
if %{$rwarn_variable_types;} and $self->[50]
|
|
9157
|
0 |
648 |
if ($rOpts->{'warn-mismatched-args'} or $rOpts->{'warn-mismatched-returns'})
|
|
9160
|
0 |
0 |
if $self->[50]
|
|
9164
|
0 |
648 |
if ($rOpts->{'dump-mismatched-args'})
|
|
9169
|
0 |
648 |
if ($rOpts->{'dump-mismatched-returns'})
|
|
9174
|
0 |
648 |
if ($rOpts->{'dump-mixed-call-parens'})
|
|
9179
|
0 |
648 |
if ($rOpts->{'dump-keyword-usage'})
|
|
9187
|
0 |
0 |
if %call_paren_style and $self->[50]
|
|
9200
|
5 |
643 |
if $rOpts_line_up_parentheses and $rOpts_extended_line_up_parentheses
|
|
9252
|
0 |
0 |
$sseq > 0 ? :
|
|
9254
|
0 |
0 |
unless $rblock_type_of_seqno->{$seq_next}
|
|
9255
|
0 |
0 |
if ($sseq > 0) { }
|
|
9261
|
0 |
0 |
if ($item->{'maximum_depth'} < $stack_depth)
|
|
9274
|
0 |
0 |
if ($is_loop_type{$block_type} and defined $item)
|
|
9290
|
0 |
0 |
if ($seq_test != $seq_next)
|
|
9323
|
0 |
0 |
unless defined $Kp
|
|
9324
|
0 |
0 |
if ($rLL->[$Kp][4] eq ")")
|
|
9329
|
0 |
0 |
unless defined $K_opening
|
|
9334
|
0 |
0 |
if $lx < 0
|
|
9339
|
0 |
0 |
if $line_type ne "CODE"
|
|
9345
|
0 |
0 |
unless defined $Kfirst
|
|
9348
|
0 |
0 |
if ($rLL->[$Kfirst][6] eq "J")
|
|
9354
|
0 |
0 |
if $lx < $lx_open
|
|
9388
|
0 |
0 |
if ($type eq 'k') { }
|
|
9390
|
0 |
0 |
if ($is_mccabe_logic_keyword{$token})
|
|
9393
|
0 |
0 |
if ($is_mccabe_logic_operator{$type})
|
|
9430
|
0 |
0 |
if ($line_type eq 'CODE') { }
|
|
9434
|
0 |
0 |
if (defined $Kfirst)
|
|
9437
|
0 |
0 |
defined $Kfirst ? :
|
|
9439
|
0 |
0 |
if ($jmax > 0 or $rLL->[$Klast][6] ne '#') { }
|
|
9443
|
0 |
0 |
if $rLL->[$Klast][4] =~ /\w/
|
|
9453
|
0 |
0 |
if (not $line_type =~ /^POD/) { }
|
|
9457
|
0 |
0 |
if ($line_type eq "POD" and $line_of_tokens->{'_line_text'} =~ /\w/)
|
|
9478
|
0 |
0 |
unless ($rdump_block_types->{'*'} or $rdump_block_types->{'package'} or $rdump_block_types->{'class'})
|
|
9489
|
0 |
0 |
if $rLL->[$KK][6] ne "P"
|
|
9538
|
0 |
0 |
unless (defined $count)
|
|
9543
|
0 |
0 |
if ($pre_count)
|
|
9544
|
0 |
0 |
if ($post_count)
|
|
9547
|
0 |
0 |
if ($count eq "#0" or $count eq "#0#")
|
|
9570
|
0 |
0 |
if (not defined $Kfirst && defined $Klast or $Kfirst > $K_opening)
|
|
9584
|
0 |
0 |
if (defined $item)
|
|
9591
|
0 |
0 |
$item->{'is_inner_loop'} ? :
|
|
9595
|
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}) { }
|
|
9620
|
0 |
0 |
if ($token_type eq "b")
|
|
9621
|
0 |
0 |
if ($token_type eq "=>")
|
|
9622
|
0 |
0 |
if ($token_type eq "=")
|
|
9623
|
0 |
0 |
if ($token_type eq "i" and $saw_equals or $token_type eq 'w' || $token_type eq 'Q' and $saw_fat_comma)
|
|
9649
|
0 |
0 |
if (substr($name, 0, 1) eq "\$" and $ris_method_block->{$seqno})
|
|
9679
|
0 |
0 |
if ($is_loop_type{$block_type})
|
|
9724
|
0 |
0 |
unless (@elsif_d)
|
|
9729
|
0 |
0 |
if ($word =~ /(\d+)$/)
|
|
9731
|
0 |
0 |
if (not defined $elsif_count_min or $elsif_count_min > $num)
|
|
9743
|
0 |
0 |
unless $block_type eq "if" or $block_type eq "unless"
|
|
9748
|
0 |
0 |
unless $rif_chain
|
|
9775
|
0 |
0 |
if ($block_type ne "if" and $block_type ne "unless")
|
|
9797
|
0 |
0 |
if ($block_type eq "elsif")
|
|
9799
|
0 |
0 |
if (defined $item)
|
|
9804
|
0 |
0 |
if ($mxc > $max_change)
|
|
9808
|
0 |
0 |
if $block_type eq "else"
|
|
9813
|
0 |
0 |
unless defined $K_k
|
|
9819
|
0 |
0 |
unless $type_k eq "k" and $token_k eq 'elsif' || $token_k eq 'else'
|
|
9823
|
0 |
0 |
if ($token_k eq "else")
|
|
9831
|
0 |
0 |
unless defined $Ko
|
|
9833
|
0 |
0 |
if ($seqno and $rblock_type_of_seqno->{$seqno} eq "else")
|
|
9850
|
0 |
0 |
unless defined $kpo
|
|
9852
|
0 |
0 |
unless $seqno_p and $rLL->[$kpo][4] eq "("
|
|
9854
|
0 |
0 |
unless defined $Kpc
|
|
9858
|
0 |
0 |
unless defined $Ko
|
|
9860
|
0 |
0 |
if ($seqno and $rblock_type_of_seqno->{$seqno} eq "elsif")
|
|
9869
|
0 |
0 |
if $elsif_count < $elsif_count_min
|
|
9909
|
0 |
0 |
if ($ch1 eq "'")
|
|
9935
|
0 |
0 |
unless defined $rcall_type->{$key}
|
|
9941
|
0 |
0 |
unless $valid_call_count
|
|
9982
|
0 |
0 |
if not defined $Klimit or $Klimit < 1
|
|
10124
|
0 |
0 |
if (not defined $is_fixed_key{$key}) { }
|
|
10148
|
0 |
0 |
if (defined $rkeys)
|
|
10156
|
0 |
0 |
if (defined $rparent_list)
|
|
10159
|
0 |
0 |
if (defined $rk)
|
|
10178
|
0 |
0 |
unless @stack
|
|
10181
|
0 |
0 |
unless defined $Kbrace
|
|
10182
|
0 |
0 |
unless defined $Khash
|
|
10183
|
0 |
0 |
if $rLL->[$Kbrace][6] ne "L"
|
|
10188
|
0 |
0 |
if ($token eq "->")
|
|
10190
|
0 |
0 |
unless defined $Khash
|
|
10193
|
0 |
0 |
if ($token eq "}")
|
|
10195
|
0 |
0 |
unless defined $seqno
|
|
10197
|
0 |
0 |
unless $Ko
|
|
10202
|
0 |
0 |
if $ch1 ne "\$" and $ch1 ne "*"
|
|
10211
|
0 |
0 |
if ($count > 0)
|
|
10230
|
0 |
0 |
if ($token eq "->")
|
|
10232
|
0 |
0 |
unless defined $Ktest
|
|
10235
|
0 |
0 |
if ($token eq "}")
|
|
10237
|
0 |
0 |
unless defined $seqno
|
|
10239
|
0 |
0 |
unless $Ko
|
|
10246
|
0 |
0 |
if ($ch1 eq "\@")
|
|
10271
|
0 |
0 |
unless ($seqno_in)
|
|
10278
|
0 |
0 |
if ($seqno_in <= 1 or not $ris_list_by_seqno->{$seqno_in})
|
|
10286
|
0 |
0 |
if (defined $seqno_cache)
|
|
10293
|
0 |
0 |
if $seqno == 1
|
|
10294
|
0 |
0 |
if ($seqno >= $seqno_out or $seqno < 1)
|
|
10302
|
0 |
0 |
unless $ris_list_by_seqno->{$seqno}
|
|
10309
|
0 |
0 |
$Kp ? :
|
|
10310
|
0 |
0 |
if ($tokp eq "," or $tokp eq "=>" or $is_opening_token{$tokp})
|
|
10338
|
0 |
0 |
unless $rhash_names or $all_caps
|
|
10341
|
0 |
0 |
unless $id
|
|
10342
|
0 |
0 |
if $all_caps and $id eq "\$ENV"
|
|
10343
|
0 |
0 |
if $rhash_names->{$id}
|
|
10358
|
0 |
0 |
unless (defined $info)
|
|
10364
|
0 |
0 |
if ($count > 1)
|
|
10372
|
0 |
0 |
if ($is_known_module_key{$key})
|
|
10377
|
0 |
0 |
unless $id
|
|
10382
|
0 |
0 |
if ($is_typeglob_slot_key{$key} and substr($id, 0, 1) eq "*")
|
|
10390
|
0 |
0 |
if ($is_fixed_key{$key} || $all_caps and &$is_fixed_hash($key, $all_caps, $id))
|
|
10399
|
0 |
0 |
if ($id eq "\$Config" or $id eq "\$Config::Config")
|
|
10424
|
0 |
0 |
if ($type_last eq 'w') { }
|
|
|
0 |
0 |
elsif ($type_last eq 'Q') { }
|
|
10429
|
0 |
0 |
if (@mw_list and $mw_list[-1] eq $KK_last_nb)
|
|
10438
|
0 |
0 |
if length $token_last < 2
|
|
10441
|
0 |
0 |
if ($KK_last_nb > 0 and $$rLL[$KK_last_nb - 1][6] eq "Q")
|
|
10448
|
0 |
0 |
if ($ch0 eq '"') { }
|
|
|
0 |
0 |
elsif ($ch0 eq q[']) { }
|
|
10457
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
10465
|
0 |
0 |
if ($is_interpolated)
|
|
10468
|
0 |
0 |
if $pos < 0
|
|
10469
|
0 |
0 |
if $pos == 0
|
|
10471
|
0 |
0 |
if $ch_test ne "\\"
|
|
10476
|
0 |
0 |
if (@Q_list and $Q_list[-1][0] eq $KK_last_nb) { }
|
|
10496
|
0 |
0 |
unless $word
|
|
10502
|
0 |
0 |
if ($parent_seqno and $ris_list_by_seqno->{$parent_seqno})
|
|
10508
|
0 |
0 |
if ($token_o eq "[")
|
|
10512
|
0 |
0 |
if (not defined $rhash_key_trove->{$word}) { }
|
|
10514
|
0 |
0 |
@stack ? :
|
|
10516
|
0 |
0 |
if ($slice_name) { }
|
|
|
0 |
0 |
elsif (not $id) { }
|
|
10523
|
0 |
0 |
if ($id and $type_KK eq "R")
|
|
10529
|
0 |
0 |
if (defined $rinfo)
|
|
10534
|
0 |
0 |
$Kn ? :
|
|
10537
|
0 |
0 |
if ($type_n ne "=" and $type_n ne "," or $rinfo->{'semicolon_count'} != $semicolon_count - 1)
|
|
10563
|
0 |
0 |
if (defined $id and not defined $first_key_by_id{$id})
|
|
10568
|
0 |
0 |
if ($birth_id)
|
|
10570
|
0 |
0 |
if ($birth_id_t and $birth_id_t eq $birth_id)
|
|
10605
|
0 |
0 |
unless @parts
|
|
10612
|
0 |
0 |
if (@parts == 1)
|
|
10617
|
0 |
0 |
unless ($word and $word =~ /^[\w\-]+$/)
|
|
10621
|
0 |
0 |
if ($K_unique_key{$word})
|
|
10631
|
0 |
0 |
unless defined $K_unique_key{$key}
|
|
10634
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq "(")
|
|
10637
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq $subname)
|
|
10662
|
0 |
0 |
unless $hash_id
|
|
10664
|
0 |
0 |
if $count == 1
|
|
10666
|
0 |
0 |
if $K_unique_key{$key}
|
|
10677
|
0 |
0 |
if $total_count <= 1
|
|
10681
|
0 |
0 |
unless $unique_count_pre_q
|
|
10683
|
0 |
0 |
unless (defined $unique_count_post_q)
|
|
10719
|
0 |
0 |
unless $hash_id
|
|
10720
|
0 |
0 |
unless $delete_this_id{$hash_id}
|
|
10721
|
0 |
0 |
if ($K_unique_key{$key})
|
|
10724
|
0 |
0 |
unless %K_unique_key
|
|
10732
|
0 |
0 |
if ($rmodules)
|
|
10739
|
0 |
0 |
if (index($module_seen, $module) == 0)
|
|
10747
|
0 |
0 |
unless $K_unique_key{$key}
|
|
10750
|
0 |
0 |
if ($rOpts_warn_unique_keys_cutoff <= 1)
|
|
10755
|
0 |
0 |
if (not $hash_id or $hash_id eq 1)
|
|
10761
|
0 |
0 |
if ($key eq uc $key)
|
|
10766
|
0 |
0 |
if ($key eq "tests")
|
|
10773
|
0 |
0 |
if (@debug_output)
|
|
10797
|
0 |
0 |
unless (ref $rlist)
|
|
10802
|
0 |
0 |
if ($K_unique_key{$word})
|
|
10805
|
0 |
0 |
if ($missing_GetOptions_keys and not $word =~ /^\w[\w\-]*$/ and not $word =~ /\s/)
|
|
10822
|
0 |
0 |
unless defined $Ktest
|
|
10826
|
0 |
0 |
unless $type eq "w" or $type eq "Q"
|
|
10829
|
0 |
0 |
if (@mw_list and $mw_list[-1] eq $Ktest)
|
|
10833
|
0 |
0 |
if $Ktest <= 0
|
|
10835
|
0 |
0 |
if ($type eq "b")
|
|
10839
|
0 |
0 |
if ($type eq "#")
|
|
10842
|
0 |
0 |
if ($type eq "b")
|
|
10847
|
0 |
0 |
if ($type eq "L")
|
|
10848
|
0 |
0 |
if ($type eq ",")
|
|
10849
|
0 |
0 |
if (@stack and $stack[-1]{'_slice_name'})
|
|
10885
|
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 ';') { }
|
|
10889
|
0 |
0 |
if $type ne "#"
|
|
10898
|
0 |
0 |
unless ($seqno)
|
|
10906
|
0 |
0 |
if ($type eq "L")
|
|
10909
|
0 |
0 |
defined $KK_last_nb ? :
|
|
10913
|
0 |
0 |
if ($type_last eq "t")
|
|
10917
|
0 |
0 |
if ($Kn and $Kc and $Kn == $Kc and $Kc > $K_end_skip)
|
|
10924
|
0 |
0 |
if ($rtype_count->{','})
|
|
10938
|
0 |
0 |
unless ($seqno)
|
|
10944
|
0 |
0 |
if ($type eq "R")
|
|
10945
|
0 |
0 |
if (&$is_static_hash_key($KK_last_nb))
|
|
10946
|
0 |
0 |
if $KK_last_nb > $K_end_skip
|
|
10951
|
0 |
0 |
if (not $item or $item->{'_seqno'} != $seqno)
|
|
10967
|
0 |
0 |
if (@stack and $stack[-1]{'_slice_name'})
|
|
10968
|
0 |
0 |
if (&$is_static_hash_key($KK_last_nb))
|
|
10969
|
0 |
0 |
if $KK_last_nb > $K_end_skip
|
|
10978
|
0 |
0 |
if ($token eq "use" or $token eq "require")
|
|
10980
|
0 |
0 |
unless (defined $Kn)
|
|
10988
|
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') { }
|
|
11001
|
0 |
0 |
unless (defined $Kn)
|
|
11006
|
0 |
0 |
if ($seqno_n) { }
|
|
11009
|
0 |
0 |
if ($rLL->[$Kn][4] eq '{') { }
|
|
11038
|
0 |
0 |
@stack ? :
|
|
11045
|
0 |
0 |
if (not defined $KK_last_nb or $rLL->[$KK_last_nb][6] ne "q")
|
|
11060
|
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') { }
|
|
11062
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
11074
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
11079
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq "Q")
|
|
11085
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq ",")
|
|
11108
|
0 |
0 |
if ($is_GetOptions_call_by_seqno{$parent_seqno}) { }
|
|
11112
|
0 |
0 |
if $KK_last_nb > $K_end_skip
|
|
11129
|
0 |
0 |
if (is_interpolated_here_doc($token))
|
|
11145
|
0 |
0 |
if (defined $rcall_type->{'all'})
|
|
11151
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[1] <=> $Perl::Tidy::Formatter::b->[1]
|
|
11161
|
0 |
0 |
if (defined $rcall_type->{'similar'})
|
|
11168
|
0 |
0 |
unless defined $rcall_type->{'unique'}
|
|
11188
|
0 |
0 |
if $count != 1
|
|
11191
|
0 |
0 |
if (&$is_known_key($key))
|
|
11200
|
0 |
0 |
unless %K_unique_key
|
|
11205
|
0 |
0 |
if (@Q_list)
|
|
11217
|
0 |
0 |
unless ($is_qwaf_Q)
|
|
11218
|
0 |
0 |
if length $string < 2
|
|
11220
|
0 |
0 |
if ($ch1 eq '"') { }
|
|
|
0 |
0 |
elsif ($ch1 eq q[']) { }
|
|
11230
|
0 |
0 |
unless defined $rQ_info
|
|
11237
|
0 |
0 |
if ($Kend > $K)
|
|
11247
|
0 |
0 |
$is_qwaf_Q ? :
|
|
11249
|
0 |
0 |
if ($is_interpolated)
|
|
11252
|
0 |
0 |
if ($K_unique_key{$key})
|
|
11259
|
0 |
0 |
unless ($is_multiline)
|
|
11265
|
0 |
0 |
unless %K_unique_key
|
|
11268
|
0 |
0 |
if (@mw_list)
|
|
11271
|
0 |
0 |
if ($K_unique_key{$word})
|
|
11277
|
0 |
0 |
unless %K_unique_key
|
|
11281
|
0 |
0 |
if ($K_unique_key{$key})
|
|
11286
|
0 |
0 |
unless %K_unique_key
|
|
11293
|
0 |
0 |
if ($ch1 eq "'" or $ch1 eq "\"")
|
|
11297
|
0 |
0 |
if ($K_unique_key{$word})
|
|
11302
|
0 |
0 |
unless ($word =~ /^\w[\w\-]*$/ or $word =~ /\s/)
|
|
11309
|
0 |
0 |
unless %K_unique_key
|
|
11312
|
0 |
0 |
if ($Getopt_Std_hash_id and $saw_Getopt_Std)
|
|
11318
|
0 |
0 |
if ($ch1 eq "'" or $ch1 eq "\"")
|
|
11324
|
0 |
0 |
if ($K_unique_key{$letter})
|
|
11332
|
0 |
0 |
unless (@Q_getopts)
|
|
11334
|
0 |
0 |
if length $key != 1
|
|
11335
|
0 |
0 |
unless $key =~ /[A-Za-z\?]/
|
|
11348
|
0 |
0 |
unless %K_unique_key
|
|
11353
|
0 |
0 |
unless (defined $rlist)
|
|
11356
|
0 |
0 |
if (defined $Kqw and $Kqw >= 0 and $Kqw <= $Klimit)
|
|
11374
|
0 |
0 |
unless %K_unique_key
|
|
11381
|
0 |
0 |
unless %K_unique_key
|
|
11392
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[1] <=> $Perl::Tidy::Formatter::b->[1]
|
|
11412
|
0 |
0 |
if ($output_string)
|
|
11434
|
0 |
0 |
if $rOpts->{$wsk_key}
|
|
11435
|
0 |
0 |
if $rOpts->{$wuk_key}
|
|
11441
|
0 |
0 |
if ($output_string)
|
|
11452
|
0 |
0 |
if ($output_string)
|
|
11481
|
0 |
0 |
if ($max_diff <= 0)
|
|
11488
|
0 |
0 |
if (lc $s1 eq lc $s2)
|
|
11498
|
0 |
0 |
if ($odiff > 0) { }
|
|
|
0 |
0 |
elsif ($odiff < 0) { }
|
|
11515
|
0 |
0 |
if ($len1 > $len2) { }
|
|
|
0 |
0 |
elsif ($len2 > $len1) { }
|
|
11538
|
0 |
0 |
if ($posm and $pos < $posm)
|
|
11550
|
0 |
0 |
if ($posm and $posm + 1 == $pos)
|
|
11553
|
0 |
0 |
if ($c1m eq $c2p) { }
|
|
11556
|
0 |
0 |
if ($c1p eq $c2m) { }
|
|
11562
|
0 |
0 |
if ($pad1 > 0 and $c1p eq substr($s2, $pos, 1))
|
|
11581
|
0 |
0 |
if ($c1p eq $c2m and $pad2 > 0 and $c2p eq substr($s1, $pos, 1))
|
|
11602
|
0 |
0 |
if ($diff_inc and $saw_change{$c1p . $c2p}++)
|
|
11605
|
0 |
0 |
if (not $saw_case_change and lc $c1p eq lc $c2p)
|
|
11613
|
0 |
0 |
if ($diff_inc)
|
|
11614
|
0 |
0 |
if ($diff_count > $max_diff)
|
|
11639
|
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'}
|
|
11651
|
0 |
0 |
$reverse ? :
|
|
11656
|
0 |
0 |
if $first_letter ne $rword_info->{$word2}{'first_letter'}
|
|
11658
|
0 |
0 |
if $rword_info->{$word2}{'string_length'} - $word_length > $max_diff
|
|
11663
|
0 |
0 |
if ($reverse)
|
|
11665
|
0 |
0 |
if $last_letter eq $rword_info->{$word2}{'last_letter'}
|
|
11669
|
0 |
0 |
if ($birth_id1)
|
|
11672
|
0 |
0 |
if $birth_id2 and $birth_id2 eq $birth_id1
|
|
11679
|
0 |
0 |
if ($diff_count)
|
|
11682
|
0 |
0 |
$reverse ? :
|
|
11683
|
0 |
0 |
$reverse ? :
|
|
11684
|
0 |
0 |
if ($count2 < $count1)
|
|
11717
|
0 |
0 |
unless $rhash_key_trove
|
|
11734
|
0 |
0 |
if $string_length < $min_len
|
|
11737
|
0 |
0 |
unless (defined $birth_id)
|
|
11742
|
0 |
0 |
if ($word =~ /([^\W_])/g)
|
|
11756
|
0 |
0 |
if ($drow =~ /([^\W_])/g)
|
|
11781
|
0 |
0 |
if ($max_diff > 1)
|
|
11796
|
0 |
0 |
if ($num_skipped > 0)
|
|
11809
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[4] <=> $Perl::Tidy::Formatter::b->[4]
|
|
11820
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->[4] <=> $Perl::Tidy::Formatter::b->[4] or $Perl::Tidy::Formatter::a->[6] <=> $Perl::Tidy::Formatter::b->[6]
|
|
11831
|
0 |
0 |
if (@word_pairs)
|
|
11849
|
0 |
0 |
if ($output_string)
|
|
11869
|
0 |
0 |
if ($output_string)
|
|
11899
|
0 |
0 |
if (defined $rOpts_dump_block_types)
|
|
11904
|
0 |
0 |
if (length $_ > 1 and substr($_, -1, 1) eq '+') { }
|
|
11938
|
0 |
0 |
unless @all_blocks
|
|
11950
|
0 |
0 |
unless (defined $rOpts_dump_block_minimum_lines)
|
|
11974
|
0 |
0 |
if (defined $code_lines_open and defined $code_lines_close)
|
|
11982
|
0 |
0 |
if (defined $comment_lines_open and defined $comment_lines_close)
|
|
11990
|
0 |
0 |
if (defined $mccabe_opening and defined $mccabe_closing)
|
|
11995
|
0 |
0 |
if (substr($item->{'type'}, 0, 4) eq "asub")
|
|
12012
|
0 |
0 |
if ($code_lines < $rOpts_dump_block_minimum_lines)
|
|
12021
|
0 |
0 |
if ($seqno and substr($item->{'type'}, 0, 3) eq "sub")
|
|
12023
|
0 |
0 |
if ($asub_count)
|
|
12031
|
0 |
0 |
if ($seqno and $ris_method_block->{$seqno})
|
|
12056
|
0 |
0 |
unless @{$routput_lines;}
|
|
12120
|
4 |
644 |
unless defined $Klimit
|
|
12167
|
0 |
114 |
unless defined $Kc
|
|
12171
|
0 |
114 |
unless defined $Kcn
|
|
12173
|
80 |
34 |
if $seqno_n
|
|
12177
|
0 |
34 |
unless defined $Knn
|
|
12179
|
7 |
27 |
unless $seqno_nn
|
|
12181
|
14 |
13 |
unless $K_nno and $K_nno == $Knn
|
|
12184
|
6 |
7 |
if ($block_type)
|
|
12200
|
0 |
193 |
unless defined $Km
|
|
12202
|
0 |
186 |
if ($rLL->[$Kt][6] eq "#")
|
|
12216
|
0 |
3 |
if ($ci_last == 0 or $last_token ne "}" or $last_type ne "}")
|
|
12225
|
2 |
1 |
if ($rLL->[$KK_last][4] ne $last_token)
|
|
12227
|
0 |
2 |
unless $KK_last
|
|
12228
|
0 |
2 |
if ($rLL->[$KK_last][4] ne $last_token)
|
|
12237
|
0 |
3 |
unless $seqno
|
|
12239
|
3 |
0 |
if ($block_type and $is_block_with_ci{$block_type})
|
|
12266
|
25604 |
42651 |
if (($type = $rtoken_K->[6]) eq "b")
|
|
12277
|
1207 |
41444 |
if ($type eq "#")
|
|
12288
|
4 |
1203 |
if ($parent_container_type eq "Ternary")
|
|
12290
|
4 |
0 |
if ($Kn)
|
|
12292
|
4 |
0 |
if ($is_ternary{$type_kn})
|
|
12296
|
4 |
0 |
if ($Kn == $rparent->{'_Kc'})
|
|
12308
|
20 |
0 |
if ($ci_this and !$rparent->{'_ci_close'} || !$rparent->{'_ci_open_next'} && ($rparent->{'_comma_count'} || $last_type eq ',' || $is_closing_type{$last_type}))
|
|
12324
|
39 |
0 |
if ($rK_range)
|
|
12325
|
13 |
26 |
if (defined $Kfirst and $Kfirst == $KK)
|
|
12329
|
13 |
0 |
unless $Kn
|
|
12331
|
0 |
0 |
if ($Kn and $Kc and $Kn == $Kc || $rLL->[$Kn][6] eq ',' && $want_break_before_comma && $parent_container_type eq 'List')
|
|
12359
|
0 |
0 |
if ($level_Kc < $level_KK and not $is_HSC)
|
|
12388
|
10902 |
30542 |
if ($rtoken_K->[7]) { }
|
|
|
3138 |
27404 |
elsif ($type eq ';' or $type eq 'J' or $type eq 'f') { }
|
|
|
3242 |
24162 |
elsif ($type eq 'k') { }
|
|
|
3708 |
20454 |
elsif ($type eq ',') { }
|
|
12395
|
5451 |
5451 |
if ($is_opening_sequence_token{$token}) { }
|
|
12407
|
193 |
5258 |
$type eq '?' ? :
|
|
12411
|
5451 |
0 |
if ($KK < $Klimit)
|
|
12413
|
3606 |
1845 |
if ($rLL->[$Kn][6] eq "b" and $Kn < $Klimit)
|
|
12420
|
5311 |
140 |
if ($Kc and $Kc < $Klimit)
|
|
12422
|
2665 |
2646 |
if ($rLL->[$Kcn][6] eq "b" and $Kcn < $Klimit)
|
|
12425
|
108 |
5203 |
if ($rLL->[$Kcn][6] eq "#")
|
|
12430
|
5451 |
0 |
$Kn ? :
|
|
12438
|
4574 |
877 |
if ($opening_level_jump > 0)
|
|
12444
|
2197 |
3254 |
if ($rtype_count)
|
|
12452
|
452 |
1745 |
if ($semicolon_count and $semicolon_count == 1)
|
|
12454
|
432 |
20 |
if ($rLL->[$Kcm][6] eq ";")
|
|
12466
|
1112 |
4339 |
if ($block_type) { }
|
|
|
193 |
4146 |
elsif ($type eq '?') { }
|
|
12477
|
600 |
512 |
unless ($no_semicolon)
|
|
12484
|
369 |
231 |
if ($is_block_with_ci{$block_type})
|
|
12486
|
6 |
363 |
if ($parent_seqno != 1 and not $rparent->{'_comma_count'} and not $rparent->{'_semicolon_count'} and &$map_block_follows($seqno)) { }
|
|
12498
|
0 |
6 |
if ($ci_last)
|
|
12508
|
208 |
392 |
if (not $ci_close and $Kcn)
|
|
12511
|
1 |
50 |
if ($type_kcn =~ /^(\.|\&\&|\|\|)$/ or $type_kcn eq "k" and $is_and_or{$token_kcn})
|
|
12519
|
1104 |
8 |
if ($rparent->{'_container_type'} ne "Ternary")
|
|
12531
|
55 |
138 |
if ($rparent->{'_container_type'} eq "List" and not $rparent->{'_ci_open_next'})
|
|
12540
|
193 |
0 |
unless ($opening_level_jump)
|
|
12557
|
2152 |
1994 |
if (not $is_logical and $token eq "(")
|
|
12561
|
518 |
1634 |
if ($last_type eq 'k') { }
|
|
|
685 |
949 |
elsif ($last_type eq 'i' and defined $Kcn) { }
|
|
|
61 |
888 |
elsif ($last_token eq '(') { }
|
|
12565
|
29 |
489 |
if ($last_token eq "for")
|
|
12575
|
43 |
642 |
if ($seqno_kcn and $type_kcn eq "{")
|
|
12590
|
0 |
706 |
unless defined $Km
|
|
12591
|
639 |
67 |
unless $rLL->[$Km][6] eq "k"
|
|
12593
|
21 |
46 |
if $tok eq "my"
|
|
12611
|
793 |
3353 |
if ($is_logical) { }
|
|
12615
|
6 |
787 |
if ($last_type eq "!")
|
|
12622
|
440 |
353 |
if ($type eq "[" and 1)
|
|
12627
|
9 |
431 |
if ($last_type eq "}")
|
|
12632
|
353 |
440 |
if ($opening_level_jump)
|
|
12646
|
2005 |
1348 |
if ($rparent->{'_container_type'} eq 'Block') { }
|
|
12649
|
2004 |
1 |
if (defined $Kcn)
|
|
12652
|
60 |
1944 |
if ($closing_level_jump < 0)
|
|
12661
|
675 |
673 |
unless ($rparent->{'_comma_count'})
|
|
12667
|
20 |
83 |
if ($ci_close_next != $ci_close and defined $Kcn and $bin_op_type{$rLL->[$Kcn][6]})
|
|
12675
|
55 |
1293 |
if ($rparent->{'_container_type'} eq "Ternary")
|
|
12681
|
0 |
3353 |
if ($token ne "(" and $last_type eq "}")
|
|
12692
|
871 |
953 |
if ($type eq "{" and $token ne "(" and $is_list_end_type{$last_type} and not $ris_asub_block->{$seqno})
|
|
12705
|
0 |
5451 |
if ($ci_close < $ci_this)
|
|
12728
|
0 |
5451 |
if ($seqno_test ne $seqno)
|
|
12742
|
5451 |
0 |
if (@{$rstack;}) { }
|
|
12755
|
215 |
3802 |
if ($ci_this > 0 and not $ci_open_old and not $rparent->{'_ci_close'})
|
|
12758
|
5 |
29 |
if ($Kc and $Kn and $Kc == $Kn)
|
|
12772
|
1511 |
1627 |
if ($is_closing_type{$last_type})
|
|
12780
|
1 |
3241 |
if (substr($token, 0, 6) eq "format")
|
|
12792
|
3478 |
230 |
if ($rparent->{'_container_type'} eq "List")
|
|
12851
|
3 |
474 |
if ($ci_last > 0 and $last_token eq "}" and $last_type eq "}")
|
|
12892
|
0 |
1 |
unless %maximum_field_count_control_hash
|
|
12902
|
0 |
4 |
unless (defined $K_opening)
|
|
12909
|
0 |
4 |
unless $rpacked_flags
|
|
12911
|
0 |
4 |
if ($flag)
|
|
12913
|
0 |
0 |
unless $match
|
|
12916
|
0 |
4 |
unless $rtype_count
|
|
12918
|
4 |
0 |
if ($comma_count and $comma_count >= $max)
|
|
12952
|
1 |
647 |
if ($Inverted_skip_mode)
|
|
12979
|
0 |
1 |
if (not defined $token or substr($token, 0, 1) ne "#")
|
|
12983
|
1 |
0 |
if ($rOpts_skip_formatting_except_id eq "*" or $token =~ /\s+id=(\w+)/ and $1 eq $rOpts_skip_formatting_except_id)
|
|
12999
|
2 |
1 |
if ($early_FS_end_marker and $rOpts_detect_format_skipping_from_start and $rOpts_format_skipping)
|
|
13003
|
2 |
0 |
if (not $Inverted_skip_mode) { }
|
|
13004
|
2 |
0 |
unless ($In_format_skipping_section)
|
|
13012
|
0 |
0 |
if ($In_format_skipping_section)
|
|
13058
|
196 |
8772 |
if ($line_type ne "CODE")
|
|
13066
|
7732 |
1040 |
defined $Kfirst ? :
|
|
13069
|
1245 |
7527 |
if ($jmax >= 0 and $rLL->[$Klast][6] eq "#")
|
|
13070
|
882 |
363 |
if ($jmax == 0) { }
|
|
13077
|
882 |
7890 |
if ($is_block_comment)
|
|
13080
|
17 |
865 |
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 |
845 |
elsif (substr($rLL->[$Kfirst][4], 0, 4) eq '#>>>' || $rOpts_format_skipping_end and $rOpts_format_skipping and ($rLL->[$Kfirst][4] . ' ') =~ /$format_skipping_pattern_end/) { }
|
|
13099
|
16 |
1 |
if (not $In_format_skipping_section) { }
|
|
13102
|
16 |
0 |
if (not $Inverted_skip_mode) { }
|
|
13114
|
1 |
0 |
if ($Inverted_skip_mode) { }
|
|
13145
|
18 |
2 |
if ($In_format_skipping_section) { }
|
|
13146
|
18 |
0 |
if (not $Inverted_skip_mode) { }
|
|
13165
|
1 |
1 |
if ($Inverted_skip_mode) { }
|
|
13186
|
96 |
8658 |
if ($In_format_skipping_section)
|
|
13194
|
58 |
8600 |
if ($line_of_tokens->{'_starting_in_quote'})
|
|
13198
|
37 |
21 |
if ($jmax <= 0)
|
|
13199
|
0 |
37 |
if ($self->[81] and $input_line =~ /\t/)
|
|
13209
|
148 |
8473 |
if ($jmax > 0 and $rLL->[$Klast][6] eq "b")
|
|
13216
|
1034 |
7587 |
if ($jmax < 0)
|
|
13224
|
845 |
6742 |
if ($is_block_comment)
|
|
13229
|
24 |
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/)
|
|
13248
|
2 |
843 |
if ($no_leading_space and $input_line =~ /^\# \s*
|
|
13260
|
67 |
9 |
if ($last_line_had_side_comment and not $no_leading_space and not $is_static_block_comment)
|
|
13268
|
28 |
39 |
if ($last_CODE_type eq "HSC")
|
|
13275
|
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/)
|
|
13295
|
35 |
2 |
if $rLL->[$K_penult][6] eq "b"
|
|
13302
|
37 |
0 |
unless ($follows_csc)
|
|
13310
|
26 |
754 |
if ($is_static_block_comment) { }
|
|
|
0 |
754 |
elsif ($last_line_had_side_comment and not $rOpts_maximum_consecutive_blank_lines and $rLL->[$Kfirst][3] > 0) { }
|
|
13311
|
14 |
12 |
$no_leading_space ? :
|
|
13334
|
12 |
6730 |
if ($rOpts_indent_only)
|
|
13339
|
64 |
6666 |
unless ($rOpts_add_newlines)
|
|
13365
|
4 |
6662 |
if (not $Saw_VERSION_in_this_file and $jmax < 80 and $input_line =~ /^[^;]*;?[^;]*([\$*])(([\w\:\']*)\bVERSION)\b.*\=/)
|
|
13383
|
428 |
8540 |
if ($has_side_comment)
|
|
13417
|
0 |
0 |
unless defined $K_paren
|
|
13419
|
0 |
0 |
unless $token_paren eq "("
|
|
13426
|
0 |
0 |
unless $K_n
|
|
13432
|
0 |
0 |
if ($K_n != $K_paren)
|
|
13435
|
0 |
0 |
if ($is_for_foreach{$token_KK})
|
|
13440
|
0 |
0 |
if ($type_K_n eq "k")
|
|
13441
|
0 |
0 |
if ($is_my_state_our{$token_K_n}) { }
|
|
13449
|
0 |
0 |
if ($K_n and $K_n != $K_paren and $rLL->[$K_n][6] eq "i")
|
|
13459
|
0 |
0 |
unless $K_n and $K_n == $K_paren
|
|
13466
|
0 |
0 |
unless $K_brace
|
|
13470
|
0 |
0 |
if ($rLL->[$K_brace][4] eq "(" and not $K_end_iterator and $is_for_foreach{$token_KK})
|
|
13474
|
0 |
0 |
unless ($saw_my)
|
|
13477
|
0 |
0 |
unless $K_test
|
|
13479
|
0 |
0 |
unless $K_brace
|
|
13482
|
0 |
0 |
unless $rLL->[$K_brace][4] eq "{"
|
|
13484
|
0 |
0 |
unless $seqno_brace
|
|
13488
|
0 |
0 |
if ($block_type ne $token_KK)
|
|
13508
|
0 |
0 |
unless defined $Klast
|
|
13513
|
0 |
0 |
unless defined $rK_package_list and @{$rK_package_list;}
|
|
13525
|
0 |
0 |
if ($type eq "b")
|
|
13532
|
0 |
0 |
if ($type ne "P")
|
|
13537
|
0 |
0 |
unless $level == 0
|
|
13541
|
0 |
0 |
if (@{$rK_package_list;} > 1)
|
|
13548
|
0 |
0 |
if ($rLL->[$Ktest][6] eq "b")
|
|
13549
|
0 |
0 |
if ($Ktest > $KK and $Ktest and $rLL->[$Ktest][6] eq ";")
|
|
13551
|
0 |
0 |
if ($K1 and $rLL->[$K1][4] eq 1)
|
|
13585
|
0 |
0 |
if ($pos_dot > 0)
|
|
13589
|
0 |
0 |
if (defined $file_extension and length $file_extension and $file_extension =~ /^\d+$/)
|
|
13595
|
0 |
0 |
if ($pos_dot > 0)
|
|
13600
|
0 |
0 |
if $is_standard_file_extension{lc $file_extension}
|
|
13607
|
0 |
0 |
unless @{$rLL;}
|
|
13609
|
0 |
0 |
if $sil
|
|
13614
|
0 |
0 |
if $self->has_complete_package
|
|
13621
|
0 |
0 |
unless $line_count
|
|
13631
|
0 |
0 |
if $rkeyword_count->{'use'}
|
|
13632
|
0 |
0 |
if $rkeyword_count->{'require'}
|
|
13638
|
0 |
0 |
if $saw_hash_bang or $self->[73] or $saw_package
|
|
13643
|
0 |
0 |
$use_count > 0 ? :
|
|
|
0 |
0 |
$use_count > 1 ? :
|
|
13649
|
0 |
0 |
$line_count > 25 ? :
|
|
|
0 |
0 |
$line_count > 50 ? :
|
|
13653
|
0 |
0 |
$sub_count > 0 ? :
|
|
|
0 |
0 |
$sub_count > 1 ? :
|
|
13660
|
0 |
0 |
if ($rkeyword_count->{$_})
|
|
13663
|
0 |
0 |
if $rline_type_count->{'POD'}
|
|
13666
|
0 |
0 |
if $self->[74]
|
|
13668
|
0 |
0 |
if ($score >= 100)
|
|
13684
|
0 |
0 |
unless defined $Kn
|
|
13686
|
0 |
0 |
unless $type_n eq "q"
|
|
13694
|
0 |
0 |
if $type_nn eq "b"
|
|
13695
|
0 |
0 |
if $type_nn ne "q"
|
|
13721
|
0 |
0 |
unless defined $Kbeg
|
|
13731
|
0 |
0 |
if $type eq "b"
|
|
13732
|
0 |
0 |
if $type eq "#"
|
|
13733
|
0 |
0 |
if $type eq ","
|
|
13734
|
0 |
0 |
if $type eq ";"
|
|
13735
|
0 |
0 |
if $token eq "}"
|
|
13736
|
0 |
0 |
if $token eq "("
|
|
13737
|
0 |
0 |
if ($token eq ")")
|
|
13739
|
0 |
0 |
if ($type eq 'q') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
|
0 |
0 |
elsif ($type eq 'U') { }
|
|
13743
|
0 |
0 |
unless defined $K_last_q
|
|
13744
|
0 |
0 |
if ($K_last_q > $Kn)
|
|
13749
|
0 |
0 |
if ($is_qwaf_Q) { }
|
|
|
0 |
0 |
elsif (length $token > 2) { }
|
|
13754
|
0 |
0 |
if ($ch0 eq '"' or $ch0 eq q[']) { }
|
|
13759
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
13768
|
0 |
0 |
if (defined $name)
|
|
13771
|
0 |
0 |
if ($token eq "qw")
|
|
13773
|
0 |
0 |
if not defined $Kn or $rLL->[$Kn][4] ne "("
|
|
13775
|
0 |
0 |
unless defined $seqno
|
|
13776
|
0 |
0 |
unless $self->[95]{$seqno}
|
|
13807
|
0 |
0 |
unless $Kn and $rLL->[$Kn][6] eq "="
|
|
13811
|
0 |
0 |
unless $Kn
|
|
13815
|
0 |
0 |
unless $rlist
|
|
13854
|
0 |
0 |
unless defined $self->K_first_code
|
|
13866
|
0 |
0 |
unless (defined $roption)
|
|
13874
|
0 |
0 |
unless $roption->{$letter}
|
|
13926
|
0 |
0 |
unless (defined $rvars)
|
|
13986
|
0 |
0 |
if ($name =~ /^(\W+)(\w+)$/) { }
|
|
14000
|
0 |
0 |
if ($check_sigil) { }
|
|
|
0 |
0 |
elsif ($check_reused) { }
|
|
14001
|
0 |
0 |
if ($check_reused) { }
|
|
14006
|
0 |
0 |
if ($sig ne $sigil)
|
|
14018
|
0 |
0 |
if (@sigils_to_test)
|
|
14026
|
0 |
0 |
defined $item->{'seqno'} ? :
|
|
14031
|
0 |
0 |
unless $rhash->{$test_name}
|
|
14036
|
0 |
0 |
if ($sig eq $sigil) { }
|
|
14037
|
0 |
0 |
defined $my_keyword && ($my_keyword eq 'for' || $my_keyword eq 'foreach') ? :
|
|
14084
|
0 |
0 |
if ($true_name)
|
|
14087
|
0 |
0 |
if ($in_signature_seqno)
|
|
14091
|
0 |
0 |
if $parent != $in_signature_seqno
|
|
14095
|
0 |
0 |
unless $Kp
|
|
14098
|
0 |
0 |
if $type_p ne "," and $token_p ne "("
|
|
14102
|
0 |
0 |
if $bad_name
|
|
14105
|
0 |
0 |
unless (defined $my_keyword)
|
|
14142
|
0 |
0 |
unless $check_unused
|
|
14144
|
0 |
0 |
unless defined $sigil_string and defined $word
|
|
14147
|
0 |
0 |
unless $is_valid_sigil{$sigil}
|
|
14163
|
0 |
0 |
if ($bracket and length $sigil_string == 1)
|
|
14164
|
0 |
0 |
if ($bracket eq '{') { }
|
|
|
0 |
0 |
elsif ($bracket eq '[') { }
|
|
14172
|
0 |
0 |
if ($rvars->{$name})
|
|
14186
|
0 |
0 |
unless defined $word
|
|
14202
|
0 |
0 |
unless $package
|
|
14212
|
0 |
0 |
unless $Kn
|
|
14214
|
0 |
0 |
unless $rlist
|
|
14219
|
0 |
0 |
if $bad_name
|
|
14235
|
0 |
0 |
unless $Kn
|
|
14240
|
0 |
0 |
if ($type_n eq "n" or $type_n eq "v")
|
|
14248
|
0 |
0 |
if ($type_n eq "U" and $token_n eq "qw")
|
|
14255
|
0 |
0 |
if ($token_n eq "(")
|
|
14262
|
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 ';') { }
|
|
14271
|
0 |
0 |
if ($is_qwaf_Q) { }
|
|
|
0 |
0 |
elsif (length $token_n > 2) { }
|
|
14276
|
0 |
0 |
if ($ch0 eq '"' or $ch0 eq q[']) { }
|
|
14281
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
14290
|
0 |
0 |
if defined $name
|
|
14296
|
0 |
0 |
if ($token_n =~ /qw\s*.(\w+)/)
|
|
14307
|
0 |
0 |
unless $seqno_n
|
|
14309
|
0 |
0 |
unless $Kc
|
|
14320
|
0 |
0 |
if $type eq "b" or $type eq "#"
|
|
14322
|
0 |
0 |
if $level > $level_start
|
|
14323
|
0 |
0 |
if ($level < $level_start)
|
|
14330
|
0 |
0 |
if ($last_type eq ',' and not $total_comma_count % 2) { }
|
|
14331
|
0 |
0 |
if ($type eq 'w') { }
|
|
|
0 |
0 |
elsif ($type eq 'Q') { }
|
|
14335
|
0 |
0 |
if (length $token < 3)
|
|
14338
|
0 |
0 |
if ($ch0 eq '"' or $ch0 eq q[']) { }
|
|
14343
|
0 |
0 |
if (defined $rQ_info and $rQ_info->{'is_simple'})
|
|
14359
|
0 |
0 |
if ($type eq "," or $type eq "=>")
|
|
14385
|
0 |
0 |
unless (defined $word)
|
|
14388
|
0 |
0 |
if ($pos >= 0)
|
|
14389
|
0 |
0 |
$pos > 0 ? :
|
|
14392
|
0 |
0 |
unless defined $rconstant_hash->{$package}
|
|
14394
|
0 |
0 |
unless defined $rvars
|
|
14395
|
0 |
0 |
if $KK <= $rvars->{'K'}
|
|
14412
|
0 |
0 |
unless ($count)
|
|
14418
|
0 |
0 |
if $keyword eq "our" or $keyword eq "use vars"
|
|
14441
|
0 |
0 |
unless $check_unused
|
|
14471
|
0 |
0 |
unless $K_n
|
|
14472
|
0 |
0 |
unless $rLL->[$K_n][6] eq "k"
|
|
14480
|
0 |
0 |
if ($rLL->[$K_n][4] eq 'elsif') { }
|
|
|
0 |
0 |
elsif ($rLL->[$K_n][4] eq 'else') { }
|
|
14493
|
0 |
0 |
if ($K_nn and $is_opening_token{$rLL->[$K_nn][4]})
|
|
14504
|
0 |
0 |
if ($seqno_block and $rblock_type_of_seqno->{$seqno_block})
|
|
14522
|
0 |
0 |
unless $check_unused
|
|
14527
|
0 |
0 |
unless defined $Kp and $rLL->[$Kp][6] eq "t"
|
|
14532
|
0 |
0 |
unless defined $Kn and $rLL->[$Kn][6] eq "w"
|
|
14537
|
0 |
0 |
unless defined $Knn and $rLL->[$Knn][6] eq "R"
|
|
14542
|
0 |
0 |
if (defined $Knnn)
|
|
14544
|
0 |
0 |
if ($next_type eq "L" or $next_type eq "[")
|
|
14576
|
0 |
0 |
unless $rLL->[$Kn][4] eq "("
|
|
14578
|
0 |
0 |
unless $seqno_paren
|
|
14581
|
0 |
0 |
unless $K_opening_brace
|
|
14584
|
0 |
0 |
unless $seqno_brace and $token_brace eq "{"
|
|
14589
|
0 |
0 |
if ($K_opening_brace > $K_end_my)
|
|
14608
|
0 |
0 |
if ($line_type ne "CODE")
|
|
14614
|
0 |
0 |
unless defined $Kfirst
|
|
14621
|
0 |
0 |
if $type eq "b" or $type eq "#"
|
|
14625
|
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') { }
|
|
14627
|
0 |
0 |
if $seqno
|
|
14631
|
0 |
0 |
if ($is_opening_token{$token}) { }
|
|
|
0 |
0 |
elsif ($is_closing_token{$token}) { }
|
|
14634
|
0 |
0 |
if ($block_type)
|
|
14637
|
0 |
0 |
if ($in_signature_seqno and @{$rblock_stack;} and $seqno == $rblock_stack->[-1]{'seqno'})
|
|
14647
|
0 |
0 |
if ($ris_sub_block->{$seqno})
|
|
14653
|
0 |
0 |
if ($type eq "L")
|
|
14661
|
0 |
0 |
if ($is_on_stack) { }
|
|
|
0 |
0 |
elsif ($block_type) { }
|
|
14666
|
0 |
0 |
if ($block_type) { }
|
|
14672
|
0 |
0 |
if ($check_unused and $rpopped_vars)
|
|
14678
|
0 |
0 |
if (@{$rblock_stack;} and $seqno == $rblock_stack->[-1]{'seqno'})
|
|
14689
|
0 |
0 |
if ($check_unused and $rpopped_vars and not $is_if_unless_elsif_else{$block_type})
|
|
14697
|
0 |
0 |
if ($is_if_unless_elsif{$block_type})
|
|
14744
|
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') { }
|
|
14751
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
14759
|
0 |
0 |
if (defined $K_last_code)
|
|
14765
|
0 |
0 |
if ($last_type eq "\\")
|
|
14776
|
0 |
0 |
if ($seqno_brace)
|
|
14785
|
0 |
0 |
if ($K_end_iterator and $K_end_iterator > $K_end_my)
|
|
14814
|
0 |
0 |
if ($KK <= $K_end_my) { }
|
|
|
0 |
0 |
elsif ($check_unused or $check_constant) { }
|
|
14827
|
0 |
0 |
if ($token =~ /^(\W+)?(\w.*)$/)
|
|
14828
|
0 |
0 |
if $1
|
|
14831
|
0 |
0 |
if ($check_constant and $word)
|
|
14834
|
0 |
0 |
if (not $sigil_string or $sigil_string eq '&') { }
|
|
|
0 |
0 |
elsif ($sigil_string eq '@' and index($word, 'EXPORT') != -1) { }
|
|
14846
|
0 |
0 |
if ($pos >= 0)
|
|
14850
|
0 |
0 |
if ($name eq "EXPORT" or $name eq "EXPORT_OK")
|
|
14858
|
0 |
0 |
if ($sigil_string)
|
|
14860
|
0 |
0 |
unless ($is_valid_sigil{$sigil})
|
|
14867
|
0 |
0 |
if ($check_unused and $sigil_string and $word and $word =~ /\w+/)
|
|
14875
|
0 |
0 |
if (defined $Kn)
|
|
14877
|
0 |
0 |
if ($next_type eq "[" or $next_type eq "L")
|
|
14897
|
0 |
0 |
if ($token =~ /^method (\$.+)/)
|
|
14911
|
0 |
0 |
unless ($package)
|
|
14913
|
0 |
0 |
if ($package ne $current_package)
|
|
14920
|
0 |
0 |
if ($check_cross_package and @{$rblock_stack;} == 1)
|
|
14922
|
0 |
0 |
unless (defined $rpackage_warnings)
|
|
14931
|
0 |
0 |
if ($pkg ne $package)
|
|
14958
|
0 |
0 |
if ($check_unused)
|
|
14966
|
0 |
0 |
if (is_interpolated_here_doc($token))
|
|
14979
|
0 |
0 |
if ($KK == $Kfirst and $line_of_tokens->{'_starting_in_quote'}) { }
|
|
14986
|
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) { }
|
|
15003
|
0 |
0 |
if ($interpolated)
|
|
15007
|
0 |
0 |
if ($KK == $Klast and $line_of_tokens->{'_ending_in_quote'}) { }
|
|
15015
|
0 |
0 |
if ($token eq "vars")
|
|
15017
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq "use" and $rLL->[$Kp][6] eq "k")
|
|
15024
|
0 |
0 |
if ($check_constant)
|
|
15025
|
0 |
0 |
if ($token eq 'constant') { }
|
|
15027
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][4] eq 'use' and $rLL->[$Kp][6] eq 'k') { }
|
|
15043
|
0 |
0 |
if ($check_constant)
|
|
15048
|
0 |
0 |
if ($check_constant)
|
|
15070
|
0 |
0 |
if ($is_possible_snippet and $more_u_checks || $more_c_checks)
|
|
15075
|
0 |
0 |
if ($is_possible_snippet == 1 and $self->is_complete_script($rline_type_count, $rkeyword_count)) { }
|
|
15088
|
0 |
0 |
if (@{$rblock_stack;} != 1) { }
|
|
15094
|
0 |
0 |
if ($check_unused)
|
|
15102
|
0 |
0 |
if ($check_constant)
|
|
15107
|
0 |
0 |
unless defined $rhash
|
|
15110
|
0 |
0 |
if $entry->{'count'}
|
|
15127
|
0 |
0 |
if (@warnings_c)
|
|
15133
|
0 |
0 |
unless $rKlist
|
|
15146
|
0 |
0 |
if $rhash and $rhash->{$name}
|
|
15157
|
0 |
0 |
unless $sub_count_by_package{$key}
|
|
15163
|
0 |
0 |
if (@p_warnings)
|
|
15172
|
0 |
0 |
if $seen{$key}++
|
|
15177
|
0 |
0 |
if (@warnings)
|
|
15188
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->{'K'} <=> $Perl::Tidy::Formatter::b->{'K'}
|
|
15195
|
0 |
0 |
unless $_->{'keyword'} ne "our" and $_->{'keyword'} ne "use vars"
|
|
15207
|
0 |
0 |
unless $rlines and @{$rlines;}
|
|
15223
|
0 |
0 |
if ($note)
|
|
15259
|
0 |
1941 |
unless ($rall_opts and @{$rall_opts;})
|
|
15265
|
1941 |
0 |
unless (defined $user_option_string)
|
|
15266
|
647 |
1294 |
unless $user_option_string
|
|
15275
|
0 |
1294 |
unless @opts
|
|
15278
|
1294 |
0 |
if (@opts == 1)
|
|
15283
|
0 |
1294 |
if (length $opt > 1) { }
|
|
|
1294 |
0 |
elsif ($opt eq '*' or $opt eq '1') { }
|
|
|
0 |
0 |
elsif ($opt eq '0') { }
|
|
15300
|
5823 |
0 |
if ($is_valid_option{$opt})
|
|
15306
|
0 |
0 |
if ($opt =~ /^[01\*]$/) { }
|
|
15314
|
0 |
1294 |
if ($msg)
|
|
15327
|
0 |
1941 |
if ($excluded_names)
|
|
15332
|
0 |
0 |
if ($name =~ /^([\$\@\%\*])?(\w+)?(\*)?$/) { }
|
|
15336
|
0 |
0 |
if (defined $left_star)
|
|
15337
|
0 |
0 |
if ($left_star ne "*")
|
|
15338
|
0 |
0 |
if (defined $key) { }
|
|
15346
|
0 |
0 |
if ($right_star)
|
|
15358
|
0 |
0 |
if $left_star
|
|
15359
|
0 |
0 |
if $right_star
|
|
15360
|
0 |
0 |
if (not defined $key) { }
|
|
15371
|
0 |
0 |
if ($err_msg)
|
|
15397
|
0 |
0 |
if $len_name < $len_key
|
|
15400
|
0 |
0 |
if ($code == 2) { }
|
|
|
0 |
0 |
elsif ($code == 3) { }
|
|
|
0 |
0 |
elsif ($code == 4) { }
|
|
15401
|
0 |
0 |
if (substr($name, -$len_key, $len_key) eq $key)
|
|
15406
|
0 |
0 |
if (substr($name, 0, $len_key) eq $key)
|
|
15411
|
0 |
0 |
if (index($name, $key, 0) != -1)
|
|
15438
|
0 |
647 |
if ($rwarn_variable_types->{'u'} or $rwarn_variable_types->{'c'})
|
|
15444
|
0 |
0 |
if ($line_range_clipped)
|
|
15450
|
0 |
0 |
if ($is_possible_snippet == 1 and $num_files)
|
|
15451
|
0 |
0 |
if ($num_files > 1 or $wvt_in_args and $num_files)
|
|
15475
|
0 |
0 |
if (@{$rwarnings;} and $rexcluded_name_hash)
|
|
15485
|
0 |
0 |
if ($code != 1)
|
|
15490
|
0 |
0 |
if (@excluded_wildcards)
|
|
15494
|
0 |
0 |
if (wildcard_match($name, \@excluded_wildcards))
|
|
15512
|
0 |
0 |
unless %{$rwarn_variable_types;}
|
|
15516
|
0 |
0 |
unless $rwarnings and @{$rwarnings;}
|
|
15529
|
0 |
0 |
if ($note)
|
|
15533
|
0 |
0 |
if ($message_middle)
|
|
15568
|
0 |
0 |
unless $seqno_paren
|
|
15570
|
0 |
0 |
unless $K_closing_paren
|
|
15572
|
0 |
0 |
unless $K_opening_brace
|
|
15578
|
0 |
0 |
unless $seqno_block and $rLL->[$K_opening_brace][4] eq "{" and $self->[8]{$seqno_block}
|
|
15590
|
0 |
0 |
unless $rOpts->{$opt_name}
|
|
15597
|
0 |
0 |
if ($word_list)
|
|
15599
|
0 |
0 |
if (my(@q) = split_words($word_list))
|
|
15628
|
0 |
0 |
if $type_next eq "b"
|
|
15634
|
0 |
0 |
if ($rOpts_qw_as_function)
|
|
15638
|
0 |
0 |
if ($type eq "Q")
|
|
15640
|
0 |
0 |
if ($seqno_p and $ris_qwaf_by_seqno->{$seqno_p})
|
|
15646
|
0 |
0 |
if ($type eq "U" and $token eq "qw")
|
|
15652
|
0 |
0 |
if ($type eq "q")
|
|
15655
|
0 |
0 |
if ($type_last eq "A")
|
|
15656
|
0 |
0 |
if (substr($token, 0, 2) ne "qw")
|
|
15662
|
0 |
0 |
if ($type eq "Q")
|
|
15668
|
0 |
0 |
if ($Q2{$ch2}) { }
|
|
|
0 |
0 |
elsif ($Q1{$ch1}) { }
|
|
15674
|
0 |
0 |
if ($include_all_keywords and $type eq 'k') { }
|
|
|
0 |
0 |
elsif (%dump_keyword_usage_list) { }
|
|
15680
|
0 |
0 |
unless $is_kwU{$type}
|
|
15681
|
0 |
0 |
unless ($dump_keyword_usage_list{$token})
|
|
15684
|
0 |
0 |
if $type ne "U"
|
|
15686
|
0 |
0 |
if $pos <= 0
|
|
15688
|
0 |
0 |
unless $dump_keyword_usage_list{$word}
|
|
15693
|
0 |
0 |
if (not defined $call_counts{$token}) { }
|
|
15721
|
0 |
0 |
unless @line_order
|
|
15754
|
0 |
0 |
unless $rOpts->{$opt_name}
|
|
15772
|
0 |
0 |
unless $is_kwU{$rLL->[$KK][6]}
|
|
15776
|
0 |
0 |
if ($type eq "k" and $skip_keywords{$token})
|
|
15779
|
0 |
0 |
unless defined $Kn
|
|
15782
|
0 |
0 |
if ($token_Kn eq '=>') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '->') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '(') { }
|
|
15788
|
0 |
0 |
if ($have_paren and $is_if_unless_while_until_for_foreach{$token})
|
|
15792
|
0 |
0 |
if $self->block_seqno_of_paren_seqno($seqno)
|
|
15798
|
0 |
0 |
defined $Kc_n ? :
|
|
15799
|
0 |
0 |
unless $is_brace_or_semicolon{$token_n}
|
|
15802
|
0 |
0 |
unless (defined $call_counts{$token})
|
|
15810
|
0 |
0 |
unless $no_count and $yes_count
|
|
15820
|
0 |
0 |
unless @mixed_counts
|
|
15827
|
0 |
0 |
unless lc $Perl::Tidy::Formatter::a->{'type'} cmp lc $Perl::Tidy::Formatter::b->{'type'}
|
|
15856
|
1294 |
0 |
unless defined $opt
|
|
15860
|
0 |
0 |
if (my(@q) = split_words($opt))
|
|
15864
|
0 |
0 |
if (not $word =~ /^(?:\&|\w+)$/ or $word =~ /^\d/)
|
|
15867
|
0 |
0 |
if ($iter and defined $call_paren_style{$word})
|
|
15889
|
0 |
0 |
unless %call_paren_style
|
|
15902
|
0 |
0 |
unless $is_kwU{$rLL->[$KK][6]}
|
|
15910
|
0 |
0 |
unless (defined $want_paren)
|
|
15913
|
0 |
0 |
$type eq 'U' ? :
|
|
|
0 |
0 |
$type eq 'k' ? :
|
|
15916
|
0 |
0 |
unless defined $want_paren
|
|
15920
|
0 |
0 |
unless defined $Kn
|
|
15923
|
0 |
0 |
if ($token_Kn eq '=>') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '->') { }
|
|
|
0 |
0 |
elsif ($token_Kn eq '(') { }
|
|
15925
|
0 |
0 |
if $want_paren
|
|
15926
|
0 |
0 |
unless $want_paren
|
|
15929
|
0 |
0 |
if ($token_Kn eq "(" and $is_if_unless_while_until_for_foreach{$token})
|
|
15933
|
0 |
0 |
if $self->block_seqno_of_paren_seqno($seqno)
|
|
15937
|
0 |
0 |
$want_paren ? :
|
|
15951
|
0 |
0 |
if (@{$rwarnings;})
|
|
15963
|
0 |
0 |
if (length $token_next > 23)
|
|
15969
|
0 |
0 |
if ($ii >= 0)
|
|
15998
|
1 |
647 |
unless $rOpts->{'non-indenting-braces'}
|
|
16000
|
4 |
643 |
unless defined $rLL and @{$rLL;}
|
|
16009
|
0 |
422 |
if ($line_type ne "CODE")
|
|
16017
|
0 |
422 |
if (not defined $Kfirst or $rLL->[$Klast][6] ne "#")
|
|
16023
|
65 |
357 |
if $Klast <= $Kfirst
|
|
16027
|
351 |
6 |
if ($type_m eq "b" and $K_m > $Kfirst)
|
|
16032
|
132 |
225 |
if ($seqno_m)
|
|
16039
|
6 |
107 |
if ($block_type_m and $is_opening_type{$type_m} and $token_sc =~ /$non_indenting_brace_pattern/)
|
|
16061
|
645 |
1 |
unless $rOpts_add or $rOpts_del or $rOpts_warn_and_style
|
|
16107
|
0 |
3 |
unless defined $rLL and @{$rLL;}
|
|
16126
|
0 |
0 |
if ($num_lno <= $num_lim) { }
|
|
16132
|
0 |
0 |
$num_changes == 1 ? :
|
|
16133
|
0 |
0 |
$num_lno == 1 ? :
|
|
16144
|
0 |
3 |
unless (defined $complexity)
|
|
16157
|
15 |
183 |
if $type ne "L" and $type ne "["
|
|
16161
|
0 |
183 |
if $K_m < 0
|
|
16163
|
0 |
183 |
if ($type_m eq "b" and $K_m > 0)
|
|
16177
|
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 '->') { }
|
|
16180
|
12 |
0 |
if (substr($token_m, 0, 1) eq "\$")
|
|
16204
|
0 |
99 |
if $K_mm <= 0
|
|
16206
|
0 |
99 |
if ($type_mm eq "b" and $K_mm > 0)
|
|
16216
|
66 |
117 |
if $type_mm ne "]" and $type_mm ne "R"
|
|
16218
|
0 |
117 |
unless $seqno_mm
|
|
16228
|
6 |
111 |
unless $trailing_arrow_ok_by_seqno{$seqno_mm}
|
|
16232
|
37 |
74 |
if (%interbracket_arrow_style)
|
|
16234
|
0 |
37 |
unless $style
|
|
16236
|
17 |
20 |
if $style == -1 and $type_m ne "->" or $style == 1 and $type_m eq "->"
|
|
16240
|
17 |
23 |
if $type_m eq "->" and not $rOpts_del and not $rOpts_warn
|
|
16241
|
20 |
34 |
if $type_m ne "->" and not $rOpts_add and not $rOpts_warn
|
|
16245
|
0 |
57 |
if (not $complexity) { }
|
|
|
37 |
20 |
elsif ($complexity == 1) { }
|
|
16248
|
0 |
0 |
unless defined $Ko_mm
|
|
16250
|
0 |
0 |
if $rLL->[$KK][6] eq "b"
|
|
16252
|
0 |
0 |
if $count > 1
|
|
16254
|
0 |
0 |
if $count > 1
|
|
16260
|
6 |
31 |
if ($seqno_mm ne $seqno - 1)
|
|
16270
|
20 |
31 |
if ($type_m eq '->') { }
|
|
16271
|
20 |
0 |
if ($rOpts_del)
|
|
16274
|
20 |
0 |
if ($rOpts_del or $rOpts_warn_and_style)
|
|
16277
|
31 |
0 |
if ($rOpts_add)
|
|
16280
|
31 |
0 |
if ($rOpts_add or $rOpts_warn_and_style)
|
|
16284
|
0 |
3 |
if ($rOpts_warn)
|
|
16286
|
0 |
0 |
$rOpts_add ? :
|
|
|
0 |
0 |
if @lno_add
|
|
16288
|
0 |
0 |
$rOpts_del ? :
|
|
|
0 |
0 |
if @lno_del
|
|
16313
|
0 |
43 |
if $rseqno_non_indenting_brace_by_ix->{$ix}
|
|
16319
|
0 |
43 |
if ($line_type ne "CODE")
|
|
16335
|
0 |
43 |
if (not defined $Kfirst or $rLL->[$Klast][6] ne "#" or $Klast <= $Kfirst and $CODE_type ne "HSC")
|
|
16351
|
1 |
42 |
if $CODE_type and not $is_deletable_CODE_type{$CODE_type}
|
|
16357
|
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/
|
|
16365
|
36 |
4 |
if ($rOpts_delete_side_comments)
|
|
16366
|
1 |
35 |
defined $delete_side_comment_exception_pattern && $token =~ /$delete_side_comment_exception_pattern/ ? :
|
|
16372
|
4 |
0 |
if ($rOpts_delete_closing_side_comments and not $delete_side_comment and $Klast > $Kfirst)
|
|
16378
|
4 |
0 |
if ($type_m eq "b" and $K_m > $Kfirst)
|
|
16382
|
1 |
0 |
if (not $seqno_m and $K_m and $rLL->[$K_m][6] eq ";")
|
|
16385
|
0 |
1 |
if ($type_m eq "b" and $K_m > $Kfirst)
|
|
16386
|
0 |
1 |
if ($K_m == $Kfirst)
|
|
16391
|
3 |
1 |
if ($seqno_m)
|
|
16393
|
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/)
|
|
16404
|
2 |
38 |
unless $delete_side_comment
|
|
16416
|
2 |
36 |
if ($CODE_type eq "IO")
|
|
16426
|
9 |
29 |
if ($CODE_type eq "HSC")
|
|
16683
|
3 |
645 |
if ($rOpts->{'indent-only'})
|
|
16693
|
0 |
122 |
$length_function ? :
|
|
16736
|
196 |
8753 |
if ($line_type ne "CODE")
|
|
16740
|
13 |
183 |
if ($line_type eq "HERE_END")
|
|
16742
|
1 |
12 |
if (defined $seqno)
|
|
16743
|
1 |
0 |
unless ($ris_permanently_broken->{$seqno})
|
|
16755
|
1040 |
7713 |
if ($CODE_type eq "BL")
|
|
16757
|
171 |
869 |
if (defined $seqno)
|
|
16759
|
71 |
100 |
if (not $ris_permanently_broken->{$seqno} and $rOpts_maximum_consecutive_blank_lines)
|
|
16771
|
1037 |
7716 |
unless defined $Kfirst
|
|
16785
|
7075 |
641 |
if (defined $last_K_out) { }
|
|
16786
|
0 |
7075 |
if ($Kfirst != $last_K_out + 1)
|
|
16801
|
0 |
641 |
if ($Kfirst != 0 and $last_line_type ne "FS")
|
|
16808
|
986 |
68 |
if ($CODE_type and $CODE_type ne "NIN" and $CODE_type ne "VER")
|
|
16836
|
506 |
6224 |
if ($type_end eq '#' || $type_end eq 'b' and $Klast_old_code > $Kfirst_old)
|
|
16840
|
352 |
154 |
if ($rLL->[$Klast_old_code][6] eq "b" and $Klast_old_code > $Kfirst_old)
|
|
16852
|
6344 |
386 |
if ($last_line_type eq "CODE")
|
|
16853
|
151 |
6193 |
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]))
|
|
16875
|
186 |
6544 |
if ($line_of_tokens->{'_ending_in_quote'})
|
|
16877
|
118 |
68 |
if (defined $seqno)
|
|
16891
|
641 |
4 |
if (@{$rLL_new;})
|
|
16937
|
17612 |
40986 |
if ($type eq "b")
|
|
16943
|
175 |
17437 |
if $KK >= $Klast
|
|
16946
|
21 |
17416 |
if ($rOpts_freeze_whitespace)
|
|
16952
|
779 |
16637 |
if ($ws == -1 or $rOpts_delete_old_whitespace)
|
|
16969
|
666 |
113 |
unless $do_not_delete
|
|
16979
|
10832 |
30154 |
if ($type_sequence) { }
|
|
|
8080 |
22074 |
elsif ($is_wit{$type}) { }
|
|
|
3216 |
18858 |
elsif ($type eq 'k') { }
|
|
|
2822 |
16036 |
elsif ($type eq ';') { }
|
|
|
1171 |
14865 |
elsif ($type eq '->') { }
|
|
|
3560 |
11305 |
elsif ($type eq ',') { }
|
|
|
2819 |
8486 |
elsif ($type eq 'Q') { }
|
|
|
2432 |
6054 |
elsif ($type eq 'n') { }
|
|
|
1082 |
4972 |
elsif ($type eq '=>') { }
|
|
|
312 |
4660 |
elsif ($type eq 'q') { }
|
|
|
11 |
4649 |
elsif ($type eq 'h') { }
|
|
|
168 |
4481 |
elsif ($type eq 'S') { }
|
|
|
49 |
4432 |
elsif ($type eq 'P') { }
|
|
|
79 |
4353 |
elsif ($type eq 'J') { }
|
|
16982
|
5224 |
5608 |
if ($is_closing_token{$token}) { }
|
|
16989
|
1113 |
4111 |
if ($block_type) { }
|
|
16992
|
609 |
504 |
if ($last_nonblank_code_type ne ";")
|
|
17002
|
8 |
601 |
unless ($rOpts_add_semicolons)
|
|
17012
|
604 |
5 |
if $add_phantom
|
|
17015
|
336 |
777 |
if ($ris_sub_block->{$type_sequence} or $ris_asub_block->{$type_sequence})
|
|
17031
|
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'})
|
|
17040
|
2 |
0 |
if ($paren_flag and $token eq ")")
|
|
17045
|
1 |
1 |
if ($match)
|
|
17052
|
4091 |
17 |
unless ($rtype_count and $rtype_count->{';'} || $rtype_count->{'f'})
|
|
17057
|
3735 |
356 |
if ($last_nonblank_code_type ne ',') { }
|
|
17060
|
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 "=>")
|
|
17086
|
47 |
0 |
if ($rule and $rule->{$token})
|
|
17098
|
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)
|
|
17112
|
63 |
0 |
if ($rule and $rule->{$token})
|
|
17120
|
1 |
0 |
if (not $deleted and $rOpts_delete_weld_interfering_commas and $is_closing_type{$last_last_nonblank_code_type})
|
|
17134
|
51 |
5557 |
if ($rwant_arrow_before_seqno->{$type_sequence})
|
|
17137
|
31 |
20 |
if ($rwant_arrow_before_seqno->{$type_sequence} > 0) { }
|
|
17147
|
2414 |
3194 |
if ($token eq '(') { }
|
|
|
149 |
3045 |
elsif ($ris_sub_block->{$type_sequence}) { }
|
|
|
187 |
2858 |
elsif ($ris_asub_block->{$type_sequence}) { }
|
|
|
57 |
2801 |
elsif ($token eq '[' and $last_nonblank_code_token eq '$_' and $current_sub_seqno) { }
|
|
17148
|
637 |
1443 |
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 "&")
|
|
17173
|
9 |
140 |
if ($last_S_is_method)
|
|
17177
|
0 |
149 |
if ($K_last_S_is_my)
|
|
17184
|
2 |
185 |
if ($last_S_is_method)
|
|
17215
|
5 |
8075 |
if (index($token, " ") > 0 or index($token, "\t") > 0)
|
|
17221
|
5 |
0 |
if ($ord > 0 and $ord < 33 || $ord > 126)
|
|
17231
|
5 |
0 |
if ($is_sigil{$sigil})
|
|
17233
|
5 |
0 |
if defined $word
|
|
17247
|
0 |
5 |
if ($ord_ch > 0 and $ord_ch < 33 || $ord_ch > 126)
|
|
17258
|
6287 |
1793 |
if ($type eq 'i') { }
|
|
|
1683 |
110 |
elsif ($type eq 'w') { }
|
|
17259
|
48 |
6239 |
if ($token eq "\@_" and $current_sub_seqno)
|
|
17269
|
73 |
6214 |
if ($token eq "\$self" and $current_sub_seqno)
|
|
17275
|
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 '(')
|
|
17296
|
137 |
1546 |
if ($last_nonblank_code_token eq "use" and $last_nonblank_code_type eq "k")
|
|
17299
|
13 |
124 |
if ($token eq "strict")
|
|
17309
|
153 |
3063 |
if ($token eq "return")
|
|
17317
|
0 |
3216 |
if ($token eq "wantarray")
|
|
17330
|
9 |
2773 |
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 ';')
|
|
17362
|
15 |
2 |
if ($KK < $Klast) { }
|
|
17364
|
14 |
1 |
if (defined $Kn and $Kn <= $Klast)
|
|
17378
|
14 |
3 |
if ($ok_to_delete) { }
|
|
17389
|
71 |
1100 |
if ($last_nonblank_code_token eq ")")
|
|
17394
|
71 |
0 |
if ($seqno_paren)
|
|
17400
|
7 |
3553 |
if ($last_nonblank_code_type eq ',' and $rOpts->{'delete-repeated-commas'}) { }
|
|
|
0 |
3553 |
elsif ($last_nonblank_code_type eq '=>' and $rOpts->{'delete-repeated-commas'}) { }
|
|
17408
|
4 |
3 |
if ($KK eq $Kfirst and $rLL->[$Klast][6] eq '#') { }
|
|
17429
|
327 |
3230 |
if (%trailing_comma_rules)
|
|
17431
|
96 |
231 |
if (defined $seqno and not defined $self->[26]{$seqno})
|
|
17443
|
1 |
2818 |
if $self->[81]
|
|
17451
|
0 |
2432 |
if (substr($token, 0, 1) eq "x" and $token =~ /^x\d+/)
|
|
17463
|
0 |
0 |
if ($last_nonblank_code_type eq "=>" and $rOpts->{'delete-repeated-commas'})
|
|
17474
|
0 |
0 |
if ($KK eq $Kfirst and $rLL->[$Klast][6] eq '#') { }
|
|
17486
|
127 |
955 |
if (%trailing_comma_rules)
|
|
17488
|
63 |
64 |
if (defined $seqno and not defined $self->[26]{$seqno})
|
|
17507
|
0 |
312 |
if ($self->[81] and $token =~ /\t/)
|
|
17510
|
85 |
208 |
if ($rwhitespace_flags->[$KK] == 1 and @{$rLL_new;} and $rLL_new->[-1][6] ne "b" and $rOpts_add_whitespace)
|
|
17524
|
1 |
10 |
if (index($token, " ") > 0 or index($token, "\t") > 0)
|
|
17525
|
0 |
1 |
if ($token =~ /^ (\<\<\~?) \s+ ([^\d].*) $/x)
|
|
17540
|
166 |
2 |
if (substr($token, 0, 1) ne "(")
|
|
17561
|
158 |
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) { }
|
|
17595
|
49 |
0 |
if ($token =~ s/\s+/ /g)
|
|
17616
|
8326 |
16985 |
if ($rwhitespace_flags->[$KK] == 1 and @{$rLL_new;} and $rLL_new->[-1][6] ne "b" and $rOpts_add_whitespace)
|
|
17640
|
4 |
641 |
unless @{$rLL_new;}
|
|
17684
|
0 |
5255 |
unless defined $K_opening
|
|
17688
|
0 |
5255 |
unless defined $K_closing
|
|
17698
|
2197 |
3058 |
if ($rtype_count)
|
|
17704
|
736 |
1461 |
if ($rtype_count->{';'}) { }
|
|
|
17 |
1444 |
elsif ($rtype_count->{'f'}) { }
|
|
|
1432 |
12 |
elsif ($rtype_count->{','} or $rtype_count->{'=>'}) { }
|
|
17709
|
0 |
736 |
if ($token_opening eq "(" or $token_opening eq "[")
|
|
17729
|
851 |
581 |
if ($token_opening eq "(")
|
|
17731
|
850 |
1 |
if (defined $Kp)
|
|
17737
|
161 |
689 |
$type_p eq 'k' ? :
|
|
17753
|
20 |
5235 |
if ($block_type and substr($block_type, -1, 1) eq " ")
|
|
17761
|
20 |
0 |
if (defined $Knn1)
|
|
17764
|
20 |
0 |
defined $Knn1 ? :
|
|
17765
|
20 |
0 |
defined $Knn2 ? :
|
|
17768
|
6 |
3 |
if ($wU{$type_nn1} and $wiq{$type_nn2})
|
|
17773
|
1 |
19 |
if ($is_list)
|
|
17781
|
1410 |
3845 |
if ($is_list and not $block_type) { }
|
|
|
43 |
3802 |
elsif ($block_type and $rOpts_line_up_parentheses) { }
|
|
17791
|
720 |
648 |
if (not $rhas_list->{$seqno_parent} or $rhas_list->{$seqno_parent} > $depth)
|
|
17797
|
408 |
960 |
if ($line_diff)
|
|
17808
|
183 |
174 |
if ($rlec_count_by_seqno->{$seqno} and $rlec_count_by_seqno->{$seqno} > 1 || $rtype_count_by_seqno->{$seqno}{'=>'})
|
|
17846
|
0 |
641 |
if ($rOpts_comma_arrow_breakpoints == 3)
|
|
17850
|
0 |
0 |
unless $rtype_count and $rtype_count->{'=>'}
|
|
17853
|
0 |
0 |
unless (defined $roverride_cab3->{$seqno})
|
|
17854
|
0 |
0 |
if ($rhas_list->{$seqno}) { }
|
|
17861
|
0 |
0 |
if (defined $seqno_parent and $ris_list_by_seqno->{$seqno_parent})
|
|
17886
|
0 |
71 |
unless defined $K_test
|
|
17890
|
4 |
67 |
if ($tok eq "[" or $tok eq "{")
|
|
17893
|
24 |
43 |
$in_chain_seqno ? :
|
|
17900
|
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]) { }
|
|
17913
|
31 |
36 |
if (@{$rarrow_call_chain->{$seqno_start};} < 2)
|
|
17920
|
1 |
0 |
if (%break_at_old_comma_types and $break_at_old_comma_types{';'})
|
|
17925
|
0 |
0 |
unless $rtype_count
|
|
17926
|
0 |
0 |
unless $rtype_count->{','} or $rtype_count->{'=>'}
|
|
17969
|
0 |
59652 |
$length_function && !$is_ascii_type{$type} && $token =~ /[[:^ascii:][:^print:]]/ ? :
|
|
17975
|
17158 |
42494 |
if ($type eq 'b') { }
|
|
|
1206 |
41288 |
elsif ($type eq '#') { }
|
|
17980
|
9 |
17149 |
if (@{$rLL_new;} and $rLL_new->[-1][6] eq "b")
|
|
17990
|
21 |
1185 |
if ($ord > 0 and $ord < 33 || $ord > 126 and $token =~ s/\s+$//)
|
|
17997
|
0 |
21 |
$length_function ? :
|
|
18005
|
10 |
949 |
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/)
|
|
18013
|
5 |
5 |
if ($Klast_old > $Kfirst_old) { }
|
|
18036
|
19 |
28 |
if ($ignore_sc_length and !$CODE_type || $CODE_type eq 'HSC')
|
|
18041
|
331 |
875 |
if (defined $seqno)
|
|
18042
|
103 |
228 |
if $CODE_type eq "BC"
|
|
18044
|
123 |
208 |
unless ($ris_permanently_broken->{$seqno})
|
|
18058
|
10896 |
30392 |
if ($type_sequence)
|
|
18066
|
5255 |
5641 |
if ($is_opening_token{$token}) { }
|
|
|
5255 |
386 |
elsif ($is_closing_token{$token}) { }
|
|
18074
|
5 |
213 |
if ($last_nonblank_code_type eq "," and $Ktoken_vars == $Klast_old_code and $Ktoken_vars > $Kfirst_old)
|
|
18081
|
433 |
4822 |
if ($last_nonblank_code_type eq "=" or $last_nonblank_code_type eq "=>")
|
|
18089
|
2304 |
2951 |
unless defined $seqno_parent
|
|
18096
|
1425 |
3830 |
if ($depth_next > $depth_next_max)
|
|
18106
|
396 |
4859 |
if ($last_nonblank_code_type eq "," or $last_nonblank_code_type eq "=>")
|
|
18112
|
201 |
5 |
if ($Ktoken_vars == $Kfirst_old and $last_nonblank_code_type eq "," and $rlec_count_by_seqno->{$type_sequence})
|
|
18121
|
21 |
375 |
if ($last_nonblank_code_type eq "," and $trailing_comma_break_rules{$token} and length $last_nonblank_code_token)
|
|
18129
|
0 |
21 |
if ($letter eq 'b') { }
|
|
|
0 |
21 |
elsif ($letter eq 'm') { }
|
|
|
21 |
0 |
elsif ($letter eq '1' or $letter eq '*') { }
|
|
18147
|
0 |
21 |
if ($match and $paren_flag and $token eq ")")
|
|
18153
|
21 |
0 |
if ($match)
|
|
18166
|
220 |
166 |
unless defined $seqno_parent
|
|
18170
|
193 |
193 |
if ($token eq '?') { }
|
|
|
193 |
0 |
elsif ($token eq ':') { }
|
|
18206
|
7746 |
33542 |
if ($is_counted_type{$type})
|
|
18208
|
5729 |
2017 |
if (defined $seqno)
|
|
18212
|
1132 |
4597 |
if ($type eq "," and $Ktoken_vars == $Klast_old_code)
|
|
18246
|
0 |
8562 |
unless (@{$rLL_new;})
|
|
18255
|
0 |
8562 |
if ($item_last->[6] eq "b")
|
|
18294
|
11 |
49 |
if ($top_is_space and $want_left_space{$type} == -1) { }
|
|
18312
|
11 |
0 |
if ($is_counted_type{$type})
|
|
18314
|
11 |
0 |
if ($seqno)
|
|
18335
|
0 |
49 |
if ($top_is_space) { }
|
|
18338
|
0 |
0 |
if ($new_top_ix < $old_top_ix)
|
|
18343
|
0 |
49 |
if ($want_left_space{$type} == 1)
|
|
18376
|
0 |
604 |
unless $type_sequence
|
|
18378
|
0 |
604 |
unless $block_type
|
|
18380
|
258 |
194 |
unless $ok_to_add_semicolon_for_block_type{$block_type} or $block_type =~ /^(sub|package)/ or $block_type =~ /^\w+\:$/
|
|
18386
|
0 |
346 |
unless defined $Kp
|
|
18401
|
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/
|
|
18422
|
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)
|
|
18435
|
39 |
0 |
if (defined $K_outer_opening)
|
|
18437
|
39 |
0 |
if (defined $K_nxt)
|
|
18443
|
8 |
31 |
if $seqno_nxt and $seqno_nxt == $seqno_inner
|
|
18454
|
142 |
43 |
if ($rLL_new->[$Ktop][6] eq 'b' and $want_left_space{';'} == -1) { }
|
|
18468
|
3 |
139 |
if ($rOpts_one_line_block_semicolons == 2)
|
|
18499
|
1 |
42 |
if ($rLL_new->[$Ktop][6] eq "b")
|
|
18502
|
0 |
1 |
if ($new_top_ix < $old_top_ix)
|
|
18539
|
80 |
0 |
unless (defined $delay)
|
|
18540
|
29 |
51 |
$if_add ? :
|
|
18543
|
12 |
68 |
unless $delay
|
|
18548
|
0 |
68 |
if ($it == 1 and $max_iterations > 1)
|
|
18587
|
0 |
47 |
unless defined $Kp
|
|
18589
|
0 |
47 |
if $type_p eq "#"
|
|
18591
|
0 |
47 |
unless $trailing_comma_add_rule
|
|
18611
|
5 |
24 |
if ($match and $rOpts_delete_trailing_commas and $KK > 0)
|
|
18615
|
3 |
2 |
if (not $stable_flag and $is_b_i_h{$trailing_comma_style})
|
|
18620
|
0 |
3 |
$length_function ? :
|
|
18624
|
3 |
0 |
$want_left_space{','} ? :
|
|
18628
|
0 |
3 |
if ($new_len > $max_len)
|
|
18635
|
29 |
18 |
if ($match and not $self->delay_trailing_comma_op(1, $stable_flag))
|
|
18668
|
0 |
63 |
unless defined $Kp
|
|
18669
|
0 |
63 |
if ($rLL_new->[$Kp][6] ne ",")
|
|
18678
|
0 |
63 |
if ($rLL_new->[$Kp][3] >= $high_stress_level)
|
|
18682
|
0 |
63 |
unless $trailing_comma_delete_rule
|
|
18700
|
0 |
51 |
unless ($match or $rOpts_add_whitespace)
|
|
18702
|
0 |
0 |
if (defined $Kn)
|
|
18704
|
0 |
0 |
if ($type_n ne ";" and $type_n ne "#")
|
|
18711
|
0 |
51 |
if (not $match and $rOpts_add_trailing_commas and $rLL->[$Kfirst][6] eq "R")
|
|
18718
|
0 |
0 |
if (defined $Kp_old and $Kp_old > $Kfirst and $rLL->[$Kp_old][6] eq ",")
|
|
18725
|
0 |
0 |
if (defined $Kpp_old and $Kpp_old eq $Kfirst)
|
|
18753
|
51 |
0 |
unless ($match or $self->delay_trailing_comma_op(0, $stable_flag))
|
|
18787
|
0 |
1 |
unless $type_sequence
|
|
18791
|
0 |
1 |
unless defined $Kp
|
|
18792
|
0 |
1 |
if ($rLL_new->[$Kp][6] ne ",")
|
|
18803
|
0 |
1 |
unless defined $rtype_count and $rtype_count->{','} and $rtype_count->{','} == 1
|
|
18807
|
0 |
1 |
unless defined $Kpp
|
|
18812
|
1 |
0 |
if ($seqno_pp and $is_closing_type{$type_pp})
|
|
18813
|
1 |
0 |
if ($seqno_pp == $type_sequence + 1 and $self->weld_opening_ok($seqno_pp, $type_sequence, $rLL_new))
|
|
18829
|
0 |
31 |
unless defined $Kp
|
|
18833
|
0 |
31 |
if ($type_p ne "R" and $type_p ne "]")
|
|
18839
|
0 |
31 |
if ($want_right_space{'->'} == 1)
|
|
18851
|
0 |
20 |
unless defined $Kp
|
|
18855
|
0 |
20 |
if ($type_p ne "->")
|
|
18886
|
0 |
72 |
if (@{$rLL_new;} < 3)
|
|
18891
|
52 |
20 |
unless (defined $want_space)
|
|
18898
|
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) { }
|
|
18925
|
0 |
72 |
if ($rLL_new->[-1][6] eq 'b') { }
|
|
18928
|
0 |
0 |
if ($want_space == -1)
|
|
18935
|
0 |
72 |
if ($want_space == 1) { }
|
|
|
52 |
20 |
elsif (not $want_space) { }
|
|
18941
|
43 |
9 |
if (defined $rblank)
|
|
18964
|
0 |
0 |
unless defined $K_opening
|
|
18966
|
0 |
0 |
unless defined $Km
|
|
18971
|
0 |
0 |
if ($type_m eq "=")
|
|
18974
|
0 |
0 |
unless defined $Km
|
|
18979
|
0 |
0 |
if ($token_m eq "}")
|
|
18981
|
0 |
0 |
unless $seqno_m
|
|
18983
|
0 |
0 |
unless defined $K_opening_m
|
|
18985
|
0 |
0 |
unless defined $Km
|
|
18990
|
0 |
0 |
if ($type_m eq "i" or $type_m eq "t")
|
|
18992
|
0 |
0 |
if ($sigil eq "\@")
|
|
19069
|
0 |
110 |
unless (defined $trailing_comma_style)
|
|
19075
|
0 |
110 |
unless $type_sequence
|
|
19081
|
0 |
110 |
%break_at_old_comma_types ? :
|
|
19091
|
0 |
110 |
unless defined $K_opening
|
|
19107
|
56 |
54 |
if ($token eq "(")
|
|
19110
|
56 |
0 |
if (defined $Km)
|
|
19113
|
0 |
56 |
if ($type_m eq "k")
|
|
19114
|
0 |
0 |
if ($is_not_list_paren{$token_m})
|
|
19121
|
109 |
1 |
if ($rtype_count)
|
|
19132
|
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)
|
|
19143
|
0 |
0 |
if ($rOpts_comma_arrow_breakpoints > 0 and $rOpts_comma_arrow_breakpoints < 4)
|
|
19150
|
0 |
0 |
if (%opening_vertical_tightness and $opening_vertical_tightness{$token})
|
|
19160
|
3 |
10 |
if (not $comma_count and $if_add and $is_closing_type{$last_nonblank_code_type})
|
|
19169
|
0 |
3 |
unless defined $Kpp
|
|
19181
|
0 |
3 |
if ($is_nesting_right and $rOpts_delete_weld_interfering_commas and $self->weld_opening_ok($seqno_pp, $type_sequence, $rLL_new))
|
|
19189
|
3 |
0 |
if ($is_nesting_right)
|
|
19192
|
3 |
0 |
if ($Kpp_m)
|
|
19201
|
1 |
2 |
unless ($fat_comma_count)
|
|
19204
|
0 |
1 |
unless $is_nesting_right
|
|
19207
|
0 |
1 |
if ($self->[8]{$seqno_pp})
|
|
19214
|
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))
|
|
19224
|
0 |
1 |
unless defined $K_opening_pp
|
|
19229
|
0 |
1 |
unless $rtype_count_pp
|
|
19235
|
0 |
1 |
unless $has_inner_multiline_structure
|
|
19240
|
0 |
1 |
unless defined $iline_first_comma
|
|
19242
|
0 |
1 |
if $iline_ppc <= $iline_first_comma
|
|
19252
|
0 |
110 |
unless (defined $iline_first_comma)
|
|
19279
|
47 |
63 |
if ($if_add)
|
|
19296
|
8 |
39 |
if (not $is_stable and $fat_comma_count)
|
|
19324
|
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') { }
|
|
19359
|
24 |
12 |
unless $is_bare_trailing_comma
|
|
19364
|
6 |
6 |
if $if_add
|
|
19366
|
2 |
10 |
if ($excess_commas > 0)
|
|
19372
|
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) { }
|
|
19405
|
6 |
0 |
if (not $match and $fat_comma_count and $fat_comma_count >= 2 || $fat_comma_count == 1 && $new_comma_count == 1)
|
|
19436
|
2 |
8 |
if (not $match and $trailing_comma_style eq "i")
|
|
19453
|
0 |
0 |
if ($match and $paren_flag and $paren_flag ne 1 and $paren_flag ne "*" and $closing_token eq ")")
|
|
19467
|
41 |
43 |
if ($match)
|
|
19468
|
17 |
24 |
if ($if_add and $rOpts_delete_trailing_commas or not $if_add and $rOpts_add_trailing_commas)
|
|
19499
|
0 |
1 |
if ($token =~ /\t/)
|
|
19509
|
1 |
0 |
unless $is_s_y_m_slash{substr($token, 0, 1)} or substr($token, 0, 2) eq "tr"
|
|
19514
|
0 |
0 |
unless defined $Kp
|
|
19516
|
0 |
0 |
unless $is_unexpected_equals{$previous_nonblank_type}
|
|
19522
|
0 |
0 |
if (defined $Kpp)
|
|
19530
|
0 |
0 |
if ($Kn <= $Kmax and $rLL->[$Kn][6] eq "b")
|
|
19531
|
0 |
0 |
if ($Kn <= $Kmax)
|
|
19538
|
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})
|
|
19584
|
641 |
4 |
defined $Klimit ? :
|
|
19612
|
196 |
8753 |
if $line_of_tokens->{'_line_type'} ne "CODE"
|
|
19618
|
7716 |
1037 |
if (defined $Kfirst_old)
|
|
19635
|
5302 |
583 |
if ($Knext_guess > $Knext and $Knext_guess < $Kmax and $rLL->[$Knext_guess][2] <= $iline)
|
|
19651
|
7706 |
1047 |
if ($Knext > $Knext_beg)
|
|
19656
|
6053 |
1653 |
if ($rLL->[$Klast][6] eq "b")
|
|
19658
|
0 |
7706 |
if ($Klast < $Knext_beg) { }
|
|
19667
|
6834 |
872 |
if ($rLL->[$Kfirst][6] ne "#")
|
|
19675
|
6665 |
1041 |
if (not $CODE_type or $CODE_type eq "VER")
|
|
19688
|
148 |
8605 |
if ($line_of_tokens->{'_ended_in_blank_token'})
|
|
19690
|
148 |
0 |
if ($CODE_type ne "FS" and $CODE_type ne "VB")
|
|
19698
|
1047 |
7706 |
if (not defined $Kfirst) { }
|
|
19700
|
1 |
1046 |
unless ($CODE_type)
|
|
19710
|
202 |
7504 |
if ($rLL->[$Kfirst][6] eq "q" or $rLL->[$Klast][6] eq "q")
|
|
19722
|
0 |
645 |
if ($Knext <= $Kmax)
|
|
19799
|
0 |
0 |
if ($type eq "b")
|
|
19806
|
0 |
0 |
if ($type ne "P")
|
|
19827
|
0 |
0 |
if ($Kn and $rLL->[$Kn][6] eq "n")
|
|
19832
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "{")
|
|
19840
|
0 |
0 |
if ($parent_seqno != 1)
|
|
19842
|
0 |
0 |
if (defined $Kc)
|
|
19855
|
0 |
0 |
if ($Kc < $K_opening) { }
|
|
19866
|
0 |
0 |
if ($level_i == $level)
|
|
19901
|
0 |
0 |
if (@package_lookup_list > 1 and $package_lookup_list[0][2] < 0)
|
|
19974
|
0 |
0 |
$is_signature ? :
|
|
19981
|
0 |
0 |
if (defined $seqno_list) { }
|
|
|
0 |
0 |
elsif (defined $K_list_start) { }
|
|
19984
|
0 |
0 |
unless defined $K_list_end
|
|
19992
|
0 |
0 |
if ($rLL->[$K_list_start][6] eq "b")
|
|
20000
|
0 |
0 |
unless $Kn
|
|
20002
|
0 |
0 |
if ($type_n eq ";" or $is_closing_type{$type_n} or $type_n eq "k" and $is_if_unless{$rLL->[$Kn][4]})
|
|
20011
|
0 |
0 |
if ($rLL->[$Kn][4] eq "(")
|
|
20013
|
0 |
0 |
if ($Knn and $rLL->[$Knn][4] eq ")")
|
|
20028
|
0 |
0 |
if ($seqno_list and $shift_count_min_input and not $is_signature)
|
|
20036
|
0 |
0 |
if ($seqno_list)
|
|
20059
|
0 |
0 |
if (not $KK or $KK <= $KK_this_nb)
|
|
20068
|
0 |
0 |
if $type eq "b"
|
|
20069
|
0 |
0 |
if $type eq "#"
|
|
20070
|
0 |
0 |
if $type eq ";"
|
|
20071
|
0 |
0 |
if $type eq ".."
|
|
20074
|
0 |
0 |
if $type eq "=~"
|
|
20082
|
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}) { }
|
|
20084
|
0 |
0 |
if ($is_opening_type{$type}) { }
|
|
|
0 |
0 |
elsif ($is_closing_type{$type}) { }
|
|
|
0 |
0 |
elsif ($type eq '?') { }
|
|
|
0 |
0 |
elsif ($type eq ':') { }
|
|
20085
|
0 |
0 |
if ($token eq "(")
|
|
20089
|
0 |
0 |
if ($KK_last_nb)
|
|
20092
|
0 |
0 |
if ($type_last eq "k" and $is_non_interfering_keyword{$token_last})
|
|
20101
|
0 |
0 |
if (not $self->is_list_by_seqno($seqno)) { }
|
|
20105
|
0 |
0 |
if ($is_return_list and $KK_last_nb == $K_list_start)
|
|
20111
|
0 |
0 |
unless ($Kc)
|
|
20117
|
0 |
0 |
if ($self->[23]{$seqno})
|
|
20119
|
0 |
0 |
if ($Kc_p and $rLL->[$Kc_p][4] eq ")")
|
|
20122
|
0 |
0 |
if ($seqno_c_p and $seqno_c_p == $seqno + 1)
|
|
20124
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "(")
|
|
20135
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "[")
|
|
20137
|
0 |
0 |
if ($seqno_next and $self->is_list_by_seqno($seqno_next))
|
|
20147
|
0 |
0 |
if ($KK_n)
|
|
20154
|
0 |
0 |
if ($type_KK_n eq 't' or $type_KK_n eq 'i') { }
|
|
|
0 |
0 |
elsif ($type_KK_n eq 'k') { }
|
|
20156
|
0 |
0 |
if ($sigil eq "\@" or $sigil eq "%")
|
|
20162
|
0 |
0 |
unless ($is_non_interfering_keyword{$token_KK_n})
|
|
20175
|
0 |
0 |
if ($KK_last_nb)
|
|
20199
|
0 |
0 |
if ($ok)
|
|
20213
|
0 |
0 |
if ($seqno_test and $seqno_test eq $seqno)
|
|
20226
|
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")
|
|
20237
|
0 |
0 |
if ($is_return_list)
|
|
20247
|
0 |
0 |
if ($seqno_test and $seqno_test eq $seqno)
|
|
20270
|
0 |
0 |
if ($sigil eq '%' or $sigil eq '@') { }
|
|
|
0 |
0 |
elsif ($sigil eq '$' and not $self_name and not $arg_count) { }
|
|
20272
|
0 |
0 |
if (defined $K_last)
|
|
20274
|
0 |
0 |
if $type_last eq "+" or $type_last eq "p"
|
|
20275
|
0 |
0 |
if $type_last eq "\\"
|
|
20276
|
0 |
0 |
if $type_last eq "!"
|
|
20278
|
0 |
0 |
if $type_last eq "k" and $token_last eq "scalar"
|
|
20308
|
0 |
0 |
if ($is_signature and not defined $arg_count_min)
|
|
20317
|
0 |
0 |
if ($type eq "k")
|
|
20320
|
0 |
0 |
if $is_non_interfering_keyword{$token}
|
|
20322
|
0 |
0 |
if $token eq "wantarray"
|
|
20325
|
0 |
0 |
if $token eq "sub"
|
|
20328
|
0 |
0 |
if ($is_if_unless{$token})
|
|
20336
|
0 |
0 |
unless defined $Kn
|
|
20340
|
0 |
0 |
if $token_Kn eq ")" or $type_Kn eq "=>" or $type_Kn eq "->" or $type_Kn eq ","
|
|
20350
|
0 |
0 |
if $type eq "k" and $token_Kn eq "(" and $is_keyword_returning_scalar{$token}
|
|
20371
|
0 |
0 |
if (defined $KK_this_nb and $KK_this_nb > $K_list_start and $rLL->[$KK_this_nb][6] ne ",")
|
|
20378
|
0 |
0 |
unless (defined $arg_count_min)
|
|
20421
|
0 |
0 |
unless $saw_semicolon
|
|
20426
|
0 |
0 |
unless $saw_semicolon
|
|
20431
|
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 '\\') { }
|
|
20432
|
0 |
0 |
if $count_min
|
|
20437
|
0 |
0 |
unless $count_min
|
|
20443
|
0 |
0 |
unless defined $ch
|
|
20473
|
0 |
0 |
if (defined $K_sub)
|
|
20475
|
0 |
0 |
if ($type ne "S")
|
|
20478
|
0 |
0 |
if ($type ne "S")
|
|
20500
|
0 |
0 |
unless (defined $K_sub)
|
|
20506
|
0 |
0 |
if ($Kt_min < 0)
|
|
20510
|
0 |
0 |
if ($type eq "S")
|
|
20516
|
0 |
0 |
if ($type eq 'k' || $type eq 'i' and substr($token, 0, 3) eq "sub")
|
|
20540
|
0 |
0 |
unless $seqno
|
|
20545
|
0 |
0 |
unless defined $K_test
|
|
20547
|
0 |
0 |
if $token_test ne "," and $token_test ne "("
|
|
20550
|
0 |
0 |
if ($token_test eq "(")
|
|
20552
|
0 |
0 |
if (not $seqno_o or $seqno_o != $seqno - 1)
|
|
20563
|
0 |
0 |
if ($rtype_count)
|
|
20571
|
0 |
0 |
unless (defined $default_arg_count)
|
|
20576
|
0 |
0 |
if $K_n == $K_c
|
|
20582
|
0 |
0 |
unless $default_arg_count
|
|
20585
|
0 |
0 |
if ($item->{'shift_count_min'} >= $default_arg_count) { }
|
|
20623
|
0 |
0 |
if (not defined $Kbeg && defined $Kend or $Kbeg < 0 or $Kbeg > $Kend or $Kend > @{$rLL;} - 1)
|
|
20639
|
0 |
0 |
if ($line_type eq 'CODE') { }
|
|
20644
|
0 |
0 |
if (defined $Kfirst)
|
|
20646
|
0 |
0 |
defined $Kfirst ? :
|
|
20650
|
0 |
0 |
if $jmax > 0 or $rLL->[$Klast][6] ne "#"
|
|
20653
|
0 |
0 |
if ($rLL->[$Klast][4] =~ /[\w\'\"]/)
|
|
20655
|
0 |
0 |
unless $want_full_count
|
|
20664
|
0 |
0 |
unless $line_type =~ /^POD/
|
|
20667
|
0 |
0 |
if ($line_type eq "POD" and $line_of_tokens->{'_line_text'} =~ /\w/)
|
|
20671
|
0 |
0 |
unless $want_full_count
|
|
20696
|
0 |
0 |
unless $seqno_block
|
|
20714
|
0 |
0 |
if (defined $rKlist)
|
|
20732
|
0 |
0 |
unless $seqno_at_index_min and $at_index_min == 0
|
|
20735
|
0 |
0 |
unless $Ko and $Kc
|
|
20737
|
0 |
0 |
unless $K_semicolon and $rLL->[$K_semicolon][6] eq ";"
|
|
20739
|
0 |
0 |
unless $K_m and $rLL->[$K_m][4] eq "\$_"
|
|
20741
|
0 |
0 |
unless $K_mm and $rLL->[$K_mm][6] eq "="
|
|
20743
|
0 |
0 |
unless $K_mmm and $rLL->[$K_mmm][6] eq "i"
|
|
20745
|
0 |
0 |
unless $name =~ /^\$\w/
|
|
20751
|
0 |
0 |
if (not defined $rKlist and $rseqno_DOLLAR_underscore)
|
|
20757
|
0 |
0 |
unless $Kn
|
|
20758
|
0 |
0 |
unless $rLL->[$Kn][6] eq "n"
|
|
20760
|
0 |
0 |
unless $token =~ /^\d+$/
|
|
20763
|
0 |
0 |
unless $Knn and $Kc and $Knn == $Kc
|
|
20765
|
0 |
0 |
if (not defined $at_index_min or $token < $at_index_min)
|
|
20767
|
0 |
0 |
unless (defined $seqno_at_index_min)
|
|
20771
|
0 |
0 |
if (not defined $at_index_max or $token > $at_index_max)
|
|
20776
|
0 |
0 |
unless ($ok)
|
|
20790
|
0 |
0 |
if (not defined $K_sub or $K_sub >= $K_opening_block)
|
|
20791
|
0 |
0 |
unless (defined $K_sub)
|
|
20801
|
0 |
0 |
if ($iproto_beg > 0)
|
|
20803
|
0 |
0 |
if ($iproto_end > $iproto_beg)
|
|
20820
|
0 |
0 |
unless defined $K_closing
|
|
20826
|
0 |
0 |
if ($rLL->[$Ksub_p][7] and $rLL->[$Ksub_p][4] eq "(")
|
|
20870
|
0 |
0 |
unless ($pre_arg_comment_count)
|
|
20876
|
0 |
0 |
if (defined $K_arg_end)
|
|
20887
|
0 |
0 |
if (not $KK or $KK <= $KK_this_nb)
|
|
20896
|
0 |
0 |
if $type eq "b"
|
|
20898
|
0 |
0 |
if ($type eq "#")
|
|
20899
|
0 |
0 |
unless ($KK_first_code)
|
|
20901
|
0 |
0 |
if ($token =~ /[\w\'\"]/)
|
|
20912
|
0 |
0 |
unless ($KK_first_code)
|
|
20921
|
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') { }
|
|
20924
|
0 |
0 |
if ($token eq '@_') { }
|
|
|
0 |
0 |
elsif ($token eq '$_') { }
|
|
|
0 |
0 |
elsif (substr($token, 0, 1) eq '&') { }
|
|
20930
|
0 |
0 |
unless $level == $level_opening + 1
|
|
20934
|
0 |
0 |
unless $K_p
|
|
20935
|
0 |
0 |
unless $rLL->[$K_p][6] eq ";"
|
|
20939
|
0 |
0 |
unless defined $K_m
|
|
20941
|
0 |
0 |
unless $type_m eq "="
|
|
20945
|
0 |
0 |
unless defined $K_mm
|
|
20951
|
0 |
0 |
if ($seqno_mm and $token_mm eq ")")
|
|
20964
|
0 |
0 |
$K_mm_p ? :
|
|
20968
|
0 |
0 |
if ($token_mm_p eq ",")
|
|
20970
|
0 |
0 |
$K_mm_p ? :
|
|
20976
|
0 |
0 |
if ($token_mm_p eq ")")
|
|
20996
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] eq "[")
|
|
21000
|
0 |
0 |
if (not defined $at_index_max or $shift_count)
|
|
21009
|
0 |
0 |
if ($Kn and $rLL->[$Kn][4] ne "(")
|
|
21023
|
0 |
0 |
if ($is_shift_pop{$token}) { }
|
|
|
0 |
0 |
elsif ($token eq 'bless') { }
|
|
|
0 |
0 |
elsif ($is_if_unless{$token}) { }
|
|
21027
|
0 |
0 |
unless defined $Kp
|
|
21039
|
0 |
0 |
if ($token_p eq "(")
|
|
21042
|
0 |
0 |
unless defined $Kp
|
|
21048
|
0 |
0 |
if ($type_p eq "i" or $type_p eq "t")
|
|
21051
|
0 |
0 |
if $token_p ne "\@_"
|
|
21054
|
0 |
0 |
unless defined $Kp
|
|
21060
|
0 |
0 |
if ($in_parens and $token_p eq ")")
|
|
21062
|
0 |
0 |
unless defined $Kp
|
|
21072
|
0 |
0 |
if $type_p ne ";" and $type_p ne "->" and $Kp ne $K_closing
|
|
21076
|
0 |
0 |
unless $level == $level_opening + 1
|
|
21090
|
0 |
0 |
if ($shift_count == 1 and not $self_name)
|
|
21092
|
0 |
0 |
unless defined $K_m
|
|
21097
|
0 |
0 |
if ($type_p eq '->') { }
|
|
21098
|
0 |
0 |
if ($type_m eq "{" or $type_m eq ";")
|
|
21104
|
0 |
0 |
if ($type_m eq "=")
|
|
21107
|
0 |
0 |
unless defined $K_mm
|
|
21114
|
0 |
0 |
if ($seqno_mm and $token_mm eq ")")
|
|
21117
|
0 |
0 |
if ($K_mm)
|
|
21123
|
0 |
0 |
if ($type_mm eq "i")
|
|
21135
|
0 |
0 |
if ($KK < $Kp - 1)
|
|
21153
|
0 |
0 |
if ($semicolon_count_after_last_shift > 2)
|
|
21154
|
0 |
0 |
if (not defined $max_arg_count or $max_arg_count <= $shift_count)
|
|
21158
|
0 |
0 |
if (not $saw_pop_at_underscore and $KK >= $K_last_at_underscore)
|
|
21177
|
0 |
0 |
if ($is_opening_type{$type})
|
|
21184
|
0 |
0 |
if ($self->[10]{$seqno_test} or $self->[9]{$seqno_test})
|
|
21188
|
0 |
0 |
unless $Kc
|
|
21189
|
0 |
0 |
if $Kc <= $KK
|
|
21195
|
0 |
0 |
unless ($semicolon_count_after_last_shift)
|
|
21205
|
0 |
0 |
unless defined $K_last_code
|
|
21207
|
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) { }
|
|
21226
|
0 |
0 |
unless $in_interpolated_quote
|
|
21230
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($token, $pos - 1, 1) ne "\\"
|
|
21235
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($token, $pos - 1, 1) ne "\\"
|
|
21241
|
0 |
0 |
unless is_interpolated_here_doc($token)
|
|
21246
|
0 |
0 |
if ($here_text)
|
|
21251
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($here_text, $pos - 1, 1) ne "\\"
|
|
21259
|
0 |
0 |
if $pos == 0 or $pos > 0 and substr($here_text, $pos - 1, 1) ne "\\"
|
|
21275
|
0 |
0 |
if (defined $at_index_max and not $shift_count)
|
|
21281
|
0 |
0 |
if (not $self_name and $at_index_min == 0)
|
|
21283
|
0 |
0 |
unless $self_name
|
|
21288
|
0 |
0 |
unless ($saw_pop_at_underscore)
|
|
21312
|
0 |
0 |
unless $seqno_sub
|
|
21315
|
0 |
0 |
unless defined $rKlist
|
|
21327
|
0 |
0 |
$rLL->[$_][6] eq 'b' ? :
|
|
21329
|
0 |
0 |
if ($token ne "return")
|
|
21336
|
0 |
0 |
unless (defined $count)
|
|
21343
|
0 |
0 |
unless (defined $rK_return_count_hash->{$count})
|
|
21350
|
0 |
0 |
if (not defined $return_count_min or $count <= $return_count_min)
|
|
21357
|
0 |
0 |
if (not defined $return_count_max or $count >= $return_count_max)
|
|
21387
|
0 |
0 |
unless $seqno_list
|
|
21396
|
0 |
0 |
if ($Kc_n)
|
|
21399
|
0 |
0 |
if (not $ok and $type_n eq "k")
|
|
21404
|
0 |
0 |
unless $ok
|
|
21410
|
0 |
0 |
unless defined $K_mm
|
|
21420
|
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') { }
|
|
21428
|
0 |
0 |
unless defined $K_mm4
|
|
21432
|
0 |
0 |
if ($type_mmm eq 'i') { }
|
|
21468
|
0 |
0 |
if (not $K_equals or $rLL->[$K_equals][6] ne "=")
|
|
21473
|
0 |
0 |
unless defined $K_c
|
|
21476
|
0 |
0 |
if ($token_c ne ")")
|
|
21482
|
0 |
0 |
if ($is_closing_type{$type_c})
|
|
21488
|
0 |
0 |
unless $seqno_c
|
|
21490
|
0 |
0 |
unless defined $Ko_c
|
|
21492
|
0 |
0 |
unless defined $K_c_new
|
|
21496
|
0 |
0 |
if ($type_c eq "->")
|
|
21498
|
0 |
0 |
unless defined $K_c_new
|
|
21504
|
0 |
0 |
if ($type_c eq "i" or $type_c eq "t")
|
|
21506
|
0 |
0 |
if ($sigil eq "\$")
|
|
21516
|
0 |
0 |
unless $seqno_lhs
|
|
21591
|
0 |
0 |
if ($pos_space > 0)
|
|
21596
|
0 |
0 |
if ($pos_paren > 0)
|
|
21603
|
0 |
0 |
if (index($name, ':') != -1 || index($name, q[']) != -1 and $name =~ /^(.*\W)(\w+)$/)
|
|
21611
|
0 |
0 |
unless $package
|
|
21677
|
0 |
0 |
unless $K_closing_bracket
|
|
21679
|
0 |
0 |
unless $seqno
|
|
21681
|
0 |
0 |
unless defined $Ko
|
|
21683
|
0 |
0 |
unless $Knum and $rLL->[$Knum][4] eq 0
|
|
21685
|
0 |
0 |
unless $Kc eq $K_closing_bracket
|
|
21687
|
0 |
0 |
unless $rLL->[$K_p][4] eq "\$_"
|
|
21717
|
0 |
0 |
if (substr($name, 0, 1) eq "&")
|
|
21722
|
0 |
0 |
$is_ampersand_call ? :
|
|
21726
|
0 |
0 |
if ($type_mm eq "->")
|
|
21731
|
0 |
0 |
if (defined $K_mmm)
|
|
21734
|
0 |
0 |
if ($type_mmm eq 'i') { }
|
|
|
0 |
0 |
elsif ($type_mmm eq 'w') { }
|
|
|
0 |
0 |
elsif ($token_mmm eq ']') { }
|
|
21741
|
0 |
0 |
if (index($token_mmm, "::") != -1)
|
|
21747
|
0 |
0 |
if (&$is_dollar_underscore_zero($K_mmm))
|
|
21757
|
0 |
0 |
if (index($name, ':') != -1 || index($name, q[']) != -1 and $name =~ /^(.*\W)(\w+)$/) { }
|
|
21766
|
0 |
0 |
if ($class_name)
|
|
21770
|
0 |
0 |
unless ($package)
|
|
21775
|
0 |
0 |
if ($rtype_count)
|
|
21778
|
0 |
0 |
if ($comma_count)
|
|
21779
|
0 |
0 |
if ($fat_comma_count)
|
|
21783
|
0 |
0 |
if (not $arg_count) { }
|
|
21788
|
0 |
0 |
if ($Kn < $Kc)
|
|
21790
|
0 |
0 |
if ($type_n eq "b")
|
|
21794
|
0 |
0 |
if ($type_n eq "#")
|
|
21797
|
0 |
0 |
if ($Kn != $Kc)
|
|
21806
|
0 |
0 |
if ($arg_count)
|
|
21865
|
0 |
0 |
unless (defined $is_self_call)
|
|
21874
|
0 |
0 |
if $K_first_self and $rLL->[$K_first_self][6] eq "b"
|
|
21879
|
0 |
0 |
$Kn ? :
|
|
21884
|
0 |
0 |
if ($type_n eq '->') { }
|
|
|
0 |
0 |
elsif ($type_n eq '=') { }
|
|
21968
|
0 |
0 |
unless ($is_dump)
|
|
22021
|
0 |
0 |
unless defined $arg_count
|
|
22022
|
0 |
0 |
if ($call_type eq '->') { }
|
|
22031
|
0 |
0 |
if (not defined $max or $arg_count > $max)
|
|
22034
|
0 |
0 |
if (not defined $min or $arg_count < $min)
|
|
22065
|
0 |
0 |
if ($rcall_item->{'call_type'} eq '->') { }
|
|
22088
|
0 |
0 |
if ($seqno_sub_parent)
|
|
22090
|
0 |
0 |
if ($item)
|
|
22115
|
0 |
0 |
unless ($is_self_call)
|
|
22117
|
0 |
0 |
unless $item_self
|
|
22120
|
0 |
0 |
if ($rK_bless_list)
|
|
22129
|
0 |
0 |
if $name_blessed ne $caller_name
|
|
22134
|
0 |
0 |
unless $Kp
|
|
22137
|
0 |
0 |
if not $parent_seqno or $parent_seqno != $seqno_sub_parent
|
|
22141
|
0 |
0 |
if $K_blessed > $Ko
|
|
22152
|
0 |
0 |
if (not $is_self_call and $caller_is_dollar_self)
|
|
22160
|
0 |
0 |
if (not $is_self_call and $caller_is_dollar_self)
|
|
22163
|
0 |
0 |
if ($seqno_sub_called)
|
|
22171
|
0 |
0 |
if ($receiver and $receiver eq $caller_name || $receiver eq '$class' || $receiver eq '$_[0]') { }
|
|
22241
|
0 |
0 |
if ($is_self_call) { }
|
|
22249
|
0 |
0 |
unless ($class_name)
|
|
22277
|
0 |
0 |
unless defined $seqno_sub
|
|
22279
|
0 |
0 |
unless $rsub_item->{'prototype'}
|
|
22283
|
0 |
0 |
defined $rdirect_calls ? :
|
|
22284
|
0 |
0 |
defined $rself_calls ? :
|
|
22288
|
0 |
0 |
if $num_self
|
|
22289
|
0 |
0 |
unless $num_direct
|
|
22293
|
0 |
0 |
if ($num_self)
|
|
22294
|
0 |
0 |
if (defined $shift_count_min)
|
|
22295
|
0 |
0 |
if (defined $shift_count_max)
|
|
22301
|
0 |
0 |
if (defined $shift_count_max)
|
|
22303
|
0 |
0 |
if (not defined $standard_max or $standard_max > $shift_count_max)
|
|
22325
|
0 |
0 |
if ($rcall_item->{'is_unknown_object_call'})
|
|
22346
|
0 |
0 |
if (defined $seqno_sub) { }
|
|
22354
|
0 |
0 |
unless ($ris_my_sub_by_seqno->{$seqno_sub})
|
|
22358
|
0 |
0 |
if ($call_type eq "&" and $rsub_item->{'prototype'})
|
|
22370
|
0 |
0 |
if (defined $return_count_wanted and defined $rK_return_count_hash)
|
|
22385
|
0 |
0 |
if (defined $shift_count_min and defined $arg_count)
|
|
22386
|
0 |
0 |
if ($call_type eq "->" and not $rcall_item->{'is_oo_call'})
|
|
22393
|
0 |
0 |
if (not defined $max or $arg_count > $max)
|
|
22396
|
0 |
0 |
if (not defined $min or $arg_count < $min)
|
|
22399
|
0 |
0 |
if ($excess < 0) { }
|
|
|
0 |
0 |
elsif ($excess > 0) { }
|
|
22403
|
0 |
0 |
if (defined $shift_count_max)
|
|
22405
|
0 |
0 |
if ($excess > 0)
|
|
22420
|
0 |
0 |
if $return_count_indefinite
|
|
22423
|
0 |
0 |
unless $return_count_wanted
|
|
22426
|
0 |
0 |
if $want_scalar and $saw_wantarray
|
|
22431
|
0 |
0 |
if (not defined $max or $return_count_wanted > $max)
|
|
22434
|
0 |
0 |
if (not defined $min or $return_count_wanted < $min)
|
|
22440
|
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) { }
|
|
22441
|
0 |
0 |
if ($want_scalar) { }
|
|
22458
|
0 |
0 |
if (defined $rreturn_info)
|
|
22466
|
0 |
0 |
unless ($want_scalar)
|
|
22476
|
0 |
0 |
if (defined $rreturn_info) { }
|
|
22484
|
0 |
0 |
if ($want_scalar) { }
|
|
22520
|
0 |
0 |
if ($shift_count_min ne "*" and $shift_count_min ne $shift_count_max)
|
|
22541
|
0 |
0 |
if ($return_count_min ne "*" and $return_count_min ne $return_count_max)
|
|
22584
|
0 |
0 |
if (defined $item) { }
|
|
22605
|
0 |
0 |
defined $rself_calls ? :
|
|
22606
|
0 |
0 |
defined $rdirect_calls ? :
|
|
22607
|
0 |
0 |
defined $rover_count ? :
|
|
22608
|
0 |
0 |
defined $runder_count ? :
|
|
22612
|
0 |
0 |
if (defined $rK_return_count_hash)
|
|
22618
|
0 |
0 |
if $return_count <= 1
|
|
22628
|
0 |
0 |
if (@K_multi_returns > 1 and not $all_matched)
|
|
22646
|
0 |
0 |
unless defined $_
|
|
22654
|
0 |
0 |
if ($num_self and $num_direct and $do_mismatched_call_type{'a'})
|
|
22660
|
0 |
0 |
unless (defined $self_name)
|
|
22661
|
0 |
0 |
$num_self > 1 ? :
|
|
22662
|
0 |
0 |
$num_direct > 1 ? :
|
|
22672
|
0 |
0 |
unless (defined $rsub_item)
|
|
22679
|
0 |
0 |
if ($shift_count_min eq '*') { }
|
|
22681
|
0 |
0 |
if ($do_mismatched_call_type{$letter})
|
|
22685
|
0 |
0 |
if $shift_count_min eq $min_arg_count and $shift_count_min eq $max_arg_count
|
|
22699
|
0 |
0 |
if ($num_over_count and $do_mismatched_call_type{'o'} and $shift_count_max >= $mismatched_arg_overcount_cutoff)
|
|
22707
|
0 |
0 |
$total > 1 ? :
|
|
22717
|
0 |
0 |
if ($num_under_count)
|
|
22719
|
0 |
0 |
if ($shift_count_min > $max_shift_count_with_undercount)
|
|
22724
|
0 |
0 |
if ($do_mismatched_call_type{'u'} and $shift_count_min >= $mismatched_arg_undercount_cutoff)
|
|
22732
|
0 |
0 |
$total > 1 ? :
|
|
22746
|
0 |
0 |
if ($return_issues)
|
|
22748
|
0 |
0 |
unless $do_mismatched_return_type{$letter}
|
|
22750
|
0 |
0 |
defined $rissues ? :
|
|
22751
|
0 |
0 |
unless $number
|
|
22756
|
0 |
0 |
$total > 1 ? :
|
|
22764
|
0 |
0 |
defined $K_return_count_max ? :
|
|
22782
|
0 |
0 |
if (@{$rcall_arg_warnings;})
|
|
22785
|
0 |
0 |
if ($is_dump)
|
|
22793
|
0 |
0 |
if (not $is_dump and $number_of_undercount_warnings)
|
|
22811
|
0 |
0 |
if (@{$rreturn_warnings;})
|
|
22864
|
0 |
0 |
if (@{$rwarnings;})
|
|
22871
|
0 |
0 |
unless $Perl::Tidy::Formatter::a->{'line_number'} <=> $Perl::Tidy::Formatter::b->{'line_number'}
|
|
22886
|
0 |
0 |
if ($rcalls and ref $rcalls and @{$rcalls;})
|
|
22892
|
0 |
0 |
if ($num == 1) { }
|
|
|
0 |
0 |
elsif ($num == 2) { }
|
|
22938
|
0 |
0 |
if ($rOpts->{$wma_key})
|
|
22940
|
0 |
0 |
if ($output_lines)
|
|
22952
|
0 |
0 |
if ($rOpts->{$wmr_key})
|
|
22954
|
0 |
0 |
if ($output_lines)
|
|
22973
|
0 |
0 |
if ($output_string)
|
|
22990
|
0 |
0 |
if ($output_string)
|
|
23028
|
0 |
0 |
if (defined $Kc_last and $Ko < $Kc_last)
|
|
23035
|
0 |
0 |
if ($Kc_t > $Ko)
|
|
23038
|
0 |
0 |
unless ($is_contained)
|
|
23040
|
0 |
0 |
if ($depth > $maximum_depth) { }
|
|
23054
|
0 |
0 |
if ($output_string)
|
|
23055
|
0 |
0 |
$skipped_count ? :
|
|
23070
|
0 |
0 |
if ($output_string)
|
|
23086
|
0 |
0 |
if ($output_string)
|
|
23121
|
25 |
7 |
if (not $seqno) { }
|
|
23123
|
7 |
18 |
if ($rkeep_break_hash->{$type})
|
|
23127
|
0 |
7 |
if ($type eq "w" and $rOpts_line_up_parentheses)
|
|
23130
|
0 |
0 |
if ($seqno_parent and $ris_list_by_seqno->{$seqno_parent})
|
|
23135
|
0 |
7 |
$is_soft_keep_break_type{$type} ? :
|
|
23156
|
0 |
7 |
if ($flag)
|
|
23161
|
0 |
0 |
unless ($match)
|
|
23162
|
0 |
0 |
if ($token eq '(' or $token eq ')') { }
|
|
|
0 |
0 |
elsif ($token eq '{' or $token eq '}') { }
|
|
23171
|
0 |
0 |
if ($flag eq 'b') { }
|
|
|
0 |
0 |
elsif ($flag eq 'B') { }
|
|
23184
|
0 |
0 |
if ($match)
|
|
23186
|
0 |
0 |
$is_soft_keep_break_type{$type} ? :
|
|
23237
|
2 |
646 |
if ($rOpts->{'break-at-old-method-breakpoints'})
|
|
23245
|
4 |
12 |
if ($type eq '->') { }
|
|
|
2 |
10 |
elsif ($token eq ')') { }
|
|
23249
|
0 |
4 |
unless defined $Kp
|
|
23250
|
0 |
4 |
if $is_opening_type{$rLL->[$Kp][6]}
|
|
23254
|
0 |
4 |
unless defined $Kn
|
|
23256
|
0 |
4 |
if $token_n eq "{" or $token_n eq "["
|
|
23266
|
0 |
2 |
unless defined $Kn
|
|
23267
|
0 |
2 |
if $Kn > $Klast
|
|
23268
|
0 |
2 |
if $rLL->[$Kn][6] ne "->"
|
|
23270
|
0 |
2 |
unless $seqno
|
|
23285
|
0 |
2 |
unless defined $Kn
|
|
23287
|
0 |
2 |
if $token_n eq "{" or $token_n eq "["
|
|
23301
|
647 |
1 |
unless %keep_break_before_type or %keep_break_after_type
|
|
23323
|
3 |
645 |
if $rOpts->{'indent-only'}
|
|
23324
|
6 |
639 |
unless $rOpts_add_newlines
|
|
23344
|
12 |
627 |
if %{$rcuddled_block_types;}
|
|
23346
|
23 |
616 |
if ($rOpts->{'weld-nested-containers'})
|
|
23373
|
0 |
110 |
if ($Kend <= $Kstart)
|
|
23391
|
17 |
93 |
if (defined $rK_weld_right->{$Kend} and not defined $rK_weld_left->{$Kstart})
|
|
23400
|
9 |
630 |
if (@K_multi_weld)
|
|
23405
|
0 |
17 |
if $Kstart <= $Kend
|
|
23411
|
0 |
19 |
if ($Knext <= $Kend)
|
|
23450
|
0 |
12 |
unless %{$rcuddled_block_types;}
|
|
23453
|
0 |
12 |
unless defined $rLL and @{$rLL;}
|
|
23472
|
0 |
394 |
unless ($type_sequence)
|
|
23473
|
0 |
0 |
if $KK == 0
|
|
23490
|
72 |
322 |
if ($level < $last_level) { }
|
|
|
72 |
250 |
elsif ($level > $last_level) { }
|
|
23499
|
176 |
218 |
unless $type eq $token
|
|
23501
|
65 |
153 |
if ($token eq '{') { }
|
|
|
65 |
88 |
elsif ($token eq '}') { }
|
|
23504
|
0 |
65 |
unless ($block_type)
|
|
23508
|
0 |
0 |
unless $Kp
|
|
23511
|
18 |
47 |
if ($in_chain{$level}) { }
|
|
23521
|
0 |
0 |
unless ($rline_diff_by_seqno->{$closing_seqno} or $rbreak_container->{$closing_seqno})
|
|
23524
|
0 |
0 |
unless $CBO == 2
|
|
23531
|
18 |
0 |
if (defined $Ko)
|
|
23536
|
18 |
0 |
if (defined $Kon and $rLL->[$Kon][6] ne "#")
|
|
23544
|
18 |
0 |
if $CBO
|
|
23560
|
0 |
47 |
if ($rcuddled_block_types->{$block_type}) { }
|
|
23570
|
65 |
0 |
if ($in_chain{$level})
|
|
23575
|
8 |
57 |
unless $Knn
|
|
23579
|
18 |
39 |
if ($rcuddled_block_types->{$chain_type}{$next_nonblank_token}) { }
|
|
23612
|
0 |
23 |
unless defined $rLL and @{$rLL;}
|
|
23628
|
132 |
116 |
if $K_outer_closing < $Num and $rLL->[$K_outer_closing][6] eq "b"
|
|
23632
|
4 |
244 |
if $K_outer_closing >= $Num
|
|
23634
|
145 |
99 |
unless $outer_seqno
|
|
23640
|
27 |
72 |
if $diff < 1 or $diff > 2
|
|
23643
|
3 |
69 |
unless $is_closing_token{$token_outer_closing}
|
|
23647
|
8 |
61 |
if ($rtype_count)
|
|
23648
|
5 |
3 |
if $rtype_count->{','} or $rtype_count->{';'}
|
|
23655
|
57 |
7 |
if ($weld_ok)
|
|
23716
|
0 |
65 |
if ($seqno_diff < 1 or $seqno_diff > 2)
|
|
23725
|
64 |
1 |
unless (defined $rLL)
|
|
23739
|
0 |
65 |
unless defined $K_outer_opening
|
|
23740
|
0 |
65 |
unless defined $K_inner_opening
|
|
23745
|
3 |
62 |
if ($seqno_diff == 2)
|
|
23750
|
0 |
3 |
unless defined $K_io_check
|
|
23751
|
3 |
0 |
if ($K_io_check < $K_inner_opening)
|
|
23769
|
1 |
2 |
if not $inner_blocktype or $inner_blocktype ne "sub"
|
|
23770
|
0 |
2 |
if $rLL->[$K_io_check][4] ne "("
|
|
23790
|
0 |
2 |
unless defined $K_signature_closing
|
|
23793
|
0 |
2 |
if $Kdiff > 4
|
|
23797
|
0 |
0 |
if $rtc and $rtc->{','}
|
|
23807
|
0 |
64 |
if ($K_diff < 0)
|
|
23830
|
82 |
118 |
if $rLL->[$Kn][6] eq "b"
|
|
23831
|
65 |
53 |
unless ($nonblank_count)
|
|
23832
|
61 |
57 |
if ($Kn eq $K_inner_opening)
|
|
23839
|
0 |
57 |
if ($type eq "#")
|
|
23841
|
9 |
48 |
if $is_name and $last_is_name
|
|
23844
|
1 |
47 |
if $type eq "m" and not $last_type
|
|
23847
|
3 |
44 |
if $nonblank_count > 2
|
|
23851
|
0 |
64 |
if $saw_comment
|
|
23855
|
2 |
37 |
if (defined $Kn_last_nonblank and $rLL->[$K_inner_opening][4] eq "(" and $rLL->[$Kn_last_nonblank][6] eq "k")
|
|
23862
|
0 |
2 |
if ($is_sort_map_grep{$token})
|
|
23916
|
12 |
2 |
unless defined $rLL
|
|
23918
|
0 |
14 |
unless defined $flag
|
|
23919
|
0 |
14 |
if $flag eq 0
|
|
23920
|
0 |
14 |
if $flag eq 1
|
|
23921
|
0 |
14 |
if $flag eq "*"
|
|
23922
|
0 |
14 |
unless $seqno
|
|
23924
|
0 |
14 |
unless defined $K_opening
|
|
23928
|
14 |
0 |
if (defined $Kp)
|
|
23941
|
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') { }
|
|
23970
|
21 |
14 |
unless defined $rflags
|
|
23971
|
7 |
7 |
$is_leading ? :
|
|
23972
|
4 |
10 |
unless defined $flag
|
|
23973
|
4 |
6 |
if $flag eq "*"
|
|
24038
|
46 |
9 |
if (defined $Kprev)
|
|
24044
|
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}) { }
|
|
24064
|
0 |
0 |
if ($no_previous_seq_item and substr($type_prev, 0, 1) eq "=")
|
|
24071
|
0 |
0 |
if ($type_prev eq "=>")
|
|
24077
|
0 |
0 |
if $rLL->[$KK][6] eq "b"
|
|
24083
|
0 |
0 |
if $nb_count or $rLL->[$KK][6] ne "w"
|
|
24098
|
49 |
6 |
if ($Kref < $Kouter_opening)
|
|
24103
|
8 |
6 |
if ($rLL->[$Knext][3] == $level_oo)
|
|
24104
|
4 |
4 |
if ($is_ternary{$rLL->[$Knext][6]} or $rLL->[$Knext][4] eq ")")
|
|
24112
|
0 |
10 |
if ($Knext <= $Knext_last)
|
|
24125
|
0 |
49 |
if ($Kref < $Kouter_opening and $Kref == $Kfirst and $rLL->[$Kref][4] eq "{")
|
|
24130
|
0 |
0 |
if ($seqno_ref)
|
|
24132
|
0 |
0 |
if ($block_type)
|
|
24136
|
0 |
0 |
if ($ln_ref_c > $ln_ref_o)
|
|
24145
|
7 |
48 |
$Kref <= 0 ? :
|
|
24156
|
49 |
6 |
if ($Kref < $Kouter_opening)
|
|
24168
|
1 |
48 |
if ($lentot_oo + $maximum_text_length_oo < $starting_lentot + $maximum_text_length)
|
|
24192
|
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)
|
|
24204
|
0 |
0 |
if ($Kprev >= 0)
|
|
24219
|
0 |
0 |
unless ($is_good_location)
|
|
24237
|
0 |
10 |
$Kfirst <= 0 ? :
|
|
24244
|
0 |
10 |
if ($rOpts_ignore_side_comment_lengths and $rLL->[$Klast][6] eq "#")
|
|
24248
|
0 |
0 |
if (defined $Kprev and $Kprev >= $Kfirst)
|
|
24301
|
1 |
22 |
unless defined $rnested_pairs and @{$rnested_pairs;}
|
|
24357
|
0 |
22 |
$opening_vertical_tightness{'('} ? :
|
|
24377
|
29 |
28 |
if (defined $starting_lentot and $outer_seqno != $pair_last->[0])
|
|
24390
|
4 |
53 |
if ($Kinner_closing - $Kinner_opening <= 4)
|
|
24392
|
0 |
4 |
unless defined $Knext_nonblank
|
|
24394
|
4 |
0 |
unless $type eq "h"
|
|
24406
|
1 |
52 |
if ($inner_opening->[6] eq "L")
|
|
24411
|
0 |
52 |
if ($inner_opening->[6] eq "[")
|
|
24413
|
0 |
0 |
unless $rtype_count and $rtype_count->{','}
|
|
24420
|
0 |
0 |
if $Kdiff > 2
|
|
24422
|
0 |
0 |
if $Kdiff == 2 and $$rLL[$Kouter_opening + 1][6] ne "b"
|
|
24433
|
0 |
52 |
if ($inner_level >= $high_stress_level)
|
|
24436
|
0 |
52 |
$high_stress_level - $inner_level <= 1 ? :
|
|
24454
|
0 |
52 |
if (not $do_not_weld_rule and $rOpts_break_at_old_method_breakpoints and $iline_io > $iline_oo)
|
|
24461
|
0 |
0 |
unless defined $rK_range
|
|
24463
|
0 |
0 |
unless defined $Kfirst
|
|
24464
|
0 |
0 |
if ($rLL->[$Kfirst][6] eq "->")
|
|
24470
|
0 |
52 |
if $do_not_weld_rule
|
|
24477
|
0 |
8 |
if (%opening_vertical_tightness and $iline_ic == $iline_io and $opening_vertical_tightness{$token_oo})
|
|
24507
|
0 |
0 |
if (not $is_multiline_weld and $iline_ic == $iline_io + 1 and $token_oo eq "(" and $token_io eq "(")
|
|
24521
|
48 |
4 |
if (not defined $starting_lentot or not $weld_count_this_start and $iline_oo > $iline_outer_opening) { }
|
|
24539
|
0 |
0 |
if (not $new_weld_ok and $iline_oo != $iline_io || $iline_ic != $iline_oc)
|
|
24555
|
4 |
44 |
if ($iline_oo == $iline_oc)
|
|
24599
|
1 |
3 |
if ($level_oc > $level_last)
|
|
24604
|
1 |
3 |
if ($Kouter_opening > $Kfirst and $level_oo > $level_first)
|
|
24610
|
0 |
1 |
if $rLL->[$KK][6] eq "b"
|
|
24611
|
1 |
0 |
if $rLL->[$KK][3] < $level_oo
|
|
24628
|
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})
|
|
24663
|
1 |
2 |
if ($iline_oc == $iline_oo + 1 and $iline_io == $iline_ic and $token_oo eq "(")
|
|
24670
|
1 |
0 |
defined $Knext_nonblank ? :
|
|
24674
|
1 |
0 |
if ($next_nonblank_type eq ";")
|
|
24679
|
0 |
1 |
if ($Knext_seq_item == $Kinner_closing)
|
|
24731
|
6 |
46 |
if (not $do_not_weld_rule || $is_one_line_weld and $iline_ic == $iline_io)
|
|
24735
|
6 |
0 |
if $token_oo eq "(" or $iline_oo != $iline_io
|
|
24746
|
0 |
0 |
if (not $do_not_weld_rule and $rOpts_line_up_parentheses and $rOpts_asbl and $ris_asub_block->{$outer_seqno})
|
|
24758
|
46 |
6 |
unless ($do_not_weld_rule)
|
|
24771
|
0 |
46 |
unless defined $Knext_io
|
|
24776
|
7 |
39 |
if ($type_io_next eq "w")
|
|
24778
|
0 |
7 |
unless defined $Knext_io2
|
|
24780
|
0 |
7 |
unless ($type_ok_after_bareword{$type_io_next2})
|
|
24788
|
27 |
19 |
$is_one_line_weld || $is_multiline_weld ? :
|
|
24804
|
0 |
46 |
if ($excess > 0)
|
|
24831
|
2 |
44 |
if (not $do_not_weld_rule and $rOpts->{'cuddled-else'})
|
|
24833
|
1 |
1 |
if ($block_type and $rcuddled_block_types->{'*'}{$block_type})
|
|
24837
|
0 |
1 |
if ($oo_line < $io_line and $ic_line == $io_line)
|
|
24844
|
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))
|
|
24856
|
12 |
40 |
if ($do_not_weld_rule) { }
|
|
|
36 |
4 |
elsif ($starting_new_weld) { }
|
|
24862
|
12 |
0 |
defined $Kprev ? :
|
|
24863
|
11 |
1 |
unless ($has_tight_paren{$type_prev})
|
|
24888
|
12 |
0 |
if (not @welds or @{$welds[-1];} < 4)
|
|
24895
|
0 |
0 |
if ($rLL->[$Kouter_opening][4] ne "{" or $rLL->[$Kouter_opening][0])
|
|
24945
|
3 |
1 |
if ($iline_ic - $iline_io > 1)
|
|
24951
|
2 |
1 |
if ($is_chain_end)
|
|
24959
|
40 |
0 |
if ($dlevel != 0)
|
|
24972
|
39 |
1 |
if ($weld_starts_in_block)
|
|
24991
|
1 |
22 |
if defined $rflags and defined $rflags->[1]
|
|
24994
|
0 |
22 |
unless defined $rLL and @{$rLL;}
|
|
25017
|
39 |
32 |
if $test_type eq "b"
|
|
25018
|
0 |
32 |
if $test_type ne $quote_type
|
|
25033
|
0 |
230 |
if $Kn >= $Num - 1
|
|
25035
|
132 |
98 |
if ($next_type eq "b")
|
|
25039
|
201 |
29 |
if $next_type ne "q" and $next_type ne "Q"
|
|
25041
|
22 |
7 |
if substr($next_token, 0, 1) ne "q"
|
|
25046
|
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")
|
|
25058
|
0 |
7 |
unless $rLL->[$Kinner_closing][6] eq $next_type
|
|
25065
|
0 |
7 |
if $Kinner_closing == $Kinner_opening
|
|
25069
|
0 |
7 |
if ($inner_level >= $high_stress_level)
|
|
25077
|
0 |
7 |
unless $is_closing_token{$closing_delimiter} or $closing_delimiter eq ">"
|
|
25083
|
0 |
7 |
unless &$is_single_quote($Kinner_opening + 1, $Kinner_closing - 1, $next_type)
|
|
25109
|
0 |
2 |
if not $is_old_weld and $next_type eq "Q" and $iline_ic != $iline_oc
|
|
25117
|
0 |
7 |
unless ($ok_to_weld)
|
|
25126
|
5 |
2 |
$is_old_weld ? :
|
|
25127
|
0 |
7 |
if ($excess >= $excess_max)
|
|
25138
|
7 |
0 |
unless ($do_not_weld)
|
|
25140
|
1 |
6 |
if ($self->is_excluded_weld($Kouter_opening, $is_leading))
|
|
25150
|
6 |
1 |
unless ($do_not_weld)
|
|
25162
|
5 |
1 |
defined $rK_weld_right->{$Kouter_closing} ? :
|
|
25163
|
0 |
6 |
if ($excess_ic + $weld_len + 2 > 0)
|
|
25172
|
1 |
6 |
if ($do_not_weld)
|
|
25196
|
0 |
6 |
if ($qw_seqno and $self->[94]{$qw_seqno}) { }
|
|
25218
|
6 |
0 |
if (length $rLL->[$Kinner_closing][4] == 1)
|
|
25235
|
0 |
83 |
unless $total_weld_count and defined $seqno
|
|
25237
|
0 |
83 |
unless defined $KK_o
|
|
25266
|
3 |
645 |
if $rOpts->{'indent-only'}
|
|
25269
|
4 |
641 |
unless defined $rLL and @{$rLL;}
|
|
25271
|
640 |
1 |
unless $rOpts->{'one-line-block-nesting'}
|
|
25303
|
0 |
4 |
unless ($type_sequence)
|
|
25304
|
0 |
0 |
if $KK == 0
|
|
25317
|
0 |
4 |
if ($total_weld_count and $self->is_welded_at_seqno($type_sequence))
|
|
25324
|
0 |
4 |
unless $type eq $token
|
|
25325
|
0 |
4 |
unless $rblock_type_of_seqno->{$type_sequence}
|
|
25332
|
1 |
3 |
if ($iline != $iline_last)
|
|
25334
|
2 |
2 |
if ($token eq "}")
|
|
25335
|
2 |
0 |
if (@open_block_stack)
|
|
25337
|
2 |
2 |
unless $token eq "{"
|
|
25342
|
0 |
2 |
unless defined $K_opening and defined $K_closing
|
|
25347
|
0 |
2 |
if $rline_diff_by_seqno->{$type_sequence} or $rbreak_container->{$type_sequence}
|
|
25351
|
0 |
2 |
$KK <= 0 ? :
|
|
25360
|
0 |
2 |
if (&$excess_length_to_K($K_closing) > 0)
|
|
25370
|
1 |
1 |
if @open_block_stack <= 1
|
|
25395
|
4 |
644 |
unless @{$rLL;}
|
|
25417
|
7 |
637 |
if $rOpts_extended_continuation_indentation
|
|
25437
|
0 |
644 |
if ($min_starting_level < 0)
|
|
25439
|
0 |
0 |
if ($item->[3] < 0)
|
|
25445
|
0 |
644 |
unless defined $radjusted_levels and @{$radjusted_levels;}
|
|
25447
|
0 |
644 |
if ($min < 0)
|
|
25450
|
0 |
0 |
if $_ < 0
|
|
25467
|
642 |
2 |
unless %{$rseqno_non_indenting_brace_by_ix;}
|
|
25486
|
6 |
0 |
if defined $Kc
|
|
25488
|
0 |
2 |
unless @K_stack
|
|
25496
|
8 |
4 |
if ($ndeep > 0)
|
|
25504
|
6 |
2 |
if ($inc < 0)
|
|
25519
|
0 |
644 |
unless defined $rLL and @{$rLL;}
|
|
25523
|
2 |
0 |
if ($rOpts_whitespace_cycle and $rOpts_whitespace_cycle > 0 and $rOpts_whitespace_cycle < $maximum_level)
|
|
25537
|
26 |
208 |
if ($level_abs < $whitespace_last_level)
|
|
25540
|
2 |
232 |
if (not @whitespace_level_stack) { }
|
|
25544
|
26 |
206 |
if ($level_abs > $whitespace_last_level)
|
|
25548
|
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)
|
|
25575
|
150 |
84 |
if ($type ne "b")
|
|
25596
|
637 |
7 |
unless %break_before_container_types
|
|
25599
|
0 |
7 |
unless defined $rLL and @{$rLL;}
|
|
25620
|
0 |
7 |
if ($rOpts_ignore_old_breakpoints)
|
|
25642
|
2 |
45 |
if $rblock_type_of_seqno->{$seqno}
|
|
25655
|
0 |
45 |
if ($total_weld_count)
|
|
25657
|
0 |
0 |
if (defined $KK_test)
|
|
25659
|
0 |
0 |
if ($seqno_inner)
|
|
25666
|
4 |
7 |
unless $is_list or $has_list and $has_list == 1
|
|
25673
|
25 |
16 |
unless $break_option
|
|
25679
|
0 |
16 |
if ($level >= $stress_level_beta)
|
|
25688
|
0 |
16 |
if $Kprev < 0
|
|
25690
|
16 |
0 |
if ($prev_type eq "b")
|
|
25692
|
0 |
16 |
if $Kprev < 0
|
|
25695
|
2 |
14 |
unless $is_equal_or_fat_comma{$prev_type}
|
|
25710
|
2 |
12 |
if ($break_option == 2)
|
|
25715
|
0 |
2 |
if ($rOpts_line_up_parentheses or $rOpts_variable_maximum_line_length or $b1469)
|
|
25724
|
0 |
0 |
unless ($is_complex)
|
|
25726
|
0 |
0 |
if ($self->is_list_by_seqno($parent))
|
|
25734
|
0 |
0 |
unless ($is_complex)
|
|
25736
|
0 |
0 |
defined $Kp ? :
|
|
25737
|
0 |
0 |
if ($is_opening_token{$token_p} and $token_p ne "(")
|
|
25743
|
0 |
0 |
if (defined $Km)
|
|
25749
|
0 |
0 |
if ($type_m eq ",")
|
|
25751
|
0 |
0 |
defined $Km ? :
|
|
25761
|
0 |
0 |
unless $is_complex
|
|
25779
|
0 |
14 |
if ($break_option == 1) { }
|
|
|
2 |
12 |
elsif ($break_option == 2) { }
|
|
|
12 |
0 |
elsif ($break_option == 3) { }
|
|
25784
|
0 |
0 |
unless $KK == $Kfirst
|
|
25793
|
1 |
1 |
if ($has_list_with_lec)
|
|
25798
|
1 |
1 |
unless ($ok_to_break)
|
|
25806
|
0 |
1 |
if ($has_list)
|
|
25809
|
1 |
0 |
if ($self->is_list_by_seqno($parent))
|
|
25815
|
0 |
2 |
unless ($ok_to_break)
|
|
25826
|
0 |
2 |
if $rOpts_line_up_parentheses
|
|
25851
|
10 |
4 |
unless $ci_flag
|
|
25855
|
2 |
2 |
if ($ci_flag == 1)
|
|
25864
|
0 |
2 |
if ($rOpts_variable_maximum_line_length)
|
|
25883
|
0 |
2 |
unless $rline_diff_by_seqno->{$seqno}
|
|
25888
|
0 |
2 |
if not $rOpts_add_whitespace and $rOpts_continuation_indentation > $rOpts_indent_columns
|
|
25892
|
0 |
2 |
if ($ris_permanently_broken->{$seqno}) { }
|
|
|
1 |
1 |
elsif ($has_list_with_lec) { }
|
|
|
0 |
1 |
elsif ($self->[41]{$seqno}) { }
|
|
25905
|
0 |
1 |
unless $rlec_count_by_seqno->{$seqno}
|
|
25913
|
0 |
1 |
%break_at_old_comma_types ? :
|
|
25916
|
0 |
1 |
if ($break_at_old_commas)
|
|
25920
|
1 |
0 |
unless ($OK or $rOpts_ignore_old_breakpoints)
|
|
25922
|
0 |
1 |
unless $rtype_count
|
|
25926
|
1 |
0 |
if ($fat_comma_count and $fat_comma_count >= 2)
|
|
25934
|
0 |
1 |
unless ($OK)
|
|
25945
|
0 |
0 |
if ($excess_length > $length_tol) { }
|
|
25975
|
0 |
2 |
unless $ci
|
|
25978
|
0 |
2 |
if ($ci_flag == 1) { }
|
|
|
2 |
0 |
elsif ($ci_flag == 2) { }
|
|
25988
|
2 |
0 |
if (not $rOpts_whitespace_cycle or $rLL->[$KK][3] < $rOpts_whitespace_cycle)
|
|
26004
|
2 |
0 |
if $ci >= 0
|
|
26044
|
0 |
7 |
unless defined $rLL and @{$rLL;}
|
|
26076
|
155 |
85 |
if ($seqno_top)
|
|
26083
|
328 |
290 |
if $rLL->[$Kt][0]
|
|
26088
|
167 |
0 |
if ($is_list or $rLL->[$Kt][5] < $space or $rLL->[$Kt][6] eq "#")
|
|
26105
|
75 |
165 |
if ($seqno_top and $seqno == $seqno_top)
|
|
26119
|
6 |
26 |
if ($block_with_ci and $rOpts_line_up_parentheses and $KK == $K_opening_container->{$seqno})
|
|
26125
|
5 |
1 |
$Kprev ? :
|
|
26126
|
2 |
4 |
if ($type_prev eq '=' or $type_prev eq ';') { }
|
|
|
0 |
4 |
elsif ($type_prev eq ',') { }
|
|
|
3 |
1 |
elsif ($type_prev eq '{') { }
|
|
26131
|
0 |
0 |
if ($self->[39]{$parent_seqno})
|
|
26137
|
3 |
0 |
if ($seqno_prev)
|
|
26139
|
0 |
3 |
if ($token_prev ne "(" or $self->[39]{$seqno})
|
|
26153
|
16 |
0 |
if ($block_with_ci and $rLL->[$KK][4] eq "}" and $rLL->[$KK][0])
|
|
26160
|
3 |
13 |
if ($block_type eq "do")
|
|
26162
|
0 |
3 |
if ($Knext and $rLL->[$Knext][6] eq "k")
|
|
26164
|
0 |
0 |
if ($token_n eq "while" or $token_n eq "until")
|
|
26170
|
16 |
0 |
unless ($is_do_while)
|
|
26175
|
14 |
226 |
if ($block_with_ci) { }
|
|
26177
|
11 |
3 |
if ($seqno_top)
|
|
26185
|
71 |
155 |
unless ($rLL->[$KK][0])
|
|
26186
|
37 |
34 |
if ($seqno_top)
|
|
26197
|
94 |
75 |
unless defined $K_opening and $KK == $K_opening
|
|
26202
|
0 |
75 |
unless defined $K_closing
|
|
26205
|
0 |
75 |
if $rno_xci_by_seqno->{$seqno}
|
|
26211
|
0 |
75 |
if $ris_bli_container->{$seqno}
|
|
26216
|
0 |
75 |
if ($rLL->[$K_opening][2] == $rLL->[$K_closing][2] and $rLL->[$K_closing][1] - $rLL->[$K_opening][1] > $rOpts_maximum_line_length)
|
|
26241
|
0 |
75 |
if ($level >= $stress_level_beta)
|
|
26252
|
0 |
75 |
if ($space < 0)
|
|
26261
|
36 |
39 |
if $seqno_top
|
|
26283
|
619 |
2 |
unless $rOpts_bl or $rOpts_sbl or $rOpts_asbl
|
|
26286
|
0 |
25 |
unless defined $rLL and @{$rLL;}
|
|
26299
|
14 |
50 |
if ($ris_asub_block->{$seqno}) { }
|
|
|
5 |
45 |
elsif ($ris_sub_block->{$seqno}) { }
|
|
26300
|
10 |
4 |
if ($rOpts_asbl)
|
|
26307
|
4 |
1 |
if ($rOpts_sbl)
|
|
26314
|
22 |
13 |
if ($rOpts_bl and $block_type =~ /$bl_pattern/ and not $block_type =~ /$bl_exclusion_pattern/)
|
|
26331
|
638 |
6 |
unless $rOpts->{'brace-left-and-indent'}
|
|
26333
|
0 |
6 |
unless defined $rLL and @{$rLL;}
|
|
26343
|
25 |
24 |
if ($block_type and $block_type =~ /$bli_pattern/ and not $block_type =~ /$bli_exclusion_pattern/)
|
|
26351
|
25 |
0 |
if (defined $Ko and defined $Kc)
|
|
26382
|
3 |
645 |
if (not defined $rqw_lines) { }
|
|
26389
|
612 |
33 |
unless (@{$rqw_lines;})
|
|
26412
|
0 |
221 |
unless $line_type eq "CODE"
|
|
26415
|
3 |
218 |
unless defined $Kfirst and defined $Klast
|
|
26418
|
162 |
56 |
if (defined $K_start_multiline_qw)
|
|
26422
|
0 |
162 |
if ($type ne "q")
|
|
26431
|
162 |
0 |
defined $Kprev ? :
|
|
26432
|
162 |
0 |
defined $Knext ? :
|
|
26433
|
36 |
126 |
if ($type_m eq "q" and $type_p ne "q")
|
|
26443
|
45 |
173 |
if (not defined $K_start_multiline_qw and $rLL->[$Klast][6] eq "q")
|
|
26448
|
45 |
0 |
defined $Kprev ? :
|
|
26449
|
45 |
0 |
defined $Knext ? :
|
|
26450
|
36 |
9 |
if ($type_m ne "q" and $type_p eq "q")
|
|
26462
|
1 |
35 |
if ($rOpts_extended_continuation_indentation)
|
|
26471
|
0 |
1 |
unless $is_isolated_closing
|
|
26477
|
0 |
1 |
if (length $token_beg > 3 and substr($token_beg, 2, 1) =~ /\s/)
|
|
26482
|
0 |
1 |
unless length $token_beg == 3
|
|
26496
|
0 |
36 |
if ($rOpts_line_up_parentheses and not $rOpts_extended_line_up_parentheses)
|
|
26502
|
0 |
0 |
unless $parent_seqno
|
|
26508
|
0 |
0 |
defined $Kn ? :
|
|
26509
|
0 |
0 |
if (defined $seqno_n and $seqno_n eq $parent_seqno)
|
|
26512
|
0 |
0 |
defined $Kp ? :
|
|
26514
|
0 |
0 |
if (defined $seqno_p and $seqno_p eq $parent_seqno)
|
|
26519
|
0 |
0 |
unless $is_tightly_contained
|
|
26583
|
0 |
0 |
if ($total_weld_count and $block_type eq "sub")
|
|
26585
|
0 |
0 |
if (defined $KK_o and defined $self->[76]{$KK_o})
|
|
26590
|
0 |
0 |
if ($is_sort_map_grep_eval{$block_type} or $block_type eq "t" or $self->[42]{$seqno})
|
|
26628
|
5 |
0 |
if (%closing_vertical_tightness)
|
|
26631
|
15 |
0 |
if not $cvt or $cvt != 2
|
|
26654
|
1 |
26 |
if ($rLL->[$KK][6] eq "b")
|
|
26656
|
21 |
6 |
if ($KK < $K_comma and $is_comma_token{$rLL->[$K_comma][6]} 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])
|
|
26692
|
0 |
0 |
if (defined $K_prev and not $is_interrupted and $K_prev >= $KK and $rLL->[$K_prev][7])
|
|
26699
|
0 |
0 |
if ($closing_vertical_tightness{$token} and $type ne "R")
|
|
26705
|
21 |
0 |
$KK >= 0 ? :
|
|
26769
|
10 |
16 |
if $last_nonblank_type eq ","
|
|
26770
|
16 |
0 |
if $is_opening_type{$last_nonblank_type}
|
|
26774
|
0 |
0 |
unless $K_prev
|
|
26776
|
0 |
0 |
if $type_prev eq "#"
|
|
26780
|
0 |
0 |
if $type_first eq ","
|
|
26783
|
0 |
0 |
if $type_first eq "Q" and $type_prev eq "Q"
|
|
26784
|
0 |
0 |
if $type_first eq "q" and $type_prev eq "q"
|
|
26789
|
0 |
0 |
if $ln_prev < $ln - 1
|
|
26792
|
0 |
0 |
if ($last_nonblank_type ne "=>")
|
|
26801
|
0 |
0 |
if $type eq "b"
|
|
26814
|
0 |
0 |
if ($is_binary_operator_type{$type})
|
|
26818
|
0 |
0 |
if ($is_opening_type{$type})
|
|
26836
|
0 |
0 |
if ($Kc and $Kc > $K_test)
|
|
26864
|
0 |
182 |
if ($skip_next_line)
|
|
26869
|
2 |
180 |
if $line_type ne "CODE"
|
|
26873
|
37 |
143 |
if $CODE_type eq "BL"
|
|
26888
|
0 |
143 |
unless defined $K_first and defined $K_last
|
|
26893
|
7 |
136 |
if $has_comment and $K_first == $K_last
|
|
26900
|
0 |
136 |
if ($rLL->[$K_first][6] eq 'q') { }
|
|
|
12 |
124 |
elsif ($rLL->[$K_first][6] eq 'Q') { }
|
|
26907
|
0 |
0 |
unless (defined $K_start_multiline_qw)
|
|
26913
|
0 |
0 |
unless ($seqno_qw)
|
|
26915
|
0 |
0 |
if (defined $Kp and $rLL->[$Kp][6] eq 'q') { }
|
|
26929
|
0 |
0 |
if (defined $K_start_multiline_qw)
|
|
26939
|
0 |
0 |
if ($ci_level) { }
|
|
26947
|
0 |
0 |
if ($level > $level_start_multiline_qw)
|
|
26952
|
0 |
0 |
if ($len > $max_prong_len)
|
|
26959
|
0 |
0 |
if $K_begin_loop > $K_last
|
|
26966
|
3 |
9 |
if ($line_of_tokens->{'_starting_in_quote'})
|
|
26968
|
3 |
0 |
if $K_begin_loop > $K_last
|
|
26978
|
5 |
128 |
if ($has_comment)
|
|
26980
|
5 |
0 |
if $rLL->[$K_terminal][6] eq "b" and $K_terminal > $K_first
|
|
26986
|
54 |
79 |
if (@stack and $stack[-1][6])
|
|
26988
|
54 |
0 |
if (defined $K_c)
|
|
26998
|
2 |
52 |
if ($is_opening_type{$rLL->[$K_terminal][6]} and not $has_comment)
|
|
27017
|
0 |
2 |
if (defined $Kc_test and $seqno_end and $seqno_end == $rLL->[$Kc_test][7] and $rLL->[$Kc_test][2] == $iline + 1)
|
|
27029
|
0 |
0 |
if (defined $K_terminal_next and $rLL->[$K_terminal_next][6] eq "#")
|
|
27034
|
0 |
0 |
if (defined $Kprev and $Kprev >= $K_first_next)
|
|
27041
|
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)
|
|
27076
|
26 |
28 |
if ($rLL->[$K_terminal][6] eq "," and not &$skip_line_length_sum($K_first, $K_terminal))
|
|
27089
|
0 |
26 |
if ($last_nonblank_type eq "=>")
|
|
27092
|
18 |
8 |
if ($length > $max_prong_len) { }
|
|
|
0 |
8 |
elsif ($K_terminal == $K_first and $rOpts_ignore_side_comment_lengths and $has_comment) { }
|
|
27105
|
0 |
0 |
$want_left_space{','} == 1 ? :
|
|
27121
|
5 |
128 |
if ($has_comment)
|
|
27122
|
0 |
5 |
if ($rOpts_ignore_side_comment_lengths) { }
|
|
27129
|
5 |
0 |
$K_terminal > 0 ? :
|
|
27134
|
2 |
3 |
if ($len > $max_prong_len)
|
|
27182
|
201 |
493 |
if ($type = $rLL->[$KK][6]) eq "b"
|
|
27188
|
124 |
369 |
if ($seqno)
|
|
27195
|
62 |
62 |
if ($is_opening_token{$token} and defined $K_closing_container->{$seqno}) { }
|
|
|
62 |
0 |
elsif ($is_closing_token{$token} and @stack) { }
|
|
27205
|
10 |
52 |
if ($rblock_type_of_seqno->{$seqno}) { }
|
|
27213
|
41 |
11 |
if ($is_handle_type{$last_nonblank_type})
|
|
27218
|
0 |
41 |
if ($last_nonblank_type eq '=>' and $break_before_container_types{$token}) { }
|
|
27225
|
23 |
18 |
if $KK > 0 and $$rLL[$KK - 1][6] eq "b"
|
|
27236
|
0 |
0 |
if ($has_vtc2 and $ris_list_by_seqno->{$seqno} and $rline_diff_by_seqno->{$seqno} and not $ris_permanently_broken->{$seqno} and @stack and defined $stack[-1][6] and $stack[-1][6] == 0)
|
|
27264
|
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)
|
|
27285
|
0 |
17 |
$rhas_broken_list->{$seqno} ? :
|
|
27293
|
1 |
16 |
if ($interrupted_list_rule and $KK < $K_terminal and $is_comma_token{$rLL->[$K_terminal][6]})
|
|
27337
|
0 |
62 |
if ($seqno_o ne $seqno)
|
|
27355
|
10 |
52 |
if ($block_type)
|
|
27361
|
10 |
0 |
if (defined $K_o and defined $K_c)
|
|
27372
|
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) { }
|
|
27414
|
0 |
62 |
if ($self->[95]{$seqno})
|
|
27421
|
62 |
0 |
if (@stack)
|
|
27424
|
35 |
27 |
if ($collapsed_len > $max_prong_len)
|
|
27446
|
11 |
358 |
if ($type eq '=>') { }
|
|
|
9 |
349 |
elsif ($last_nonblank_type eq '=>') { }
|
|
|
1 |
348 |
elsif ($type eq 'h') { }
|
|
27450
|
0 |
11 |
unless ($rOpts_add_whitespace)
|
|
27451
|
0 |
0 |
if (defined $$rLL[$KK + 1] and $$rLL[$KK + 1][6] ne "b")
|
|
27458
|
3 |
8 |
if ($len > $max_prong_len)
|
|
27462
|
1 |
8 |
if ($len > $max_prong_len)
|
|
27472
|
1 |
0 |
if ($len > $max_prong_len)
|
|
27478
|
63 |
285 |
if ($len > $max_prong_len)
|
|
27514
|
255 |
79 |
unless (defined $rflags)
|
|
27526
|
39 |
40 |
unless ($match_flag1)
|
|
27531
|
39 |
0 |
if (defined $Kp)
|
|
27546
|
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') { }
|
|
27561
|
66 |
13 |
if ($line_up_parentheses_control_is_lpxl) { }
|
|
27562
|
45 |
21 |
if $match_flag1
|
|
27565
|
4 |
9 |
unless $match_flag1
|
|
27579
|
30 |
0 |
if ($flag2)
|
|
27588
|
7 |
8 |
if (not $is_list or $has_list or $flag2 eq 2 and $has_code_block || $has_ternary)
|
|
27605
|
614 |
34 |
unless $rOpts_line_up_parentheses
|
|
27607
|
0 |
34 |
unless defined $rLL and @{$rLL;}
|
|
27616
|
43 |
334 |
if $rblock_type_of_seqno->{$seqno}
|
|
27619
|
0 |
334 |
unless defined $KK
|
|
27622
|
71 |
263 |
if ($self->is_excluded_lp($KK))
|
|
27634
|
633 |
8 |
unless %keep_old_blank_lines_exceptions
|
|
27662
|
0 |
2 |
if $ii < 0
|
|
27665
|
0 |
2 |
if $line_type ne "CODE"
|
|
27669
|
0 |
2 |
unless defined $Klast
|
|
27696
|
0 |
42 |
if $line_type ne "CODE"
|
|
27704
|
0 |
42 |
unless defined $Klast
|
|
27709
|
9 |
33 |
if ($type_last eq "#")
|
|
27712
|
6 |
3 |
if ($Klast eq $Kfirst)
|
|
27715
|
2 |
4 |
if ($top_control->{$type_last})
|
|
27720
|
1 |
1 |
defined $Kn && $rLL->[$Kn][6] eq '#' ? :
|
|
27731
|
0 |
3 |
if not defined $Klast or $Klast < $Kfirst
|
|
27736
|
5 |
31 |
if ($top_control->{$type_last})
|
|
27740
|
0 |
5 |
if ($type_last ne "{" and $type_last ne "}")
|
|
27746
|
0 |
5 |
unless $seqno
|
|
27748
|
4 |
1 |
if ($block_type and $block_type =~ /$Blank_lines_after_opening_block_pattern/)
|
|
27755
|
3 |
1 |
if ($Klast_true == $Klast)
|
|
27759
|
0 |
1 |
if (not defined $Kn or $rLL->[$Kn][6] ne "#")
|
|
27769
|
1 |
0 |
if ($token =~ /$static_side_comment_pattern/)
|
|
27774
|
0 |
0 |
unless defined $rinfo
|
|
27778
|
0 |
0 |
if ($CODE_type_bottom eq "SBC" or $CODE_type_bottom eq "SBCX")
|
|
27817
|
0 |
70 |
if $line_type ne "CODE"
|
|
27821
|
0 |
70 |
unless defined $Klast
|
|
27823
|
20 |
50 |
if ($type_last eq "#")
|
|
27826
|
15 |
5 |
if ($Klast eq $Kfirst)
|
|
27829
|
3 |
12 |
if ($bottom_control->{$type_last})
|
|
27834
|
1 |
2 |
if (not defined $Kp or $rLL->[$Kp][6] ne "#")
|
|
27842
|
0 |
2 |
unless defined $rinfo
|
|
27848
|
1 |
1 |
if ($Kfirst_top == $Klast_top)
|
|
27853
|
0 |
1 |
if ($type_top ne "#")
|
|
27865
|
1 |
0 |
if ($token_top =~ /$Static_side_comment_pattern/)
|
|
27872
|
0 |
0 |
if ($CODE_type eq "SBC" or $CODE_type eq "SBCX")
|
|
27887
|
0 |
5 |
if not defined $Klast or $Klast < $Kfirst
|
|
27898
|
30 |
25 |
if ($type_first eq "k")
|
|
27899
|
2 |
4 |
if ($bottom_control->{'{'} and $is_if_unless_while_until_for_foreach{$token_first} and not $rLL->[$Kfirst][0])
|
|
27912
|
6 |
22 |
if ($bottom_control->{'S'})
|
|
27913
|
0 |
6 |
if ($token_first eq "BEGIN" or $token_first eq "END")
|
|
27921
|
5 |
20 |
if ($bottom_control->{$type_first})
|
|
27924
|
2 |
3 |
if ($type_first eq '}') { }
|
|
|
1 |
2 |
elsif ($type_first eq 'P') { }
|
|
|
2 |
0 |
elsif ($type_first eq 'S') { }
|
|
27926
|
0 |
2 |
unless $seqno
|
|
27928
|
0 |
2 |
unless $block_type
|
|
27929
|
2 |
0 |
if ($block_type =~ /$Blank_lines_before_closing_block_pattern/)
|
|
27965
|
0 |
112 |
unless (defined $i_first_blank and defined $i_last_blank)
|
|
27969
|
42 |
70 |
if ($top_control and $i_first_blank > 0)
|
|
27974
|
70 |
36 |
if (not $delete_blanks and $bottom_control and not $ending_in_blank)
|
|
27980
|
16 |
96 |
if ($delete_blanks)
|
|
27984
|
2 |
14 |
if ($delete_blanks < 0)
|
|
27986
|
14 |
0 |
unless (defined $rwant_blank_line_after->{$ii})
|
|
28003
|
0 |
288 |
if ($line_type ne "CODE")
|
|
28004
|
0 |
0 |
if (defined $i_last_blank)
|
|
28010
|
112 |
176 |
if ($CODE_type eq 'BL') { }
|
|
28011
|
112 |
0 |
unless (defined $i_first_blank)
|
|
28017
|
112 |
64 |
if (defined $i_first_blank)
|
|
28022
|
0 |
8 |
if (defined $i_first_blank)
|
|
28053
|
641 |
7 |
if $rOpts_keep_old_blank_lines == 1
|
|
28062
|
12 |
8956 |
if (defined $rwant_blank_line_after->{$i} and $rwant_blank_line_after->{$i} == 1)
|
|
28094
|
14 |
8954 |
if ($last_line_type eq "POD_END" and not $self->[74])
|
|
28097
|
0 |
12 |
unless ($in_format_skipping_section or $input_line =~ /^\s*$/)
|
|
28103
|
8772 |
196 |
if ($line_type eq 'CODE') { }
|
|
28109
|
1044 |
7728 |
if ($CODE_type eq 'BL') { }
|
|
28121
|
17 |
978 |
if ($kgb_keep == 1 and defined $rwant_blank_line_after->{$i} and $rwant_blank_line_after->{$i} == 2)
|
|
28129
|
0 |
1044 |
if ($i - $i_last_POD_END < 3 and not $kgb_keep)
|
|
28133
|
1002 |
42 |
if ($kgb_keep)
|
|
28145
|
3 |
7725 |
if ($save_logfile and $logger_object)
|
|
28150
|
3 |
0 |
if (defined $Kfirst)
|
|
28164
|
151 |
7577 |
if ($CODE_type eq "VB" or $CODE_type eq "FS")
|
|
28179
|
73 |
123 |
if (substr($line_type, 0, 3) eq 'POD') { }
|
|
|
8 |
115 |
elsif ($line_type eq 'END_START' or $line_type eq 'DATA_START') { }
|
|
|
2 |
113 |
elsif ($line_type eq 'SKIP_END') { }
|
|
28184
|
12 |
61 |
if ($rOpts->{'delete-pod'})
|
|
28185
|
6 |
67 |
if ($rOpts->{'trim-pod'})
|
|
28190
|
10 |
45 |
if (not $skip_line || $in_format_skipping_section and $line_type eq "POD_START" and not $self->[74])
|
|
28216
|
184 |
12 |
unless ($skip_line)
|
|
28280
|
0 |
636 |
if ($rOpts_kgb_size_min and not $rOpts_kgb_size_min =~ /^\d+$/ or $rOpts_kgb_size_max and not $rOpts_kgb_size_max =~ /^\d+$/)
|
|
28292
|
0 |
636 |
unless $rOpts_kgb_size_min
|
|
28294
|
0 |
636 |
if ($rOpts_kgb_size_max and $rOpts_kgb_size_max < $rOpts_kgb_size_min)
|
|
28310
|
630 |
6 |
unless $ok
|
|
28313
|
0 |
0 |
if ($rOpts_kgb_size_max and $rOpts_kgb_after == 2 and $rOpts_kgb_before == 0)
|
|
28369
|
630 |
6 |
if ($quit)
|
|
28392
|
0 |
12 |
if (defined $rhash_of_desires->{$ip} and $rhash_of_desires->{$ip} == 2)
|
|
28404
|
0 |
9 |
unless $rOpts_kgb_inside
|
|
28423
|
5 |
18 |
if ($num >= $rOpts_kgb_size_min)
|
|
28430
|
0 |
0 |
if (@iblanks and not $rOpts_kgb_delete and $rOpts->{'keep-old-blank-lines'})
|
|
28442
|
3 |
2 |
if ($nog_b and $k > $kbeg)
|
|
28445
|
2 |
3 |
if ($nog_e and $k < $kend)
|
|
28460
|
0 |
0 |
if $i < 0 or $i >= @{$rlines;}
|
|
28461
|
0 |
0 |
if $rlines->[$i]{'_line_type'} ne "CODE"
|
|
28463
|
0 |
0 |
if ($code_type eq "BL")
|
|
28470
|
5 |
1 |
unless @iblanks
|
|
28473
|
1 |
0 |
if ($ibl < $iend)
|
|
28478
|
0 |
1 |
unless $rOpts_kgb_delete
|
|
28498
|
9 |
16 |
if (defined $ibeg and $ibeg >= 0)
|
|
28501
|
6 |
3 |
if ($count >= $rOpts_kgb_size_min)
|
|
28509
|
6 |
0 |
if ($ibeg > 0)
|
|
28514
|
2 |
4 |
if ($ibeg == 1 and not $code_type)
|
|
28516
|
1 |
1 |
if $line_text and $line_text =~ /^#/
|
|
28522
|
4 |
2 |
unless ($code_type =~ /(?:BC|SBC|SBCX)/)
|
|
28523
|
4 |
0 |
if ($rOpts_kgb_before == 2) { }
|
|
|
0 |
0 |
elsif ($rOpts_kgb_before == 0) { }
|
|
28541
|
5 |
1 |
if ($line_type eq "CODE" and defined $K_first)
|
|
28551
|
3 |
0 |
if ($level == $level_beg and $ci_level == 0 and not $bad_ending and $iend < @{$rlines;} and $CODE_type ne "HSC")
|
|
28557
|
3 |
0 |
if ($rOpts_kgb_after == 2) { }
|
|
|
0 |
0 |
elsif ($rOpts_kgb_after == 0) { }
|
|
28592
|
0 |
75 |
unless defined $Knext_nonblank
|
|
28595
|
68 |
7 |
if $level_next != $level_beg + 1
|
|
28599
|
0 |
7 |
unless defined $parent_seqno
|
|
28603
|
0 |
7 |
if $total_weld_count and $self->is_welded_at_seqno($parent_seqno)
|
|
28608
|
0 |
7 |
if not defined $Ko or $Ko <= $K_first or $Ko > $K_last
|
|
28612
|
0 |
7 |
if not defined $Kc or $Kc <= $K_last
|
|
28626
|
0 |
75 |
if ($rOpts_kgb_size_max and $count >= $rOpts_kgb_size_max)
|
|
28630
|
9 |
66 |
if (@group == 0)
|
|
28640
|
23 |
52 |
if (not @group or $token ne $group[-1][1])
|
|
28675
|
12 |
636 |
unless ($rOpts_maximum_consecutive_blank_lines)
|
|
28683
|
630 |
6 |
if ($quit)
|
|
28700
|
0 |
180 |
if $Opt_repeat_count > 0 and $number_of_groups_seen >= $Opt_repeat_count
|
|
28708
|
5 |
175 |
if ($line_type ne "CODE")
|
|
28713
|
0 |
175 |
if ($CODE_type and $CODE_type eq "FS")
|
|
28719
|
6 |
169 |
if ($CODE_type eq "VB")
|
|
28720
|
6 |
0 |
if ($ibeg >= 0)
|
|
28725
|
5 |
164 |
if ($CODE_type eq "BL")
|
|
28726
|
3 |
2 |
if ($ibeg >= 0)
|
|
28740
|
0 |
164 |
unless (defined $K_first)
|
|
28763
|
118 |
46 |
if ($ibeg >= 0)
|
|
28766
|
19 |
99 |
if (defined $K_closing and $K_first < $K_closing) { }
|
|
|
1 |
98 |
elsif ($level != $level_beg) { }
|
|
28767
|
1 |
18 |
if $level != $level_beg + 1
|
|
28780
|
36 |
128 |
unless ($self->is_in_block_by_K($K_first))
|
|
28781
|
16 |
20 |
if ($ibeg >= 0)
|
|
28786
|
0 |
5 |
if ($CODE_type and $keyword_group_list_comment_pattern and $CODE_type =~ /$keyword_group_list_comment_pattern/)
|
|
28794
|
0 |
0 |
if ($ibeg >= 0 and $level == $level_beg) { }
|
|
28803
|
0 |
0 |
if ($ibeg >= 0)
|
|
28811
|
75 |
53 |
if ($ci_level == 0 and $type eq 'k' and $token =~ /$keyword_group_list_pattern/) { }
|
|
|
34 |
19 |
elsif ($ibeg >= 0) { }
|
|
28817
|
66 |
9 |
if ($ibeg >= 0 and $level == $level_beg) { }
|
|
28826
|
0 |
9 |
if ($ibeg >= 0)
|
|
28838
|
0 |
34 |
if ($level > $level_beg + 1 or $level < $level_beg)
|
|
28847
|
25 |
9 |
if ($level == $level_beg and $ci_level > 0 or $CODE_type eq "HSC")
|
|
28856
|
4 |
5 |
if (defined $K_closing and $K_first <= $K_closing)
|
|
28859
|
3 |
1 |
if ($K_last <= $K_closing)
|
|
28863
|
0 |
1 |
if ($rLL->[$KK][6] eq ";")
|
|
28864
|
0 |
0 |
if ($KK < $K_last)
|
|
28865
|
0 |
0 |
if ($$rLL[++$KK][6] eq "b")
|
|
28866
|
0 |
0 |
if ($KK > $K_last or $rLL->[$KK][6] ne "#")
|
|
29018
|
0 |
5608 |
if $ii < 0
|
|
29020
|
511 |
5097 |
ref $indentation ? :
|
|
29092
|
58233 |
5555 |
if ($max_index_to_go >= 0) { }
|
|
29093
|
0 |
58233 |
if ($Ktoken_vars != $K_to_go[$max_index_to_go] + 1) { }
|
|
|
0 |
58233 |
elsif ($type eq 'b' and $types_to_go[$max_index_to_go] eq 'b') { }
|
|
29119
|
216 |
5339 |
if ($type eq "b")
|
|
29123
|
5339 |
58233 |
unless (++$max_index_to_go)
|
|
29141
|
1005 |
4334 |
if ($seqno) { }
|
|
29146
|
3939 |
395 |
if (defined $Kt)
|
|
29149
|
571 |
3368 |
if ($is_closing_type{$rLL->[$Kt][6]}) { }
|
|
29160
|
0 |
5339 |
unless defined $next_parent_seqno
|
|
29216
|
10883 |
52689 |
if ($seqno)
|
|
29223
|
5275 |
5608 |
if ($is_opening_token{$token}) { }
|
|
|
5224 |
384 |
elsif ($is_closing_token{$token}) { }
|
|
29239
|
0 |
5224 |
unless defined $parent_seqno
|
|
29255
|
37967 |
25605 |
if ($ci_level)
|
|
29261
|
21 |
63551 |
if ($current_line_starts_in_quote and $Ktoken_vars == $K_first)
|
|
29265
|
21 |
0 |
if ($max_index_to_go == 0)
|
|
29286
|
0 |
5336 |
if $max_index_to_go < 0
|
|
29291
|
21 |
5315 |
if $starting_in_quote
|
|
29292
|
187 |
5149 |
if $ending_in_quote
|
|
29294
|
1324 |
4012 |
if ($CODE_type or $last_CODE_type)
|
|
29295
|
1270 |
54 |
$K_to_go[$max_index_to_go] >= $K_first ? :
|
|
29306
|
17 |
5319 |
if ($is_static_block_comment and not $last_line_had_side_comment)
|
|
29330
|
0 |
5775 |
if ($max_index_to_go < 0)
|
|
29340
|
4677 |
1098 |
if ($types_to_go[$max_index_to_go] ne "#")
|
|
29345
|
48 |
4629 |
if $total_weld_count and $self->[76]{$K_to_go[$max_index_to_go]}
|
|
29349
|
472 |
4157 |
if (defined $index_start_one_line_block)
|
|
29377
|
264 |
1879 |
if ($max_index_to_go >= 0)
|
|
29382
|
183 |
81 |
if ($CODE_type_flush and $CODE_type_flush eq 'BL') { }
|
|
29409
|
0 |
2 |
if (not $K_dangling_elsif or $K_dangling_elsif < $K_first or $rLL->[$K_dangling_elsif][6] ne "}")
|
|
29419
|
0 |
2 |
if (substr($comment, 0, 1) ne "#")
|
|
29467
|
0 |
7577 |
unless (defined $rK_range->[0])
|
|
29492
|
119 |
7458 |
if (not $rOpts_add_newlines or $CODE_type eq "NIN")
|
|
29499
|
1167 |
6410 |
if ($rLL->[$K_last][6] eq "#")
|
|
29500
|
780 |
387 |
if ($K_last == $K_first and $CODE_type ne 'HSC') { }
|
|
29512
|
4 |
7573 |
if ($CODE_type eq "VER")
|
|
29521
|
2753 |
4824 |
if ($max_index_to_go >= 0)
|
|
29524
|
2572 |
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")
|
|
29541
|
780 |
6797 |
if ($is_block_comment)
|
|
29543
|
21 |
759 |
if ($rOpts_delete_block_comments)
|
|
29553
|
20 |
1 |
unless ($is_no_critic)
|
|
29560
|
39 |
721 |
if $max_index_to_go >= 0
|
|
29563
|
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])
|
|
29600
|
711 |
49 |
if ($rOpts->{'indent-block-comments'} and !$rOpts->{'indent-spaced-block-comments'} || $input_line =~ /^\s+/ and not $is_static_block_comment_without_leading_space) { }
|
|
29629
|
2 |
6795 |
if ($self->[81])
|
|
29644
|
2 |
0 |
unless ($exception)
|
|
29655
|
12 |
6785 |
if ($CODE_type eq "IO")
|
|
29662
|
11 |
1 |
unless $line_of_tokens->{'_starting_in_quote'}
|
|
29686
|
2711 |
4074 |
if ($max_index_to_go >= 0)
|
|
29691
|
0 |
2711 |
if ($rOpts_ignore_old_breakpoints and $rOpts_line_up_parentheses)
|
|
29693
|
0 |
0 |
if ($is_assignment_or_fat_comma{$type_first})
|
|
29700
|
26 |
2685 |
if ($last_old_nonblank_type eq "," and $rOpts_break_at_old_comma_breakpoints)
|
|
29704
|
8 |
18 |
if (%break_at_old_comma_types)
|
|
29711
|
35 |
2676 |
if (not $index_start_one_line_block and $last_old_nonblank_type eq ";" and $first_new_nonblank_token ne "}" or $break_at_old_commas)
|
|
29724
|
23 |
12 |
if $break_at_old_commas
|
|
29736
|
9 |
2667 |
if ($max_index_to_go >= 0 and $self->[87]{$K_first_true})
|
|
29740
|
4 |
5 |
if ($self->[87]{$K_first_true} == 2) { }
|
|
29755
|
3626 |
3159 |
if ($max_index_to_go >= 0)
|
|
29761
|
616 |
3010 |
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') { }
|
|
29811
|
0 |
3010 |
if ($break_flag and $break_flag == 2)
|
|
29816
|
3000 |
0 |
if (not $rOpts_ignore_old_breakpoints or $rOpts_line_up_parentheses and $is_assignment_or_fat_comma{$type})
|
|
29833
|
2 |
6783 |
if ($K_dangling_elsif and $rOpts_add_missing_else)
|
|
29849
|
25 |
6760 |
if ($max_index_to_go < 0 and $rLL->[$K_first][6] eq "b")
|
|
29860
|
21816 |
41198 |
if ($rtoken_vars->[6] eq "b")
|
|
29873
|
230 |
40968 |
if ($rbrace_follower)
|
|
29875
|
187 |
43 |
unless ($rbrace_follower->{$token})
|
|
29876
|
165 |
22 |
if $max_index_to_go >= 0
|
|
29887
|
10832 |
30366 |
if ($rtoken_vars->[7])
|
|
29893
|
2220 |
4 |
if ($block_type and $token eq $type and $block_type ne "t" and not $self->[42]{$type_sequence})
|
|
29899
|
1110 |
1110 |
if ($type eq '{') { }
|
|
|
1110 |
0 |
elsif ($type eq '}') { }
|
|
29919
|
2227 |
38971 |
if ($has_side_comment)
|
|
29922
|
387 |
1840 |
if ($Ktoken_vars == $K_last)
|
|
29929
|
331 |
1509 |
if ($Ktoken_vars == $K_last - 1 or $Ktoken_vars == $K_last - 2 and $$rLL[$K_last - 1][6] eq "b")
|
|
29942
|
2993 |
37818 |
if ($type eq ';') { }
|
|
|
1110 |
36708 |
elsif ($is_opening_BLOCK) { }
|
|
|
1110 |
35598 |
elsif ($is_closing_BLOCK) { }
|
|
|
11 |
35587 |
elsif ($type eq 'h') { }
|
|
29946
|
557 |
2436 |
if ($Ktoken_vars < $K_last)
|
|
29948
|
546 |
11 |
if $rLL->[$Knnb][6] eq "b"
|
|
29953
|
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)
|
|
29963
|
2518 |
259 |
if not $no_internal_newlines and !$rOpts_keep_interior_semicolons || $Ktoken_vars >= $K_last and $next_nonblank_token ne "}"
|
|
29991
|
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)
|
|
30006
|
21 |
1089 |
if ($total_weld_count and defined $self->[75]{$Ktoken_vars})
|
|
30013
|
51 |
1059 |
if ($want_break and not defined $index_start_one_line_block or not $keyword_on_same_line || $rOpts_opening_brace_always_on_right)
|
|
30030
|
51 |
0 |
unless ($nobreak_BEFORE_BLOCK)
|
|
30036
|
48 |
3 |
if $max_index_to_go >= 0
|
|
30045
|
1059 |
51 |
if $max_index_to_go >= 0 and not $no_internal_newlines
|
|
30056
|
449 |
661 |
if ($Ktoken_vars < $K_last)
|
|
30058
|
279 |
170 |
if $rLL->[$Knnb][6] eq "b"
|
|
30064
|
394 |
716 |
if (defined $index_start_one_line_block)
|
|
30071
|
17 |
17 |
if ($has_side_comment and not $rOpts_ignore_side_comment_lengths and $next_nonblank_token_type eq "#")
|
|
30079
|
36 |
358 |
if ($next_nonblank_token_type eq ";" and not $is_block_without_semicolon{$block_type})
|
|
30101
|
0 |
394 |
if ($self->excess_line_length($index_start_one_line_block, $max_index_to_go) + $added_length >= 0)
|
|
30116
|
72 |
400 |
if $max_index_to_go >= 0 and not $nobreak_BEFORE_BLOCK and not defined $index_start_one_line_block
|
|
30130
|
394 |
716 |
if (defined $index_start_one_line_block)
|
|
30138
|
394 |
0 |
if (defined $Kom)
|
|
30152
|
1 |
11 |
if ($rOpts_line_up_parentheses and $next_nonblank_token_type eq "," and $Knnb eq $K_last)
|
|
30159
|
1 |
0 |
unless $is_excluded
|
|
30179
|
93 |
1 |
if ($is_block_without_semicolon{$block_type} || $one_line_block_type =~ /^[UG]$/ && $Ktoken_vars == $K_last and $next_nonblank_token ne ";")
|
|
30193
|
81 |
12 |
unless $no_internal_newlines
|
|
30200
|
224 |
886 |
if ($is_if_unless_elsif_else{$block_type}) { }
|
|
|
47 |
839 |
elsif ($block_type eq 'do') { }
|
|
|
139 |
700 |
elsif ($is_sort_map_grep_eval{$block_type} or $one_line_block_type eq 'G') { }
|
|
|
187 |
513 |
elsif ($self->[9]{$type_sequence}) { }
|
|
30205
|
3 |
44 |
if ($self->tight_paren_follows($K_to_go[0], $Ktoken_vars))
|
|
30223
|
89 |
98 |
if ($one_line_block_type) { }
|
|
30229
|
2 |
87 |
if ($Ktoken_vars < $K_last and $next_nonblank_token eq '}') { }
|
|
|
1 |
86 |
elsif ($Ktoken_vars == $K_last and $rOpts_line_up_parentheses) { }
|
|
30254
|
1 |
0 |
if $keep_going
|
|
30276
|
33 |
1077 |
if ($block_type eq "elsif")
|
|
30279
|
8 |
25 |
if ($next_nonblank_token_type ne 'b' and $next_nonblank_token_type ne '#') { }
|
|
30283
|
0 |
8 |
unless ($is_elsif_else{$next_nonblank_token})
|
|
30289
|
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.
|
|
30300
|
0 |
15 |
if (not defined $K_next or $rLL->[$K_next][6] ne "k" or not $is_elsif_else{$rLL->[$K_next][4]})
|
|
30306
|
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.
|
|
30309
|
0 |
0 |
if ($rOpts_add_missing_else) { }
|
|
30325
|
142 |
968 |
if ($keep_going) { }
|
|
|
618 |
350 |
elsif ($next_nonblank_token_type eq 'b' and $rOpts_add_newlines) { }
|
|
|
320 |
30 |
elsif ($rbrace_follower) { }
|
|
30336
|
194 |
424 |
unless ($rbrace_follower)
|
|
30337
|
147 |
47 |
if not $no_internal_newlines and $max_index_to_go >= 0
|
|
30344
|
206 |
114 |
if ($rbrace_follower->{$next_nonblank_token}) { }
|
|
30350
|
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))
|
|
30360
|
62 |
52 |
if not $no_internal_newlines and $max_index_to_go >= 0
|
|
30369
|
17 |
13 |
if not $no_internal_newlines and $max_index_to_go >= 0
|
|
30393
|
3 |
5 |
if ($rOpts_break_after_labels and $type eq "J" and $rOpts_break_after_labels == 1)
|
|
30397
|
3 |
0 |
unless $no_internal_newlines
|
|
30448
|
0 |
47 |
unless defined $K_ic
|
|
30453
|
0 |
47 |
unless ($seqno_i)
|
|
30461
|
1 |
46 |
unless defined $K_oc
|
|
30463
|
39 |
7 |
unless $token_next eq ")"
|
|
30468
|
0 |
7 |
unless defined $K_io and defined $K_oo
|
|
30476
|
3 |
4 |
if (defined $K_test and $rLL->[$K_test][6] eq "{")
|
|
30478
|
3 |
0 |
if ($seqno_test)
|
|
30479
|
3 |
0 |
if ($self->[9]{$seqno_test} or $self->[10]{$seqno_test})
|
|
30506
|
4 |
0 |
if $K_ic - $K_io > 16
|
|
30522
|
0 |
0 |
if $K_io - $K_oo > 9
|
|
30525
|
0 |
0 |
if $K_oo < $K_to_go_0
|
|
30543
|
0 |
0 |
unless ($rOpts_ignore_old_breakpoints)
|
|
30546
|
0 |
0 |
if $iline_oo != $iline_oc
|
|
30602
|
0 |
1110 |
if (not defined $max_index_to_go or $max_index_to_go < 0)
|
|
30610
|
20 |
1090 |
if ($rbreak_container->{$type_sequence_j})
|
|
30618
|
0 |
1090 |
unless defined $block_type
|
|
30622
|
1072 |
18 |
if (defined $K_last_nonblank)
|
|
30624
|
956 |
116 |
if ($i_last_nonblank >= 0)
|
|
30632
|
174 |
916 |
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') { }
|
|
|
641 |
275 |
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 '()') { }
|
|
|
271 |
4 |
elsif ($previous_nonblank_token eq ')') { }
|
|
|
4 |
0 |
elsif ($block_type eq 'case' or $block_type eq 'when') { }
|
|
30659
|
37 |
604 |
if ($tokens_to_go[$i_start] eq ')') { }
|
|
|
341 |
263 |
elsif ($i_start > 0) { }
|
|
30663
|
0 |
37 |
unless defined $K_start
|
|
30665
|
0 |
37 |
unless $seqno
|
|
30667
|
0 |
37 |
unless defined $K_opening
|
|
30671
|
0 |
37 |
if $i_opening < 0
|
|
30675
|
37 |
0 |
if ($i_start > 0)
|
|
30676
|
17 |
20 |
if ($types_to_go[$i_start] eq "b" and $i_start > 0)
|
|
30678
|
2 |
35 |
if ($lev > $rLL->[$Kj][3])
|
|
30685
|
329 |
12 |
if ($types_to_go[$i_eq] eq "b" and $i_eq > 0)
|
|
30687
|
1 |
86 |
if ($is_assignment{$type_eq} and $want_break_before{$type_eq})
|
|
30704
|
2 |
269 |
if ($types_to_go[$i_start] eq "b")
|
|
30714
|
0 |
271 |
if (substr($block_type, -2, 2) eq "()")
|
|
30717
|
10 |
261 |
if ($tokens_to_go[$i_start] ne $stripped_block_type)
|
|
30728
|
0 |
4 |
if ($types_to_go[$i_start] eq "b")
|
|
30731
|
0 |
4 |
if ($tokens_to_go[$i_start] ne $block_type)
|
|
30749
|
14 |
1064 |
if ($pos > $maximum_line_length)
|
|
30764
|
0 |
1064 |
unless defined $K_closing
|
|
30771
|
24 |
1040 |
if ($total_weld_count and $self->is_welded_at_seqno($type_sequence_j))
|
|
30775
|
336 |
728 |
if ($excess > 0)
|
|
30779
|
334 |
2 |
if $excess > 1
|
|
30787
|
2 |
0 |
if $ldiff
|
|
30796
|
1402 |
2238 |
if ($rLL->[$Ki][6] eq 'b') { }
|
|
30801
|
746 |
2894 |
$type_sequence_i ? :
|
|
30804
|
0 |
3640 |
if ($pos > $maximum_line_length) { }
|
|
|
2894 |
746 |
elsif (not $type_sequence_i) { }
|
|
|
30 |
716 |
elsif ($rLL->[$Ki][4] eq '{' and $rLL->[$Ki][6] eq '{' and $rblock_type_of_seqno->{$type_sequence_i} and not $nobreak) { }
|
|
|
373 |
343 |
elsif ($rLL->[$Ki][4] eq '}' and $rLL->[$Ki][6] eq '}' and $rblock_type_of_seqno->{$type_sequence_i} and not $nobreak) { }
|
|
30832
|
192 |
181 |
if ($Ki_nonblank < $K_last)
|
|
30834
|
120 |
72 |
if ($rLL->[$Ki_nonblank][6] eq "b" and $Ki_nonblank < $K_last)
|
|
30867
|
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)
|
|
30884
|
19 |
0 |
if (not $is_if_unless_elsif_else{$block_type} or $K_last == $Ki_nonblank)
|
|
30890
|
19 |
0 |
if ($Ki_nonblank > $Ki + 1)
|
|
30894
|
17 |
2 |
if ($$rLL[$Ki + 1][6] eq 'b') { }
|
|
30900
|
0 |
19 |
if ($pos >= $maximum_line_length)
|
|
30936
|
47 |
278 |
if ($want_one_line_block{$block_type} and not $is_bli)
|
|
30939
|
26 |
21 |
$rtype_count && $rtype_count->{';'} ? :
|
|
30942
|
44 |
3 |
if ($semicolon_count <= 2)
|
|
30946
|
23 |
21 |
if (defined $Kp and $rLL->[$Kp][6] eq ";")
|
|
30952
|
26 |
21 |
if ($semicolon_count <= 0) { }
|
|
|
18 |
3 |
elsif ($semicolon_count == 1 and $block_type eq 'eval') { }
|
|
30974
|
48 |
3 |
if ($max_index_to_go > 0) { }
|
|
30995
|
0 |
2 |
unless defined $K_first
|
|
31001
|
0 |
2 |
if $type eq "b"
|
|
31006
|
0 |
2 |
if ($structural_indentation_level > $self->[84])
|
|
31017
|
0 |
2 |
if ($guessed_indentation_level ne $structural_indentation_level) { }
|
|
31020
|
0 |
0 |
if ($is_closing_block)
|
|
31022
|
0 |
0 |
unless ($self->[71])
|
|
31025
|
0 |
0 |
unless ($self->[70])
|
|
31030
|
0 |
0 |
unless ($self->[69])
|
|
31033
|
0 |
0 |
if ($self->[68] <= 6)
|
|
31039
|
0 |
0 |
unless $self->[66]
|
|
31045
|
0 |
2 |
if $is_closing_block
|
|
31048
|
0 |
2 |
if ($in_tabbing_disagreement)
|
|
31050
|
0 |
0 |
if ($self->[68] <= 6)
|
|
31055
|
0 |
0 |
if ($self->[68] == 6)
|
|
31124
|
0 |
4328 |
if (not defined $i or $i < 0)
|
|
31142
|
1784 |
2544 |
if (defined $i_nonblank and $is_opening_sequence_token{$tokens_to_go[$i_nonblank]})
|
|
31194
|
0 |
4920 |
unless defined $i
|
|
31195
|
0 |
4920 |
if $i < 0
|
|
31199
|
836 |
4084 |
if ($i > 0 and $types_to_go[$i] eq "b")
|
|
31204
|
43 |
4877 |
if $total_weld_count and $self->[76]{$K_to_go[$i]}
|
|
31210
|
9 |
4868 |
if (not $token and $type eq ",")
|
|
31214
|
2102 |
2775 |
if ($break_before_or_after_token{$token} and $type eq $token || $type eq 'k') { }
|
|
|
5 |
2770 |
elsif ($is_if_unless{$token} and $type eq 'k') { }
|
|
31217
|
253 |
1849 |
if ($want_break_before{$token} and $i >= 0)
|
|
31226
|
4871 |
6 |
if ($i >= 0 and $i <= $max_index_to_go)
|
|
31227
|
4621 |
250 |
$types_to_go[$i] ne 'b' ? :
|
|
31229
|
3884 |
987 |
if ($i_nonblank >= 0 and not $nobreak_to_go[$i_nonblank] and not $forced_breakpoint_to_go[$i_nonblank])
|
|
31235
|
2688 |
1196 |
if ($i_nonblank > $index_max_forced_break)
|
|
31268
|
0 |
490 |
if ($i_start < 0)
|
|
31283
|
790 |
0 |
if ($i >= 0 and $i <= $max_index_to_go) { }
|
|
31330
|
599 |
1965 |
if (defined $mate_index_to_go[$i_break]) { }
|
|
31334
|
592 |
7 |
if ($mate_index_to_go[$i_break] > $i_break + 2)
|
|
31338
|
25 |
567 |
$tokens_to_go[$i_break] eq '?' ? :
|
|
31345
|
1965 |
0 |
if ($type_sequence)
|
|
31420
|
0 |
0 |
if ($max_index_to_go < 0)
|
|
31435
|
0 |
0 |
if (not defined $KK or $KK < 0 or $KK > $Klimit)
|
|
31436
|
0 |
0 |
unless defined $KK
|
|
31442
|
0 |
0 |
if ($ii > 0 and $KK != $Km + 1)
|
|
31505
|
256 |
5080 |
if ($max_index_to_go >= 0 and $types_to_go[$max_index_to_go] eq "b")
|
|
31509
|
0 |
5336 |
if $max_index_to_go < 0
|
|
31512
|
313 |
5023 |
if ($rOpts_line_up_parentheses)
|
|
31522
|
767 |
4569 |
if (not $max_index_to_go and $types_to_go[0] eq "#")
|
|
31533
|
708 |
3 |
unless ($is_HSC or $lp_object_count_this_batch)
|
|
31571
|
21344 |
41213 |
if ($types_to_go[$i] eq "b")
|
|
31581
|
25731 |
15482 |
unless $quick_filter{$types_to_go[$i]}
|
|
31586
|
10832 |
4650 |
if ($type_sequence_to_go[$i]) { }
|
|
|
3534 |
1116 |
elsif ($type eq ',') { }
|
|
|
1082 |
34 |
elsif ($type eq '=>') { }
|
|
|
34 |
0 |
elsif ($type eq 'f') { }
|
|
31591
|
146 |
10686 |
if ($self->[80]{$seqno})
|
|
31595
|
5416 |
5416 |
if ($is_opening_sequence_token{$tokens_to_go[$i]}) { }
|
|
31596
|
43 |
5373 |
if ($self->[41]{$seqno})
|
|
31600
|
192 |
5224 |
if ($type eq "?")
|
|
31606
|
24 |
4640 |
if ($i > 0 and $self->[41]{$seqno})
|
|
31611
|
4485 |
931 |
if (defined $i_mate and $i_mate >= 0) { }
|
|
31612
|
4485 |
0 |
if ($type_sequence_to_go[$i_mate] == $type_sequence_to_go[$i]) { }
|
|
31618
|
479 |
4006 |
if $cac
|
|
31630
|
192 |
5224 |
if ($type eq ":")
|
|
31639
|
1002 |
80 |
if (@unmatched_opening_indexes_in_this_batch)
|
|
31655
|
2 |
4626 |
if (@i_for_semicolon and @i_for_semicolon == 1)
|
|
31658
|
2 |
0 |
if ($inext <= $max_index_to_go and $types_to_go[$inext] ne "#")
|
|
31666
|
823 |
3805 |
if (@unmatched_opening_indexes_in_this_batch)
|
|
31671
|
47 |
4581 |
if (@ix_seqno_controlling_ci)
|
|
31685
|
428 |
867 |
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]})
|
|
31705
|
22 |
884 |
if $levels_to_go[$i] < $lev
|
|
31706
|
0 |
884 |
if $levels_to_go[$i] > $lev
|
|
31708
|
0 |
884 |
if ($block_type_to_go[$i]) { }
|
|
|
396 |
488 |
elsif (not $types_to_go[$i] =~ /^[\(\)Gwib]$/) { }
|
|
31709
|
0 |
0 |
if ($tokens_to_go[$i] eq "}")
|
|
31732
|
0 |
4628 |
if ($types_to_go[$imin] eq "b")
|
|
31733
|
0 |
4628 |
if ($types_to_go[$imax] eq "b")
|
|
31735
|
0 |
4628 |
if ($imin > $imax)
|
|
31754
|
3666 |
962 |
if ($last_line_leading_type ne "#")
|
|
31759
|
1323 |
2343 |
if ($leading_type eq 'k') { }
|
|
|
109 |
2234 |
elsif ($leading_type eq 'S' or $leading_type eq 'P') { }
|
|
|
706 |
1528 |
elsif ($leading_token eq '}') { }
|
|
31760
|
7 |
1316 |
if ($leading_token eq 'BEGIN' or $leading_token eq 'END') { }
|
|
|
112 |
1204 |
elsif ($last_line_leading_type ne 'b' and $is_if_unless_while_until_for_foreach{$leading_token}) { }
|
|
31761
|
1 |
6 |
if terminal_type_i(0, $max_index_to_go) ne "}"
|
|
31772
|
0 |
112 |
unless (defined $lc)
|
|
31776
|
37 |
75 |
if ($levels_to_go[0] != $last_line_leading_level)
|
|
31780
|
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 "}")
|
|
31799
|
109 |
0 |
if ($special_identifier)
|
|
31801
|
80 |
29 |
if ($special_identifier eq 'sub') { }
|
|
|
29 |
0 |
elsif ($special_identifier eq 'package') { }
|
|
31803
|
41 |
39 |
unless terminal_type_i(0, $max_index_to_go) =~ /^[\;\}\,]$/
|
|
31816
|
29 |
0 |
unless $self->[100]{$pseqno}
|
|
31829
|
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/)
|
|
31835
|
2 |
0 |
if ($nblanks > $blank_count)
|
|
31844
|
49 |
3617 |
if ($blank_count)
|
|
31855
|
2722 |
1906 |
if ($leading_level == $last_line_leading_level and $leading_type ne '#' || $is_HSC and defined $nonblank_lines_at_depth[$leading_level]) { }
|
|
31865
|
56 |
4572 |
$is_HSC ? :
|
|
31882
|
3802 |
826 |
if ($max_index_to_go > 0) { }
|
|
|
585 |
241 |
elsif ($is_unbalanced_batch) { }
|
|
31896
|
234 |
344 |
if ($block_type and not $lp_object_count_this_batch and $is_block_without_semicolon{$block_type})
|
|
31902
|
15 |
219 |
if ($leading_type eq '{') { }
|
|
31905
|
15 |
0 |
if ($rtype_count)
|
|
31907
|
15 |
0 |
unless ($comma_count)
|
|
31926
|
3 |
4625 |
if (%maximum_field_count_control_hash)
|
|
31928
|
3 |
0 |
if ($self->[103]{$_})
|
|
31936
|
66 |
2641 |
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)
|
|
31972
|
826 |
3802 |
if (not $max_index_to_go) { }
|
|
31983
|
2530 |
1272 |
if (not +($is_long_line || $saw_good_break || $forced_breakpoint_count) && $rOpts_add_newlines) { }
|
|
32012
|
3 |
1269 |
unless $called_pad_array_to_go
|
|
32022
|
32 |
1240 |
if %{$self->[111];} and not $pack_operator_types{'->'}
|
|
32025
|
559 |
713 |
if @{$ri_first;} >= 3
|
|
32027
|
2 |
1270 |
if ($rOpts_cuddled_paren_brace)
|
|
32035
|
811 |
461 |
if $rOpts_recombine and @{$ri_first;} > 1
|
|
32037
|
87 |
1185 |
if @colon_list
|
|
32041
|
50 |
3752 |
if %break_before_container_types and $max_index_to_go > 0
|
|
32048
|
21 |
3781 |
if (not $token_lengths_to_go[$imax] and $types_to_go[$imax] eq ";")
|
|
32049
|
20 |
1 |
if ($rOpts_add_semicolons) { }
|
|
32055
|
0 |
0 |
if ($rOpts_space_terminal_semicolon and $imax > 0 and $types_to_go[$imax - 1] eq "b")
|
|
32064
|
6 |
3796 |
if ($rOpts_one_line_block_semicolons == 0)
|
|
32070
|
1149 |
2653 |
if ($max_index_to_go > $peak_batch_size)
|
|
32082
|
141 |
4487 |
if ($lp_object_count_this_batch)
|
|
32094
|
6 |
4622 |
if ($rOpts_blank_lines_after_opening_block)
|
|
32096
|
0 |
6 |
if ($types_to_go[$iterm] eq "#" and $iterm > $imin)
|
|
32098
|
0 |
0 |
if ($types_to_go[$iterm] eq "b" and $iterm > $imin)
|
|
32103
|
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/)
|
|
32123
|
4569 |
243 |
$i - 1 > 0 && $types_to_go[$i - 1] eq 'b' ? :
|
|
32145
|
0 |
20 |
unless $type eq ";"
|
|
32148
|
0 |
20 |
if ($want_left_space{$type} != -1)
|
|
32184
|
153 |
823 |
unless defined $runmatched_opening_indexes
|
|
32191
|
174 |
802 |
if ($types_to_go[$max_index_to_go] eq "q")
|
|
32195
|
36 |
138 |
if ($seqno_qw_opening)
|
|
32206
|
36 |
931 |
unless ($seqno)
|
|
32207
|
36 |
0 |
if ($seqno_qw_opening and $i_opening == $max_index_to_go) { }
|
|
32238
|
985 |
0 |
if ($seqno)
|
|
32239
|
985 |
0 |
if ($saved_opening_indentation{$seqno})
|
|
32280
|
0 |
1580 |
unless (@{$ri_last;})
|
|
32293
|
195 |
1385 |
if $i_opening < $ri_first->[$nline]
|
|
32296
|
1580 |
0 |
if ($i_opening <= $ri_last->[-1]) { }
|
|
32340
|
10 |
86 |
if ($type_i eq "#")
|
|
32342
|
0 |
10 |
if ($i < $ibeg)
|
|
32349
|
9 |
87 |
if ($type_i eq "b")
|
|
32351
|
0 |
9 |
if ($i < $ibeg)
|
|
32361
|
1 |
37 |
if ($type_i eq "}" and !$block_type || $is_sort_map_grep_eval_do{$block_type})
|
|
32391
|
265 |
1725 |
if ($is_closing_type{$types_to_go[$max_index_to_go]}) { }
|
|
|
662 |
1063 |
elsif ($is_opening_type{$types_to_go[$max_index_to_go]}) { }
|
|
32392
|
0 |
265 |
if ($nesting_depth_to_go[$max_index_to_go] <= 0) { }
|
|
32397
|
0 |
0 |
unless ($self->get_saw_brace_error)
|
|
32433
|
0 |
32 |
unless %{$self->[111];}
|
|
32437
|
0 |
32 |
!$want_break_before{'->'} ? :
|
|
32439
|
7 |
89 |
if ($types_to_go[$ii] eq "->")
|
|
32441
|
29 |
3 |
unless @i_arrow_breaks
|
|
32448
|
0 |
3 |
!$want_break_before{'->'} ? :
|
|
32452
|
1 |
6 |
if $ip < 0 or $tokens_to_go[$ip] ne ")"
|
|
32455
|
0 |
6 |
unless $seqno_start
|
|
32464
|
0 |
19 |
if $i_K <= 0 or $i_K >= $max_index_to_go
|
|
32465
|
14 |
5 |
if $is_end_i{$i_K}
|
|
32466
|
0 |
5 |
if ($K_to_go[$i_K] != $KK)
|
|
32478
|
2 |
1 |
if (@insert_list)
|
|
32513
|
5 |
4391 |
if $typel eq "-"
|
|
32514
|
10 |
4386 |
if $typer eq "-"
|
|
32515
|
4 |
4392 |
if $typel eq "/"
|
|
32516
|
13 |
4383 |
if $typer eq "/"
|
|
32518
|
771 |
3625 |
$typel eq 'k' ? :
|
|
32519
|
56 |
4340 |
$typer eq 'k' ? :
|
|
32520
|
343 |
65 |
if ($is_chain_operator{$keyl} and $want_break_before{$typel})
|
|
32521
|
69 |
274 |
if $typel eq "?"
|
|
32526
|
48 |
4279 |
if ($is_chain_operator{$keyr} and not $want_break_before{$typer})
|
|
32527
|
1 |
47 |
if $typer eq "?"
|
|
32534
|
1137 |
135 |
unless $end_count
|
|
32544
|
124 |
4253 |
$type eq 'k' ? :
|
|
32545
|
54 |
4323 |
if $key eq "-"
|
|
32546
|
85 |
4292 |
if $key eq "/"
|
|
32547
|
193 |
4184 |
if ($saw_chain_type{$key})
|
|
32554
|
102 |
33 |
unless $interior_count
|
|
32562
|
0 |
19 |
if ($has_interior_dot_or_plus and $nmax == 1 and @keys == 1)
|
|
32571
|
0 |
41 |
if $pack_operator_types{$key}
|
|
32577
|
71 |
122 |
if ($left_chain_type{$key})
|
|
32578
|
0 |
71 |
if $nobreak_to_go[$itest - 1]
|
|
32580
|
131 |
15 |
unless $self->in_same_container_i($i, $itest)
|
|
32591
|
1 |
14 |
if ($key eq ":" and $levels_to_go[$i] != $levels_to_go[$itest])
|
|
32595
|
1 |
0 |
if (defined $i_question and $i_question > 0)
|
|
32604
|
122 |
71 |
if ($right_chain_type{$key})
|
|
32605
|
0 |
122 |
if $nobreak_to_go[$itest]
|
|
32607
|
196 |
31 |
unless $self->in_same_container_i($i, $itest)
|
|
32611
|
0 |
31 |
if ($key eq ":" and $levels_to_go[$i] != $levels_to_go[$itest])
|
|
32615
|
0 |
0 |
if (defined $i_question)
|
|
32626
|
20 |
13 |
if (@insert_list)
|
|
32645
|
0 |
2 |
if $nmax < 1
|
|
32649
|
0 |
2 |
if $tokens_to_go[$il_n] ne "{" or not $block_type_to_go[$il_n]
|
|
32654
|
0 |
2 |
if $tokens_to_go[$ir_nm] ne ")"
|
|
32658
|
1 |
1 |
if ($ir_n ne $il_n)
|
|
32662
|
0 |
1 |
if $inext ne $ir_n
|
|
32663
|
0 |
1 |
if $types_to_go[$ir_n] ne "#"
|
|
32666
|
0 |
1 |
$rOpts_ignore_side_comment_lengths ? :
|
|
32668
|
0 |
1 |
if $excess > 0
|
|
32672
|
1 |
1 |
if ($ir_nm != $il_nm)
|
|
32675
|
0 |
1 |
unless $rOpts_cuddled_paren_brace_weld
|
|
32680
|
0 |
1 |
unless (defined $i_mate)
|
|
32725
|
0 |
224 |
if $nobreak_to_go[$i_break_left]
|
|
32733
|
0 |
392 |
if ($line_number >= @{$ri_last;})
|
|
32746
|
12 |
212 |
if ($types_to_go[$i_break_left] eq "b")
|
|
32749
|
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)
|
|
32756
|
2 |
103 |
if ($set_forced)
|
|
32790
|
316 |
58 |
if $parent_seqno_to_go[$i2] ne $parent_seqno_1
|
|
32792
|
52 |
6 |
if ($i2 < $i1)
|
|
32797
|
0 |
58 |
if $depth_1 < 0
|
|
32800
|
0 |
58 |
unless $nesting_depth_to_go[$i2] == $depth_1
|
|
32804
|
55 |
3 |
$type_1 ne ':' ? :
|
|
32813
|
0 |
323 |
if ($KK <= $Knext_last)
|
|
32822
|
55 |
268 |
if $KK >= $K2
|
|
32825
|
0 |
268 |
if $depth_i < $depth_1
|
|
32826
|
217 |
51 |
if $depth_i > $depth_1
|
|
32827
|
45 |
6 |
if ($type_1 ne ":")
|
|
32829
|
0 |
45 |
if $tok_i eq "?" or $tok_i eq ":"
|
|
32840
|
0 |
58 |
if $i2 - $i1 > 200
|
|
32845
|
1268 |
400 |
if $depth_i > $depth_1
|
|
32846
|
0 |
400 |
if $depth_i < $depth_1
|
|
32848
|
5 |
395 |
if ($typ_i eq "k")
|
|
32849
|
11 |
389 |
if $rbreak->{$typ_i}
|
|
32885
|
0 |
559 |
if $nmax < 2
|
|
32894
|
45 |
550 |
$typel eq 'k' ? :
|
|
32897
|
537 |
58 |
unless $has_leading_op
|
|
32898
|
22 |
36 |
if ($n > 1)
|
|
32900
|
5 |
17 |
unless $tokenl eq $tokbeg and $nesting_depth_to_go[$il] eq $depth_beg
|
|
32915
|
1 |
139 |
if ($is_assignment{$type} and $nesting_depth_to_go[$i] eq $depth_beg)
|
|
32918
|
0 |
1 |
if ($want_break_before{$type}) { }
|
|
32939
|
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)
|
|
32947
|
12 |
5 |
unless @insert_list
|
|
32962
|
0 |
100 |
if $is_assignment{$type} and $nesting_depth_to_go[$ii] eq $depth_beg
|
|
32968
|
5 |
0 |
if (@insert_list)
|
|
33044
|
2 |
4 |
if ($type_end eq "#")
|
|
33046
|
2 |
0 |
if (defined $K_end)
|
|
33051
|
0 |
6 |
unless $type_end eq "}" and $rLL->[$K_end][4] eq "}"
|
|
33055
|
0 |
6 |
unless defined $K_semicolon
|
|
33057
|
0 |
6 |
if $i_semicolon <= $i_beg
|
|
33058
|
0 |
6 |
unless $rLL->[$K_semicolon][6] eq ";"
|
|
33062
|
0 |
6 |
if ($types_to_go[$i_semicolon] ne ";")
|
|
33071
|
0 |
6 |
unless defined $K_opening
|
|
33073
|
0 |
6 |
if $i_opening < $i_beg
|
|
33078
|
2 |
20 |
if ($rLL->[$K][6] eq ";")
|
|
33083
|
2 |
4 |
if $semicolon_count
|
|
33126
|
1 |
810 |
if $high_stress_level <= 2
|
|
33129
|
0 |
810 |
if $nmax_start <= 0
|
|
33132
|
50 |
760 |
if ($types_to_go[$iend_max] eq "#")
|
|
33160
|
208 |
5604 |
if ($is_math_op{$type} or $is_amp_amp{$type} or $is_assignment{$type} or $type eq ":")
|
|
33174
|
2818 |
179 |
if ($excess <= 1 or defined $nend_sec and $nn < 5 || $nmax_start - $nn < 5) { }
|
|
33186
|
29 |
150 |
if (defined $nend_sec)
|
|
33189
|
19 |
10 |
if ($num > $nmax_section)
|
|
33197
|
723 |
87 |
if (defined $nend_sec)
|
|
33200
|
713 |
10 |
if ($num > $nmax_section)
|
|
33332
|
73 |
2745 |
if ($is_amp_amp{$types_to_go[$ibeg_2]})
|
|
33340
|
0 |
3204 |
unless $Perl::Tidy::Formatter::b->[1] <=> $Perl::Tidy::Formatter::a->[1]
|
|
33381
|
752 |
883 |
if ($nmax_batch >= $nmax_last)
|
|
33392
|
0 |
883 |
if ($rhash->{'_num_compares'} > $max_compares)
|
|
33456
|
49 |
834 |
if ($rhash->{'_optimization_on'} and $num_joints <= 2)
|
|
33515
|
421 |
2744 |
if $excess > 0
|
|
33530
|
679 |
2065 |
if ($n == $nmax)
|
|
33532
|
41 |
638 |
if ($type_ibeg_2 eq "{")
|
|
33536
|
41 |
0 |
if $type_iend_1 ne "=>"
|
|
33553
|
358 |
2345 |
if ($itok)
|
|
33555
|
177 |
181 |
unless $ok_0
|
|
33563
|
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]})
|
|
33584
|
1864 |
662 |
unless $ok_2
|
|
33595
|
12 |
650 |
if ($skip_Section_3)
|
|
33606
|
244 |
406 |
unless $ok_3
|
|
33614
|
245 |
161 |
if $forced_breakpoint_to_go[$iend_1]
|
|
33640
|
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 ","
|
|
33647
|
145 |
16 |
if ($n < $nmax)
|
|
33656
|
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 '('
|
|
33674
|
119 |
42 |
if (not $n_best) { }
|
|
33684
|
42 |
77 |
if ($rhash->{'_optimization_on'} == 1)
|
|
33694
|
0 |
42 |
if ($bs > $bs_best or $bs == $bs_best and $n < $n_best)
|
|
33706
|
131 |
752 |
if ($n_best)
|
|
33720
|
376 |
372 |
if ($n_old > $n_best)
|
|
33732
|
77 |
54 |
if (not $rhash->{'_optimization_on'} || $incomplete_loop and $num_bs)
|
|
33791
|
358 |
0 |
if ($itok)
|
|
33795
|
113 |
245 |
if ($type eq ':') { }
|
|
|
87 |
158 |
elsif ($is_math_op{$type}) { }
|
|
|
64 |
94 |
elsif ($is_amp_amp{$type}) { }
|
|
|
94 |
0 |
elsif ($is_assignment{$type}) { }
|
|
33799
|
1 |
112 |
if ($itok eq $iend_1) { }
|
|
33800
|
1 |
0 |
unless $want_break_before{$type}
|
|
33803
|
112 |
0 |
if $want_break_before{$type}
|
|
33831
|
26 |
61 |
if ($types_to_go[$itokp] eq "n")
|
|
33834
|
2 |
24 |
if ($itokp == $iend_2) { }
|
|
33849
|
15 |
72 |
if (not $good_combo and $types_to_go[$itokm] eq "n")
|
|
33852
|
6 |
9 |
if ($itokm == $ibeg_1) { }
|
|
33869
|
68 |
19 |
unless ($good_combo)
|
|
33875
|
42 |
26 |
$itok eq $iend_1 ? :
|
|
33923
|
64 |
23 |
unless ($good_combo)
|
|
33927
|
40 |
24 |
$itok == $iend_1 ? :
|
|
33935
|
64 |
23 |
unless $good_combo
|
|
33985
|
1929 |
597 |
$n < $nmax ? :
|
|
33994
|
362 |
2164 |
if ($type_iend_1 eq '}') { }
|
|
|
664 |
1500 |
elsif ($type_iend_1 eq '{') { }
|
|
|
0 |
1500 |
elsif ($is_amp_amp{$type_iend_1}) { }
|
|
|
1 |
1499 |
elsif ($type_iend_1 eq '?') { }
|
|
|
895 |
604 |
elsif ($type_iend_1 eq ',') { }
|
|
|
0 |
604 |
elsif ($type_iend_1 eq '(') { }
|
|
|
0 |
604 |
elsif ($type_iend_1 eq ')') { }
|
|
|
8 |
596 |
elsif ($type_iend_1 eq 'f') { }
|
|
|
83 |
513 |
elsif ($is_assignment{$type_iend_1}) { }
|
|
|
26 |
487 |
elsif ($type_iend_1 eq 'k') { }
|
|
|
0 |
487 |
elsif ($type_iend_1 eq '.') { }
|
|
34054
|
16 |
346 |
if ($is_amp_amp{$type_ibeg_2})
|
|
34058
|
5 |
10 |
if ($is_amp_amp{$type_t} or $type_t eq ":")
|
|
34092
|
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]})
|
|
34132
|
256 |
106 |
unless $keep_going
|
|
34141
|
647 |
17 |
if $forced_breakpoint_to_go[$iend_1]
|
|
34146
|
0 |
0 |
unless $want_break_before{$type_iend_1}
|
|
34154
|
0 |
1 |
if $levels_to_go[$ibeg_1] ne $levels_to_go[$ibeg_2]
|
|
34157
|
0 |
1 |
unless $type_iend_2 eq ":"
|
|
34167
|
731 |
164 |
if $old_breakpoint_to_go[$iend_1]
|
|
34172
|
1 |
163 |
if ($type_ibeg_1 eq '}' and $type_ibeg_2 eq 'i') { }
|
|
34180
|
1 |
0 |
unless $combine_ok
|
|
34191
|
122 |
41 |
if $n + 1 < $nmax
|
|
34196
|
27 |
14 |
if $levels_to_go[$iend_1] != $levels_to_go[$iend_2]
|
|
34202
|
0 |
34 |
if ($tokens_to_go[$ii] eq "(")
|
|
34207
|
0 |
14 |
if $saw_paren
|
|
34234
|
36 |
47 |
if $old_breakpoint_to_go[$iend_1] and $iend_1 != $ibeg_1
|
|
34252
|
47 |
0 |
if ($ibeg_1 != $iend_1 and not $is_short_quote and not $is_ternary_joint)
|
|
34291
|
25 |
22 |
unless $combine_ok
|
|
34293
|
1 |
21 |
if ($nmax >= $n + 2 and not $ibeg_3 > 0 && ref $leading_spaces_to_go[$ibeg_3] && $type_iend_2 eq ',')
|
|
34315
|
0 |
1 |
unless $ok
|
|
34320
|
20 |
2 |
unless ($tokens_to_go[$ibeg_2] =~ /^[\{\(\[]$/)
|
|
34334
|
11 |
15 |
if $is_last_next_redo_return{$tokens_to_go[$iend_1]} and $n < $nmax
|
|
34340
|
0 |
15 |
if ($is_and_or{$tokens_to_go[$iend_1]})
|
|
34342
|
0 |
0 |
unless $want_break_before{$tokens_to_go[$iend_1]}
|
|
34390
|
0 |
0 |
unless $combine_ok
|
|
34393
|
0 |
0 |
if ($this_line_is_semicolon_terminated)
|
|
34423
|
0 |
2 |
if ($nesting_depth_to_go[$i] != $depth)
|
|
34425
|
0 |
0 |
if $tv > 1
|
|
34432
|
0 |
1 |
if ($tv > 0)
|
|
34436
|
0 |
0 |
if $tv > 1
|
|
34441
|
0 |
0 |
$n < $nmax ? :
|
|
34446
|
0 |
0 |
if ($nesting_depth_to_go[$i] != $depth)
|
|
34448
|
0 |
0 |
if $tv > 2
|
|
34455
|
0 |
0 |
if $tv > 2
|
|
34490
|
528 |
122 |
$n > 1 ? :
|
|
34491
|
459 |
191 |
$n < $nmax ? :
|
|
34492
|
323 |
327 |
$n + 2 <= $nmax ? :
|
|
34501
|
48 |
602 |
if ($is_amp_amp{$type_ibeg_2}) { }
|
|
|
89 |
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}) { }
|
|
34538
|
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]
|
|
34545
|
47 |
0 |
if not $ok and $want_break_before{$type_ibeg_2}
|
|
34558
|
15 |
74 |
if $lev ne $levels_to_go[$ibeg_1]
|
|
34567
|
19 |
55 |
unless $follows_colon or $precedes_colon
|
|
34570
|
29 |
26 |
unless ($follows_colon)
|
|
34577
|
34 |
72 |
if $ii >= 0 and $types_to_go[$ii] eq ":" and $levels_to_go[$ii] == $lev
|
|
34582
|
24 |
5 |
if $local_count <= 1
|
|
34636
|
103 |
54 |
unless $combine_ok
|
|
34639
|
7 |
47 |
if ($this_line_is_semicolon_terminated)
|
|
34648
|
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]}) { }
|
|
34670
|
4 |
4 |
unless $combine_ok
|
|
34673
|
3 |
1 |
unless $old_breakpoint_to_go[$iend_1]
|
|
34705
|
6 |
2 |
unless $combine_ok
|
|
34721
|
8 |
0 |
unless $combine_ok
|
|
34729
|
8 |
1 |
unless ($is_assignment{$type_iend_1})
|
|
34731
|
8 |
0 |
if $type_iend_1 ne "k" and $tokens_to_go[$ibeg_2] ne "while"
|
|
34752
|
0 |
0 |
unless $combine_ok
|
|
34757
|
0 |
11 |
unless $n == 1 or $n == $nmax
|
|
34758
|
0 |
11 |
if $old_breakpoint_to_go[$iend_1]
|
|
34774
|
10 |
1 |
unless $combine_ok
|
|
34804
|
38 |
240 |
if $typel eq "?"
|
|
34805
|
1 |
239 |
if $typer eq "?"
|
|
34806
|
23 |
216 |
if ($typel eq ":")
|
|
34807
|
1 |
215 |
if ($typer eq ":")
|
|
34814
|
23 |
25 |
if ($i_first_colon > 0)
|
|
34816
|
13 |
10 |
if (defined $i_question and $i_question > 0)
|
|
34833
|
1 |
9 |
if ($type eq ',' || $type eq 'k' && ($nmax > 1 && $token eq 'return') and $self->in_same_container_i($ii, $i_question))
|
|
34847
|
1 |
12 |
if (@insert_list)
|
|
34868
|
0 |
50 |
unless %break_before_container_types
|
|
34871
|
0 |
50 |
if $nmax < 0
|
|
34884
|
21 |
122 |
if $ir <= $il
|
|
34891
|
4 |
118 |
if ($type_end eq "#")
|
|
34893
|
0 |
4 |
unless defined $Kend
|
|
34898
|
0 |
122 |
if ($total_weld_count)
|
|
34900
|
0 |
0 |
if (defined $Kend_test and $Kend_test > $Kl)
|
|
34907
|
0 |
0 |
if defined $Kend_test
|
|
34911
|
92 |
30 |
unless $is_opening_token{$token}
|
|
34912
|
0 |
30 |
if $Kl >= $Kend - 1
|
|
34915
|
0 |
30 |
unless defined $seqno
|
|
34918
|
16 |
14 |
unless $rbreak_before_container_by_seqno->{$seqno}
|
|
34923
|
0 |
14 |
if $ibreak < $il
|
|
34924
|
0 |
14 |
if $nobreak_to_go[$ibreak]
|
|
34929
|
10 |
40 |
if (@insert_list)
|
|
34938
|
17 |
3 |
if ($self->[57] == 0)
|
|
34949
|
3 |
11 |
if ($self->[60] == 0)
|
|
34962
|
0 |
0 |
unless ($self->[64])
|
|
34966
|
0 |
0 |
if ($self->[63] <= 6)
|
|
35004
|
5 |
136 |
if (@{$ri_starting_one_line_block;})
|
|
35029
|
855 |
3261 |
unless ref $indentation
|
|
35032
|
2638 |
623 |
if $indentation->get_marked
|
|
35039
|
382 |
241 |
unless $align_seqno
|
|
35044
|
241 |
0 |
if (defined $Ko and defined $Kc)
|
|
35045
|
107 |
134 |
if $Ko >= $K_to_go[$ibeg] and $Kc <= $K_to_go[$iend]
|
|
35064
|
54 |
80 |
if ($line == 1 and $i == $ibeg)
|
|
35077
|
122 |
12 |
if ($i == $ibeg) { }
|
|
35080
|
7 |
115 |
if ($line == 0) { }
|
|
35086
|
7 |
0 |
if (defined $indent)
|
|
35106
|
92 |
23 |
if $types_to_go[$iendm + 1] eq "b"
|
|
35121
|
10 |
2 |
if ($closing_index > $iend)
|
|
35123
|
9 |
1 |
if ($ci_levels_to_go[$ibeg_next] > 0)
|
|
35142
|
55 |
79 |
if ($move_right == 0)
|
|
35150
|
69 |
10 |
unless defined $collapsed_length
|
|
35160
|
10 |
69 |
if ($closing_index < 0 and not $collapsed_length)
|
|
35181
|
68 |
1 |
if ($have_child or $move_right > 0)
|
|
35186
|
3 |
65 |
if ($Kc > $K_to_go[$max_index_to_go])
|
|
35190
|
62 |
6 |
if ($i == $ibeg)
|
|
35192
|
61 |
1 |
if ($length > $max_length)
|
|
35199
|
61 |
465 |
if $closing_index <= $ibeg_t
|
|
35208
|
97 |
368 |
if ($length_t > $max_length)
|
|
35216
|
0 |
68 |
if ($right_margin < 0)
|
|
35239
|
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) { }
|
|
35257
|
37 |
26 |
$move_right <= $right_margin ? :
|
|
35297
|
0 |
5 |
unless @ilist
|
|
35306
|
6 |
9 |
if $inext > $iend
|
|
35310
|
7 |
2 |
ref $leading_spaces_to_go[$ibeg] ? :
|
|
35315
|
0 |
9 |
if ($excess > 0)
|
|
35318
|
0 |
0 |
if ($available_spaces > 0)
|
|
35329
|
0 |
4 |
if $inext <= $iend
|
|
35330
|
4 |
0 |
if $inext > $iend
|
|
35332
|
5 |
4 |
if $inext <= $iend
|
|
35368
|
0 |
9 |
if $max_line <= $line_open
|
|
35381
|
0 |
9 |
if ($ibeg eq $closing_index)
|
|
35382
|
0 |
9 |
if $lev_start != $levels_to_go[$ibeg]
|
|
35383
|
9 |
0 |
if $ci_start_plus != $ci_levels_to_go[$ibeg]
|
|
35384
|
0 |
0 |
if $closing_index <= $iend
|
|
35442
|
1 |
1271 |
if ($types_to_go[0] eq ":")
|
|
35448
|
12 |
1260 |
if (@{$rbond_strength_bias;})
|
|
35451
|
16 |
0 |
if ($ii >= 0 and $ii <= $max_index_to_go) { }
|
|
35468
|
0 |
1272 |
if ($types_to_go[$imin] eq "b")
|
|
35469
|
0 |
1272 |
if ($types_to_go[$imax] eq "b")
|
|
35480
|
9 |
206 |
if ($_ eq $last_tok)
|
|
35510
|
459 |
3904 |
if (@{$rcolon_list;})
|
|
35519
|
396 |
63 |
unless ($is_colon_chain)
|
|
35521
|
1801 |
65 |
unless $tokens_to_go[$i] eq "?"
|
|
35525
|
0 |
65 |
if $tokens_to_go[$max_index_to_go] eq "#" and not terminal_type_i(0, $max_index_to_go) =~ /^[\;\}]$/
|
|
35531
|
60 |
5 |
if defined $mate_index_to_go[$i] and $mate_index_to_go[$i] <= $i_next_nonblank
|
|
35535
|
4 |
1 |
if ($want_break_before{'?'})
|
|
35550
|
36 |
423 |
if ($next_nonblank_type eq '?') { }
|
|
|
4 |
419 |
elsif ($types_to_go[$i_lowest] eq '?') { }
|
|
35565
|
93 |
366 |
if ($next_nonblank_type eq ':') { }
|
|
|
4 |
362 |
elsif ($types_to_go[$i_lowest] eq ':') { }
|
|
35581
|
504 |
3859 |
if ($tokens_to_go[$i_next_nonblank] eq ")")
|
|
35599
|
4 |
379 |
if ($types_to_go[$i_prev] ne "," and defined $i_opening and $i_opening > $i_last_break)
|
|
35612
|
0 |
4363 |
if ($i_lowest <= $i_last_break)
|
|
35625
|
0 |
4363 |
$types_to_go[$i_begin] eq 'b' ? :
|
|
35627
|
293 |
4070 |
$types_to_go[$i_lowest] eq 'b' ? :
|
|
35632
|
12 |
4351 |
if ($tokens_to_go[$i_lowest] eq '{' || $tokens_to_go[$i_lowest] eq '[' and not $forced_breakpoint_to_go[$i_lowest])
|
|
35649
|
2526 |
1837 |
if ($i_begin <= $imax and $types_to_go[$i_begin] eq "b")
|
|
35662
|
53 |
1219 |
if (@i_colon_breaks)
|
|
35664
|
41 |
12 |
unless ($is_chain)
|
|
35738
|
0 |
4363 |
if ($types_to_go[$i_begin] eq "i" and substr($tokens_to_go[$i_begin], 0, 1) =~ /\w/)
|
|
35742
|
0 |
0 |
if ($tokens_to_go[$i_next_nonblank] eq "(")
|
|
35752
|
558 |
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)
|
|
35802
|
11855 |
24606 |
if ($type eq "b")
|
|
35805
|
582 |
35879 |
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}) { }
|
|
35837
|
325 |
35554 |
if ($len >= $maximum_line_length)
|
|
35866
|
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})
|
|
35887
|
35 |
33439 |
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)
|
|
35936
|
3022 |
0 |
if ($strength < 9999)
|
|
35946
|
45 |
3461 |
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)
|
|
35958
|
11 |
34 |
if ($i_lowest >= 0)
|
|
35969
|
16051 |
20399 |
if ($strength <= $lowest_strength and $strength < 10000)
|
|
35974
|
111 |
15940 |
if ($leading_alignment_type)
|
|
35988
|
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")
|
|
36020
|
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")
|
|
36033
|
3 |
3 |
if ($types_to_go[$il] =~ m[^[/\*\+\-\%]$] or $types_to_go[$ir] =~ m[^[/\*\+\-\%]$])
|
|
36046
|
3022 |
12909 |
if ($must_break)
|
|
36055
|
3754 |
5211 |
if ($line_count > 0 and $i_test < $imax and $lowest_strength - $last_break_strength <= "0.001")
|
|
36062
|
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])
|
|
36091
|
715 |
32593 |
if $i_test >= $imax
|
|
36100
|
31995 |
598 |
if ($excess < 0) { }
|
|
|
164 |
434 |
elsif ($excess == 0) { }
|
|
36120
|
118 |
46 |
if ($i_test + 1 < $imax and $next_nonblank_type ne ',' and not $is_closing_type{$next_nonblank_type}) { }
|
|
36155
|
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)
|
|
36167
|
495 |
54 |
if ($i_lowest >= 0)
|
|
36182
|
0 |
4363 |
if ($i_lowest < 0)
|
|
36205
|
58 |
10 |
if (defined $i_question)
|
|
36206
|
57 |
1 |
if ($want_break_before{'?'})
|
|
36210
|
58 |
0 |
if ($i_question >= 0)
|
|
36330
|
34 |
614 |
if ($rOpts_line_up_parentheses)
|
|
36333
|
3 |
31 |
if ($rOpts_extended_continuation_indentation)
|
|
36337
|
0 |
3 |
if ($rOpts_variable_maximum_line_length)
|
|
36364
|
2685 |
0 |
if ($depth_t < $minimum_depth)
|
|
36373
|
0 |
2685 |
if ($rOpts_comma_arrow_breakpoints == 3 and $seqno)
|
|
36397
|
4 |
2681 |
%break_at_old_comma_types ? :
|
|
36401
|
1023 |
1662 |
if ($changed_seqno or not defined $has_broken_sublist[$depth_t])
|
|
36421
|
3 |
0 |
if ($type_ii ne 'k') { }
|
|
36422
|
3 |
0 |
unless $is_binary_operator_type{$type_ii}
|
|
36426
|
0 |
0 |
unless $is_and_or{$tok_ii}
|
|
36429
|
0 |
0 |
unless defined $lbs
|
|
36431
|
0 |
0 |
unless defined $rbs
|
|
36433
|
0 |
0 |
if $rbs > $lbs
|
|
36434
|
0 |
0 |
if $rbs < $lbs
|
|
36457
|
640 |
0 |
if ($item_count_stack[$dd])
|
|
36465
|
640 |
0 |
$seqno ? :
|
|
36468
|
40 |
600 |
if ($dont_align[$dd]) { }
|
|
|
591 |
9 |
elsif ($real_comma_count) { }
|
|
36501
|
317 |
274 |
if $must_break_open
|
|
36560
|
20 |
56 |
if ($old_breakpoint_to_go[$ii])
|
|
36612
|
0 |
40 |
if ($ci_start and $rOpts_extended_continuation_indentation)
|
|
36614
|
0 |
0 |
if ($self->[79]{$K0})
|
|
36616
|
9 |
26 |
if (not $ci_start and $old_breakpoint_to_go[$i_first_comma] and $level_comma == $levels_to_go[0])
|
|
36623
|
3 |
68 |
if ($old_breakpoint_to_go[$ii])
|
|
36625
|
0 |
3 |
if $obp_count > 1
|
|
36626
|
3 |
0 |
if $levels_to_go[$ii] == $level_comma
|
|
36632
|
3 |
0 |
if ($ibreak >= 0 and $obp_count == 1 and $old_comma_break_count > 0)
|
|
36635
|
0 |
3 |
if $types_to_go[$ibreak_m] eq "b"
|
|
36636
|
3 |
0 |
if ($ibreak_m >= 0)
|
|
36658
|
3 |
0 |
if ($is_uncontained_comma_break_included_type{$type_m})
|
|
36662
|
3 |
0 |
if ($ibreak_p <= $max_index_to_go)
|
|
36669
|
0 |
3 |
unless ($rOpts_break_at_old_ternary_breakpoints)
|
|
36680
|
3 |
0 |
unless $no_break
|
|
36730
|
75 |
0 |
if ($item_count_stack[$dd] == 0 and $is_logical_container{$container_type[$dd]} or $has_old_logical_breakpoints[$dd])
|
|
36742
|
44 |
190 |
if ($rand_or_list[$dd][$ii])
|
|
36816
|
1987 |
0 |
if $current_depth < $minimum_depth
|
|
36828
|
24648 |
14001 |
if ($type ne "b")
|
|
36836
|
26 |
38623 |
if ($i_want_previous_break >= 0)
|
|
36842
|
14001 |
24648 |
if $type eq "b"
|
|
36860
|
2764 |
21884 |
if ($old_breakpoint_to_go[$i])
|
|
36875
|
145 |
24503 |
if ($type eq "#")
|
|
36876
|
0 |
145 |
if ($i != $max_index_to_go)
|
|
36890
|
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))
|
|
36923
|
2217 |
22431 |
if ($quick_filter_A{$type})
|
|
36924
|
63 |
2154 |
if ($type eq '||') { }
|
|
|
59 |
2095 |
elsif ($type eq '&&') { }
|
|
|
28 |
2067 |
elsif ($type eq 'f') { }
|
|
|
1524 |
543 |
elsif ($type eq 'k') { }
|
|
|
543 |
0 |
elsif ($is_assignment{$type}) { }
|
|
36926
|
31 |
32 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
36932
|
28 |
31 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
36940
|
44 |
1480 |
if ($token eq 'and') { }
|
|
|
40 |
1440 |
elsif ($token eq 'or') { }
|
|
|
141 |
1299 |
elsif ($is_if_unless{$token}) { }
|
|
36942
|
19 |
25 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
36953
|
15 |
25 |
if $i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints
|
|
36956
|
9 |
31 |
if ($is_logical_container{$container_type[$depth]}) { }
|
|
36960
|
16 |
15 |
if ($is_long_line) { }
|
|
|
4 |
11 |
elsif ($i == $i_line_start || $i == $i_line_end and $rOpts_break_at_old_logical_breakpoints) { }
|
|
36991
|
6834 |
17814 |
if ($type_sequence)
|
|
37004
|
3384 |
3450 |
if ($depth == $current_depth + 1 and $is_opening_type{$type}) { }
|
|
|
3180 |
270 |
elsif ($depth == $current_depth - 1 and $is_closing_type{$type}) { }
|
|
37041
|
19028 |
5620 |
unless $quick_filter_B{$type}
|
|
37048
|
1587 |
4033 |
if ($is_non_list_type{$type}) { }
|
|
|
2865 |
1168 |
elsif ($type eq ',') { }
|
|
|
1044 |
124 |
elsif ($type eq '=>') { }
|
|
|
124 |
0 |
elsif ($type eq '.') { }
|
|
37049
|
1577 |
10 |
unless ($self->is_in_list_by_i($i))
|
|
37055
|
28 |
1549 |
if ($type eq "f")
|
|
37066
|
0 |
1044 |
if $last_nonblank_type eq "=>"
|
|
37067
|
6 |
1038 |
if $break_at_old_commas[$depth]
|
|
37069
|
0 |
1038 |
if $rOpts_comma_arrow_breakpoints == 3 and not defined $override_cab3[$depth]
|
|
37096
|
902 |
1987 |
if $dd < $current_depth
|
|
37097
|
96 |
2793 |
if ($item_count_stack[$dd])
|
|
37102
|
50 |
2839 |
if $has_old_logical_breakpoints[$dd]
|
|
37105
|
1 |
2888 |
if @{$rfor_semicolon_list[$dd];}
|
|
37109
|
878 |
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 '"'))
|
|
37133
|
31 |
1956 |
if ($has_old_logical_breakpoints[$current_depth]) { }
|
|
|
12 |
1944 |
elsif ($i_old_assignment_break and $total_depth_variation > 4 and $old_breakpoint_count == 1 and $i_old_assignment_break < $max_index_to_go) { }
|
|
37175
|
646 |
2219 |
if ($want_comma_break[$depth])
|
|
37177
|
165 |
481 |
if ($is_closing_type{$next_nonblank_type})
|
|
37178
|
165 |
0 |
if ($rOpts_comma_arrow_breakpoints) { }
|
|
37187
|
0 |
0 |
$in ? :
|
|
37188
|
0 |
0 |
if ($self->[41]{$seqno})
|
|
37195
|
481 |
0 |
unless $next_nonblank_type eq "#"
|
|
37208
|
476 |
5 |
if ($ibreak > 0 and not $is_closing_token{$tokens_to_go[$ibreak + 1]})
|
|
37211
|
142 |
334 |
if ($tokens_to_go[$ibreak] eq "-")
|
|
37212
|
463 |
13 |
if ($types_to_go[$ibreak] eq "b")
|
|
37213
|
465 |
11 |
if ($types_to_go[$ibreak] =~ /^[,wiZCUG\(\{\[]$/)
|
|
37222
|
465 |
0 |
if ($types_to_go[$ibreak + 1] ne "->" and $types_to_go[$ibreak + 1] ne ",")
|
|
37242
|
8 |
11 |
if ($depth < $starting_depth and $comma_follows_last_closing_token and not $dont_align[$depth])
|
|
37246
|
8 |
0 |
unless $next_nonblank_type eq "#"
|
|
37253
|
640 |
1571 |
if ($item_count == 0)
|
|
37260
|
31 |
609 |
if ($opening_structure_index_stack[$depth] < 0 and $self->is_in_block_by_i($i))
|
|
37269
|
443 |
1768 |
if ($last_nonblank_type =~ /^[iR\]]$/)
|
|
37321
|
29 |
2735 |
if ($type eq 'k') { }
|
|
37324
|
153 |
2611 |
if ($next_nonblank_type eq 'k') { }
|
|
37333
|
6 |
2758 |
if ($poor_break)
|
|
37347
|
73 |
2685 |
if ($is_assignment{$type}) { }
|
|
|
29 |
2656 |
elsif ($type eq 'k') { }
|
|
37351
|
0 |
29 |
if ($is_if_unless{$token})
|
|
37352
|
0 |
0 |
if ($rOpts_break_at_old_trailing_conditionals)
|
|
37365
|
0 |
2758 |
if ($is_assignment{$next_nonblank_type}) { }
|
|
|
152 |
2606 |
elsif ($next_nonblank_type eq 'k') { }
|
|
|
9 |
2597 |
elsif ($next_nonblank_type eq 'A') { }
|
|
37376
|
28 |
124 |
if ($is_keyword_returning_list{$next_nonblank_token}) { }
|
|
|
7 |
117 |
elsif ($is_if_unless{$next_nonblank_token}) { }
|
|
|
0 |
117 |
elsif ($is_if_unless_while_until_for_foreach{$next_nonblank_token}) { }
|
|
37377
|
14 |
0 |
if ($rOpts_break_at_old_keyword_breakpoints and $type =~ /^[=\)\]\}Riw]$/ || $type eq 'k' && $is_keyword_returning_list{$token})
|
|
37396
|
14 |
0 |
unless $skip
|
|
37403
|
7 |
0 |
if ($rOpts_break_at_old_trailing_conditionals)
|
|
37414
|
0 |
0 |
if ($rOpts_break_at_old_trailing_loops and $token ne '}' || $type ne '}')
|
|
37424
|
0 |
0 |
unless $skip
|
|
37435
|
5 |
4 |
if ($rOpts_break_at_old_attribute_breakpoints)
|
|
37456
|
3315 |
3519 |
if ($is_closing_sequence_token{$token}) { }
|
|
37458
|
135 |
3180 |
if ($type eq ":")
|
|
37462
|
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)
|
|
37473
|
8 |
67 |
unless (defined $mix)
|
|
37474
|
17 |
58 |
if ($ieq > 0 and $ieq < $mix)
|
|
37482
|
825 |
2490 |
if (has_postponed_breakpoint($type_sequence))
|
|
37483
|
14 |
811 |
$type eq ':' ? :
|
|
37484
|
296 |
529 |
if ($i >= $inc)
|
|
37496
|
135 |
3384 |
if ($token eq '?') { }
|
|
37498
|
0 |
121 |
if (not defined $i_colon or $i == 0 or $i == $max_index_to_go)
|
|
37510
|
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 "#")
|
|
37533
|
28 |
3356 |
if ($rOpts_extended_line_up_parentheses and not defined $mate_index_to_go[$i])
|
|
37538
|
15 |
13 |
if ($lp_object)
|
|
37568
|
0 |
3384 |
if ($rOpts_comma_arrow_breakpoints == 3 and $type_sequence)
|
|
37577
|
989 |
2395 |
$is_container_label_type{$last_nonblank_type} ? :
|
|
37599
|
2 |
3382 |
%break_at_old_comma_types ? :
|
|
37603
|
714 |
2670 |
if ($next_nonblank_type eq "b" or $next_nonblank_type eq "#")
|
|
37638
|
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 "{")
|
|
37680
|
698 |
2482 |
if $depth < $minimum_depth
|
|
37691
|
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)
|
|
37706
|
544 |
2636 |
if ($item_count_stack[$current_depth])
|
|
37720
|
286 |
2894 |
if ($rOpts_line_up_parentheses and $saw_opening_structure)
|
|
37741
|
0 |
3180 |
if ($cab_flag == 3 and $type_sequence)
|
|
37743
|
0 |
0 |
if (defined $test_cab)
|
|
37750
|
10 |
3170 |
if ($type_sequence and $cab_flag != 5)
|
|
37751
|
7 |
3 |
if (not $self->[39]{$type_sequence}) { }
|
|
37759
|
2 |
1 |
unless ($rtype_count and $rtype_count->{'=>'})
|
|
37769
|
29 |
2453 |
if ($saw_opening_structure and not $lp_object and $levels_to_go[$i_opening] >= $high_stress_level)
|
|
37791
|
462 |
1854 |
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]})
|
|
37805
|
2159 |
1021 |
if (not $is_long_term and $saw_opening_structure)
|
|
37813
|
198 |
1961 |
if ($rOpts_line_up_parentheses)
|
|
37827
|
57 |
141 |
if (ref $indentation and $is_list)
|
|
37831
|
0 |
57 |
if ($diff > 0)
|
|
37834
|
25 |
0 |
if ($lp_tol_boost and $lp_object and $rOpts_extended_continuation_indentation || !$is_list)
|
|
37868
|
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})
|
|
38029
|
230 |
1745 |
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]})
|
|
38038
|
217 |
13 |
if (not $has_comma_breakpoints) { }
|
|
38053
|
4 |
3176 |
if ($is_long_term and @{$rfor_semicolon_list[$current_depth];})
|
|
38060
|
3 |
1 |
unless $lp_object
|
|
38067
|
732 |
2448 |
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 |
2436 |
elsif ($is_simple_logical_expression and $has_old_logical_breakpoints[$current_depth]) { }
|
|
|
96 |
2340 |
elsif ($is_long_term) { }
|
|
38102
|
98 |
634 |
if ($lp_object)
|
|
38110
|
732 |
0 |
if ($minimum_depth <= $current_depth)
|
|
38112
|
526 |
206 |
if ($i_opening >= 0)
|
|
38113
|
480 |
0 |
unless ($do_not_break_apart or is_unbreakable_container($current_depth))
|
|
38122
|
0 |
0 |
if ($is_long_term and $types_to_go[$i_opening] eq "L" and $opening_vertical_tightness{'{'} and $closing_vertical_tightness{'}'})
|
|
38128
|
0 |
0 |
if ($seqno)
|
|
38136
|
107 |
625 |
if ($last_comma_index[$depth])
|
|
38141
|
5 |
727 |
if ($last_dot_index[$depth])
|
|
38149
|
455 |
277 |
if ($i_opening > 2)
|
|
38150
|
238 |
217 |
$types_to_go[$i_opening - 1] eq 'b' ? :
|
|
38157
|
11 |
444 |
if ($type_prev eq ',' and $types_to_go[$i_prev - 1] eq ')' || $types_to_go[$i_prev - 1] eq '}') { }
|
|
|
6 |
438 |
elsif ($type_prev =~ /^([k\:\?]|&&|\|\|)$/ and $want_break_before{$token_prev}) { }
|
|
38180
|
84 |
648 |
if ($types_to_go[$i + 1] eq ",")
|
|
38185
|
0 |
732 |
if ($is_assignment{$next_nonblank_type} and $breakpoint_stack[$current_depth] != $forced_breakpoint_count)
|
|
38201
|
25 |
707 |
if (defined $icomma and $i_opening - $icomma < 5)
|
|
38202
|
0 |
25 |
unless ($forced_breakpoint_to_go[$icomma])
|
|
38264
|
23 |
2536 |
if ($i_opening_minus <= 0)
|
|
38270
|
1349 |
1187 |
if ($type_prev_nb eq "b" and $iprev_nb > 0)
|
|
38274
|
209 |
2327 |
if ($levels_to_go[$iprev_nb] < $levels_to_go[$i_opening_paren]) { }
|
|
|
240 |
2087 |
elsif ($type_prev_nb eq ',') { }
|
|
|
1830 |
257 |
elsif ($tokens_to_go[$i_opening_paren] eq '(' or $is_kwiZ{$type_prev_nb}) { }
|
|
|
22 |
235 |
elsif ($type_prev_nb eq '=') { }
|
|
38300
|
1465 |
2583 |
if ($is_key_type{$types_to_go[$j]})
|
|
38303
|
124 |
1341 |
if ($types_to_go[$j] eq "=")
|
|
38308
|
11 |
1819 |
if ($types_to_go[$i_opening_minus] eq "b")
|
|
38313
|
0 |
22 |
if ($want_break_before{$type_prev_nb})
|
|
38351
|
9 |
582 |
unless defined $rhash_A
|
|
38370
|
82 |
500 |
if ($has_broken_sublist)
|
|
38380
|
99 |
400 |
if ($break_at_old_commas or $interrupted or $i_opening_paren < 0)
|
|
38436
|
62 |
338 |
if ($rOpts_line_up_parentheses and $rhash_A->{'_i_effective_last_comma'} != $rhash_A->{'_i_last_comma'})
|
|
38444
|
0 |
62 |
if ($i_first_comma > 0 and $types_to_go[$i_first_comma - 1] eq "b")
|
|
38455
|
242 |
158 |
if $excess + $tol <= 0
|
|
38492
|
0 |
82 |
if ($maximum_field_count and $fields > $maximum_field_count)
|
|
38502
|
27 |
175 |
if ($j < $item_count and $ri_term_end->[$j] == $ri_term_begin->[$j] and $ritem_lengths->[$j] <= $small_length)
|
|
38508
|
82 |
202 |
if $j == 0
|
|
38509
|
6 |
196 |
if ($is_simple_last_term and $is_simple_next_term and $skipped_count < $max_skipped_count) { }
|
|
38518
|
67 |
129 |
unless defined $i_tc
|
|
38526
|
10 |
72 |
if ($interrupted)
|
|
38597
|
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) { }
|
|
38618
|
1 |
1 |
unless $must_break_open
|
|
38692
|
18 |
140 |
if ($is_lp_formatting and not $must_break_open)
|
|
38704
|
12 |
146 |
unless defined $hash_B
|
|
38735
|
73 |
40 |
$packed_lines == 2 ? :
|
|
|
11 |
113 |
$packed_lines == 1 ? :
|
|
|
22 |
124 |
$item_count < 3 ? :
|
|
38742
|
124 |
22 |
if ($opening_token eq "(")
|
|
38748
|
6 |
118 |
if ($rOpts_break_open_compact_parens)
|
|
38755
|
0 |
6 |
if ($flag eq '*' or $flag eq '1') { }
|
|
|
0 |
6 |
elsif ($flag eq '0') { }
|
|
38775
|
59 |
29 |
if ($packed_lines <= 2 and $item_count < 9 and $opening_is_in_block and $two_line_word_wrap_ok)
|
|
38785
|
5 |
6 |
if ($is_lp_formatting and $item_count == 2 and not $must_break_open)
|
|
38800
|
28 |
26 |
if ($number_of_fields == 2 and $item_count == 3 or $new_identifier_count > 0 and $sparsity > "0.15")
|
|
38811
|
1 |
27 |
if $use_separate_first_term
|
|
38816
|
25 |
3 |
unless ($must_break_open)
|
|
38817
|
24 |
1 |
if ($break_count <= 1 or $is_lp_formatting and not $need_lp_break_open)
|
|
38859
|
5 |
0 |
if (not $too_long and $i_opening_paren > 0 and $opening_token eq "(")
|
|
38868
|
0 |
0 |
if (not $too_long and $i_opening_paren > 0 and $list_type eq "=>")
|
|
38870
|
0 |
0 |
if ($i_opening_minus_test >= 0)
|
|
38890
|
16 |
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)
|
|
38912
|
0 |
16 |
if ($packed_lines > 2 and $item_count > 10) { }
|
|
38924
|
0 |
16 |
if $use_separate_first_term
|
|
38926
|
2 |
14 |
unless ($must_break_open_container)
|
|
38927
|
2 |
0 |
if ($break_count <= 1 or $is_lp_formatting and not $need_lp_break_open)
|
|
38968
|
0 |
591 |
if $item_count < 1
|
|
38973
|
23 |
568 |
if ($i_last_comma >= $max_index_to_go)
|
|
38975
|
9 |
14 |
if $item_count < 1
|
|
38998
|
1 |
2102 |
$i == 0 || $types_to_go[$i - 1] eq 'b' ? :
|
|
39002
|
2007 |
96 |
$types_to_go[$i_prev_plus] eq 'b' ? :
|
|
39015
|
582 |
1521 |
if ($j == 0) { }
|
|
39020
|
744 |
777 |
if ($length > $rmax_length->[$is_odd])
|
|
39029
|
576 |
6 |
$types_to_go[$i_last_comma + 1] eq 'b' ? :
|
|
39036
|
484 |
98 |
$types_to_go[$i_closing_paren - 1] eq 'b' ? :
|
|
39044
|
461 |
121 |
if ($last_item_length > 0)
|
|
39055
|
385 |
76 |
if ($last_item_length > $rmax_length->[$i_odd])
|
|
39062
|
156 |
305 |
if ($types_to_go[$i_b + 1] =~ /^[iR\]]$/)
|
|
39068
|
55 |
527 |
if ($i_effective_last_comma >= $max_index_to_go)
|
|
39076
|
578 |
4 |
unless $maximum_field_count
|
|
39142
|
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 =~ /^[\:\?]$/)
|
|
39166
|
158 |
0 |
unless ($use_separate_first_term)
|
|
39167
|
6 |
152 |
if ($is_keyword_with_special_leading_term{$list_type})
|
|
39171
|
5 |
1 |
if ($item_count < 3) { }
|
|
|
1 |
0 |
elsif ($first_term_length < 20 and $i_first_comma - $i_opening_paren < 4) { }
|
|
39172
|
5 |
0 |
if ($i_first_comma - $i_opening_paren < 4)
|
|
39180
|
1 |
0 |
if ($first_term_length < $columns)
|
|
39191
|
6 |
152 |
if ($use_separate_first_term) { }
|
|
39202
|
5 |
1 |
if $item_count <= 1
|
|
39214
|
53 |
99 |
if ($first_term_length > $rmax_length->[0])
|
|
39221
|
88 |
65 |
$rmax_length->[0] > $rmax_length->[1] ? :
|
|
39234
|
0 |
0 |
if ($rOpts_variable_maximum_line_length and $tokens_to_go[$i_opening_paren] eq "(" and @{$ri_term_begin;})
|
|
39243
|
0 |
0 |
if ($type eq "w")
|
|
39282
|
23 |
130 |
if ($number_of_fields_best != 0 and $number_of_fields_best < $number_of_fields_max) { }
|
|
|
0 |
130 |
elsif ($number_of_fields_best > 1 and $number_of_fields_best > $number_of_fields_max) { }
|
|
39300
|
17 |
19 |
if ($is_lp_formatting and $number_of_fields == 0 || $number_of_fields == 1 && $number_of_fields != $number_of_fields_best)
|
|
39325
|
56 |
97 |
if ($number_of_fields <= 0)
|
|
39331
|
0 |
153 |
if ($maximum_field_count and $number_of_fields > $maximum_field_count)
|
|
39348
|
41 |
112 |
if ($i_last_comma == $i_effective_last_comma) { }
|
|
39362
|
0 |
112 |
if ($i_first_comma > 0 and $types_to_go[$i_first_comma - 1] eq "b")
|
|
39369
|
0 |
153 |
if ($columns <= 0)
|
|
39376
|
7 |
146 |
if ($number_of_fields <= 0)
|
|
39397
|
43 |
103 |
if ($formatted_lines != int $formatted_lines)
|
|
39409
|
67 |
79 |
if ($number_of_fields > 1) { }
|
|
39417
|
12 |
134 |
if ($formatted_columns < $packed_columns)
|
|
39462
|
10 |
7 |
if ($available_spaces > 0)
|
|
39466
|
5 |
5 |
if ($number_of_fields_best == 0)
|
|
39471
|
3 |
7 |
if ($number_of_fields_best != 1)
|
|
39473
|
3 |
0 |
if ($available_spaces > $spaces_wanted_2)
|
|
39478
|
6 |
4 |
if ($spaces_wanted > 0)
|
|
39484
|
5 |
1 |
if ($deleted_spaces > 0)
|
|
39490
|
0 |
5 |
if ($number_of_fields_best == 1 and $number_of_fields >= 1)
|
|
39516
|
0 |
97 |
if ($number_of_fields < 1)
|
|
39522
|
0 |
97 |
$use_separate_first_term ? :
|
|
39562
|
3 |
150 |
if ($maximum_field_count)
|
|
39583
|
317 |
719 |
if ($types_to_go[$ib] =~ /^[qQ]$/) { }
|
|
|
36 |
683 |
elsif ($types_to_go[$ib] =~ /^[w\-]$/) { }
|
|
39594
|
777 |
259 |
if ($ib eq $ie) { }
|
|
39595
|
53 |
724 |
if ($is_quote and $tokens_to_go[$ib] =~ /\s/) { }
|
|
39603
|
229 |
30 |
if (&first(sub {
|
|
39607
|
24 |
235 |
if (&first(sub {
|
|
39616
|
290 |
746 |
if ($weighted_length >= $definitely_complex) { }
|
|
|
11 |
735 |
elsif ($i == $i_max and $i_last_break == $i - 1 and $weighted_length <= $definitely_simple) { }
|
|
39620
|
21 |
131 |
if ($i_last_break == $i - 1 and $i > 1 and $i_last_last_break != $i - 2)
|
|
39652
|
62 |
88 |
if ($max_width > 12 and $complex_item_count > $item_count / 2 and $number_of_fields_best != 2)
|
|
39674
|
2 |
3 |
if ($item_count <= 5) { }
|
|
39695
|
9 |
15 |
if ($length > $max_length[$is_odd])
|
|
39699
|
21 |
3 |
if (defined $last_length)
|
|
39706
|
18 |
6 |
if (defined $ll) { }
|
|
39718
|
3 |
0 |
$item_count > 5 ? :
|
|
|
0 |
3 |
$item_count > 10 ? :
|
|
39719
|
0 |
3 |
if ($total_variation_2 >= $factor * $total_variation_1)
|
|
39748
|
10 |
148 |
if ($odd_or_even == 1 and $max_pairs * $pair_width + $max_width <= $columns)
|
|
39773
|
49 |
97 |
if ($number_of_fields >= $odd_or_even * 2 and $formatted_lines > 0)
|
|
39777
|
0 |
49 |
if ($odd_or_even < 1)
|
|
39802
|
39 |
34 |
if ($j)
|
|
39830
|
137 |
1108 |
if ($old_breakpoint_to_go[$i])
|
|
39836
|
97 |
1 |
unless ($controlled_comma_style or $break_at_old_commas)
|
|
39851
|
0 |
0 |
if ($types_to_go[$i_break] ne ',') { }
|
|
39853
|
0 |
0 |
if ($index > $i_break and $types_to_go[$index] eq ",")
|
|
39865
|
1 |
2 |
if (not $controlled_comma_style and $break_at_old_commas)
|
|
39870
|
1 |
0 |
unless ($mixed)
|
|
39890
|
394 |
0 |
if ($i >= 0 and $i <= $j and $j <= $max_index_to_go) { }
|
|
39923
|
0 |
4701 |
if ($ibeg < 0)
|
|
39926
|
122 |
4579 |
if ($ibeg > $iend)
|
|
39940
|
606 |
1425 |
if (ref $spaces)
|
|
39961
|
905 |
12040 |
if (ref $excess)
|
|
39964
|
231 |
381 |
if ($total_weld_count and $type_sequence_to_go[$iend] and not $ignore_right_weld)
|
|
39969
|
12 |
219 |
if defined $wr
|
|
39986
|
253 |
3796 |
ref $indentation ? :
|
|
39995
|
39 |
0 |
ref $indentation ? :
|
|
40006
|
17 |
0 |
ref $item ? :
|
|
40045
|
6 |
642 |
if ($high_stress_level <= 1)
|
|
40051
|
6 |
642 |
if ($high_stress_level <= 2 and not $rOpts_add_whitespace)
|
|
40120
|
0 |
313 |
if (not $rOpts_line_up_parentheses && defined $max_index_to_go or $max_index_to_go < 0)
|
|
40124
|
0 |
0 |
defined $rOpts_line_up_parentheses ? :
|
|
40128
|
0 |
0 |
defined $max_index_to_go ? :
|
|
40167
|
2 |
311 |
if ($starting_in_quote)
|
|
40172
|
218 |
95 |
if ($Kpnb > 0 and $rLL->[$Kpnb][6] eq "b")
|
|
40175
|
281 |
32 |
if ($Kpnb >= 0 and $rLL->[$Kpnb][6] ne "b")
|
|
40179
|
281 |
32 |
if (defined $K_last_nonblank)
|
|
40196
|
1844 |
4187 |
if ($stack_changed)
|
|
40199
|
827 |
1017 |
if ($lp_object) { }
|
|
40214
|
348 |
5683 |
if ($type eq "{" or $type eq "(")
|
|
40222
|
145 |
203 |
if ($ii_last_equals)
|
|
40234
|
977 |
5054 |
if ($level < $current_level or $ci_level < $current_ci_level)
|
|
40241
|
1563 |
4468 |
if ($level > $current_level or $ci_level > $current_ci_level)
|
|
40248
|
3960 |
2071 |
if ($type ne "b")
|
|
40253
|
233 |
3727 |
if ($type eq '=>') { }
|
|
|
670 |
3057 |
elsif ($type eq ',') { }
|
|
|
89 |
2968 |
elsif ($is_assignment{$type}) { }
|
|
40273
|
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))
|
|
40333
|
1125 |
0 |
if ($ii_begin_line > 0)
|
|
40337
|
8 |
1117 |
$last_nonblank_type eq 'k' ? :
|
|
40338
|
14 |
1111 |
if $wbb
|
|
40350
|
4599 |
1432 |
if ($ii > $ii_begin_line) { }
|
|
40358
|
2893 |
1706 |
if (ref $indentation)
|
|
40379
|
3604 |
2427 |
if ($rLP->[$max_lp_stack][2])
|
|
40383
|
1403 |
2201 |
if ($max_lp_stack > 0 and $ci_level and $$rLP[$max_lp_stack - 1][2]) { }
|
|
40397
|
236 |
77 |
unless $rOpts_extended_line_up_parentheses
|
|
40421
|
136 |
9 |
if ($ii_last_equals and $ii < $max_index_to_go)
|
|
40424
|
102 |
34 |
if $types_to_go[$inext_nb] eq "b"
|
|
40430
|
108 |
37 |
if ($ii_last_equals and $ii_last_equals > $ii_begin_line and not $is_empty_container)
|
|
40449
|
0 |
108 |
if ($want_break_before{$types_to_go[$i_test]}) { }
|
|
|
108 |
0 |
elsif ($types_to_go[$i_test + 1] eq 'b') { }
|
|
40451
|
0 |
0 |
if $types_to_go[$i_test] eq "b"
|
|
40472
|
3 |
105 |
if ($min_len and $min_len > $len_increase)
|
|
40476
|
0 |
28 |
if ($lp_position_predictor + $len_increase > $mll or $seqno and $self->[97]{$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])
|
|
40517
|
15 |
1 |
if (defined $Kc and $Kc <= $K_to_go[$max_index_to_go] or $rOpts_extended_line_up_parentheses)
|
|
40543
|
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})
|
|
40576
|
0 |
1113 |
if ($max_lp_stack <= 0)
|
|
40588
|
623 |
490 |
if ($rLP->[$max_lp_stack][2])
|
|
40596
|
352 |
271 |
if ($type eq "}" or $type eq ")")
|
|
40600
|
34 |
318 |
unless defined $comma_count
|
|
40601
|
44 |
308 |
unless defined $arrow_count
|
|
40611
|
57 |
55 |
if ($available_spaces > 0 and $K_start >= $K_to_go[0] and $comma_count <= 0 || $arrow_count > 0)
|
|
40622
|
0 |
57 |
if ($i < 0 or $i > $max_lp_object_list)
|
|
40631
|
30 |
27 |
if ($arrow_count == 0) { }
|
|
40657
|
506 |
607 |
if ($rLP_top->[2])
|
|
40665
|
977 |
136 |
if ($lev <= $level and $ci_lev <= $ci_level)
|
|
40708
|
1531 |
32 |
if (defined $K_last_nonblank)
|
|
40712
|
507 |
1024 |
$last_nonblank_seqno ? :
|
|
40721
|
34 |
1529 |
if ($max_lp_stack == 0) { }
|
|
|
1249 |
280 |
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) { }
|
|
40753
|
515 |
734 |
if ($in_lp_mode)
|
|
40771
|
58 |
222 |
if (defined $min_len)
|
|
40776
|
3 |
55 |
if ($excess > 0)
|
|
40788
|
153 |
127 |
if ($rLP_top->[2])
|
|
40794
|
0 |
280 |
!$rOpts_add_whitespace && $rOpts_extended_line_up_parentheses ? :
|
|
40799
|
2 |
278 |
if (not $in_lp_mode and $available_spaces <= $tol || $next_opening_too_far) { }
|
|
40811
|
202 |
76 |
if ($available_spaces >= $standard_increment) { }
|
|
|
47 |
29 |
elsif ($available_spaces > 1) { }
|
|
|
29 |
0 |
elsif ($is_opening_token{$last_nonblank_token}) { }
|
|
40823
|
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")
|
|
40846
|
15 |
14 |
if ($tightness{$last_nonblank_token} < 2) { }
|
|
40858
|
62 |
216 |
if ($available_spaces < 0)
|
|
40869
|
1177 |
386 |
if ($type ne "b")
|
|
40871
|
506 |
671 |
if ($rLP->[$max_lp_stack][2])
|
|
40881
|
623 |
554 |
if ($in_lp_mode)
|
|
40886
|
623 |
0 |
if ($level >= 0)
|
|
40891
|
623 |
0 |
if ($ii_begin_line >= 0 and $ii_begin_line <= $max_index_to_go)
|
|
40906
|
2 |
0 |
if ($type eq "#" and $max_index_to_go > 0 and $align_seqno and $rOpts_indent_columns > 0)
|
|
40939
|
623 |
0 |
if ($level >= 0)
|
|
40943
|
271 |
352 |
if ($is_opening_token{$last_nonblank_token} and $last_nonblank_seqno)
|
|
40970
|
170 |
1007 |
if ($available_spaces > 0 and $lp_object)
|
|
40974
|
31 |
139 |
if $space_count > $halfway
|
|
40992
|
243 |
882 |
if $max_lp_object_list < 0
|
|
41000
|
32 |
850 |
if ($types_to_go[$ii_to_go] eq "," and $ii_to_go < $max_index_to_go)
|
|
41004
|
32 |
0 |
if ($types_to_go[$in] eq "b" and $in < $max_index_to_go)
|
|
41005
|
7 |
25 |
if ($is_closing_token{$tokens_to_go[$in]})
|
|
41015
|
880 |
2 |
if $spaces_needed <= 0
|
|
41029
|
187 |
13 |
if $item->get_closed >= 0
|
|
41033
|
8 |
5 |
if ($available_spaces > 0)
|
|
41038
|
0 |
2 |
unless @candidates
|
|
41043
|
0 |
7 |
unless $Perl::Tidy::Formatter::b->[1] <=> $Perl::Tidy::Formatter::a->[1]
|
|
41048
|
2 |
0 |
$available_spaces > $spaces_needed ? :
|
|
41064
|
200 |
0 |
if ($old_spaces >= $deleted_spaces) { }
|
|
41086
|
2 |
0 |
if $spaces_needed <= 0
|
|
41107
|
148 |
88 |
if $max_lp_object_list < 0
|
|
41114
|
521 |
19 |
if $item->get_closed >= 0
|
|
41119
|
9 |
10 |
if ($available_spaces > 0)
|
|
41160
|
0 |
113 |
if $i_begin_line < 0 or $i_begin_line > $max_index_to_go
|
|
41165
|
18 |
95 |
if ($i_begin_line == $i_opening)
|
|
41175
|
18 |
0 |
unless $self->[76]{$K_to_go[$i_opening]}
|
|
41176
|
0 |
0 |
unless $types_to_go[$max_index_to_go] eq "q"
|
|
41183
|
1 |
94 |
if $test2 != $test1
|
|
41187
|
44 |
50 |
if ($ibr > 0 and $types_to_go[$ibr] eq "b")
|
|
41192
|
44 |
50 |
if ($ibr >= 0)
|
|
41198
|
33 |
11 |
if (defined $i_nonblank)
|
|
41219
|
5 |
1 |
if ($available_spaces > 0 and $spaces_wanted <= $available_spaces || !$item->get_have_child)
|
|
41252
|
0 |
0 |
unless (defined $ri_first and defined $ri_last)
|
|
41260
|
0 |
0 |
if ($nmax < 0 or $nmax_check < 0 or $nmax != $nmax_check)
|
|
41271
|
0 |
0 |
if ($ibeg < 0 or $iend < $ibeg or $iend > $max_index_to_go)
|
|
41277
|
0 |
0 |
if $n == 0
|
|
41278
|
0 |
0 |
if ($ibeg <= $iend_m)
|
|
41325
|
767 |
4569 |
if (not $max_index_to_go and $type_beg eq "#")
|
|
41328
|
56 |
711 |
if ($batch_CODE_type and $batch_CODE_type eq 'HSC') { }
|
|
41332
|
85 |
5251 |
if ($rOpts_closing_side_comments)
|
|
41338
|
833 |
4503 |
if ($n_last_line > 0) { }
|
|
|
81 |
4422 |
elsif ($rOpts_extended_continuation_indentation) { }
|
|
41346
|
23 |
305 |
if $type_beg eq "k" and $is_if_unless{$token_beg}
|
|
41348
|
829 |
4 |
if $rOpts_logical_padding
|
|
41351
|
35 |
798 |
if $rOpts_extended_line_up_parentheses
|
|
41371
|
1534 |
3802 |
if (not $max_index_to_go) { }
|
|
41374
|
56 |
1478 |
if ($is_HSC) { }
|
|
41411
|
3063 |
5336 |
if ($nline > 0)
|
|
41426
|
3063 |
5336 |
if ($nline < $n_last_line) { }
|
|
|
4006 |
1330 |
elsif (not $is_block_comment and $Kend < $Klimit) { }
|
|
41443
|
3431 |
575 |
if ($Kbeg_next < $Klimit and $rLL->[$Kbeg_next][6] eq "b")
|
|
41466
|
7566 |
833 |
if (not $batch_CODE_type or $batch_CODE_type eq "VER")
|
|
41521
|
1055 |
34 |
if ($type_beg eq "Q" and $rOpts_outdent_long_quotes or $type_beg eq "#" and $rOpts_outdent_long_comments and not $this_batch->[2])
|
|
41539
|
21 |
1034 |
if (ref $indentation)
|
|
41550
|
26 |
8373 |
if ($is_outdented_line) { }
|
|
|
54 |
8319 |
elsif ($do_not_pad) { }
|
|
|
161 |
8158 |
elsif ($token_beg eq 'if' and $type_beg eq 'k') { }
|
|
41565
|
124 |
37 |
if ($Kbeg > 0)
|
|
41568
|
112 |
12 |
if ($type_m eq "b" and $Km > 0)
|
|
41572
|
23 |
101 |
if ($type_m eq "#" and $Km > 0)
|
|
41575
|
7 |
16 |
if ($type_m eq "b" and $Km > 0)
|
|
41582
|
49 |
75 |
if ($seqno_m)
|
|
41588
|
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")
|
|
41610
|
1333 |
6355 |
unless ($is_block_comment or $self->[108])
|
|
41637
|
102 |
8297 |
if ($type_beg eq ":" or $nline > 0 and $type_end_last eq ":")
|
|
41640
|
98 |
4 |
$nline > 0 ? :
|
|
41642
|
62 |
8 |
if ($terminal_type ne ";" and $n_last_line > $nline and $level_end == $lev)
|
|
41650
|
17 |
27 |
if ($last_leading_type eq ":" and $terminal_type eq ';' && $level_end <= $lev || $terminal_type ne ':' && $level_end < $lev)
|
|
41670
|
0 |
15 |
if ($KP <= $Knext_last)
|
|
41679
|
8 |
7 |
if $KP > $Kend
|
|
41681
|
0 |
7 |
if ($type_KP eq "?" or $type_KP eq ":")
|
|
41693
|
17 |
8382 |
if ($closing_side_comment and $nline == $n_last_line)
|
|
41697
|
17 |
0 |
if (@{$rfields;})
|
|
41712
|
7688 |
711 |
unless ($is_block_comment)
|
|
41728
|
1409 |
6990 |
if ($is_closing_type{$types_to_go[$ibeg]})
|
|
41729
|
1152 |
7247 |
if ($is_closing_type{$types_to_go[$iend]})
|
|
41738
|
0 |
876 |
if ($rOpts_line_up_parentheses and $type_beg eq "q" and $ibeg == $iend)
|
|
41746
|
0 |
0 |
if (defined $Km and $rLL->[$Km][6] eq "q" or defined $Kp and $rLL->[$Kp][6] eq "q")
|
|
41761
|
61 |
8338 |
if ($block_type_to_go[$i_terminal] and $nesting_depth_end > $nesting_depth_beg)
|
|
41820
|
976 |
4360 |
if $this_batch->[11] or $types_to_go[$max_index_to_go] eq "q"
|
|
41825
|
0 |
5336 |
if ($cscw_block_comment)
|
|
41840
|
0 |
0 |
unless defined $msg
|
|
41858
|
0 |
0 |
if (defined $KK and not $rOpts_indent_only)
|
|
41861
|
0 |
0 |
if ($len_by_sum != $len_tok_i or defined $len_tok_K and $len_by_sum != $len_tok_K)
|
|
41864
|
0 |
0 |
defined $KK ? :
|
|
41865
|
0 |
0 |
unless defined $KK
|
|
41952
|
0 |
3799 |
if ($max_i < $max_index_to_go)
|
|
41959
|
84 |
3715 |
if ($max_i <= 0 or not $rOpts_add_whitespace)
|
|
41967
|
315 |
3400 |
if ($types_to_go[$max_i] eq "#")
|
|
41971
|
315 |
0 |
if ($i_terminal > 0 and $types_to_go[$i_terminal] eq "b")
|
|
42011
|
7 |
308 |
if (not $do_not_align || $rOpts_valign_side_comments and $rOpts_valign_code)
|
|
42018
|
7 |
0 |
if ($types_to_go[$ipad] eq "b")
|
|
42026
|
298 |
17 |
unless ($do_not_align)
|
|
42035
|
15 |
3700 |
unless ($rOpts_valign_code)
|
|
42048
|
446 |
6137 |
if $iend <= $ibeg
|
|
42051
|
300 |
5837 |
if ($iend > $i_terminal)
|
|
42097
|
1884 |
4253 |
if ($type_beg eq "k")
|
|
42103
|
1715 |
169 |
if ($types_to_go[$i_good_paren] eq "b")
|
|
42111
|
27 |
0 |
if ($token_beg eq "elsif" and $i_good_paren < $iend and $tokens_to_go[$i_good_paren] eq "(")
|
|
42117
|
0 |
27 |
unless (defined $i_elsif_close)
|
|
42127
|
18121 |
32748 |
if ($type = $types_to_go[$i]) eq "b"
|
|
42158
|
1142 |
31606 |
if ($token eq ")" and @imatch_list)
|
|
42165
|
0 |
1142 |
unless (defined $imate)
|
|
42166
|
54 |
177 |
if ($imatch_list[-1] eq $imate and $ibeg > 1 || @imatch_list > 1 and $imate > $i_good_paren)
|
|
42170
|
54 |
0 |
if ($ralignment_type_to_go->[$imate])
|
|
42180
|
190 |
32558 |
if ($levels_to_go[$i] < $level_beg)
|
|
42193
|
2316 |
30242 |
if ($i < $ibeg + 2) { }
|
|
|
12222 |
18020 |
elsif ($types_to_go[$i - 1] ne 'b') { }
|
|
|
3652 |
14368 |
elsif ($last_vertical_alignment_BEFORE_index == $i - 2) { }
|
|
|
755 |
13613 |
elsif ($type eq 'k') { }
|
|
|
58 |
13555 |
elsif ($type eq 'q') { }
|
|
|
4591 |
8964 |
elsif ($is_vertical_alignment_type{$type} and not $is_not_vertical_alignment_token{$token}) { }
|
|
|
71 |
8893 |
elsif ($type eq 'U') { }
|
|
42207
|
187 |
568 |
if ($is_vertical_alignment_keyword{$token})
|
|
42213
|
11 |
176 |
if ($token eq "unless" and $rOpts_valign_if_unless)
|
|
42221
|
36 |
22 |
if ($types_to_go[0] eq "k" and $tokens_to_go[0] eq "use")
|
|
42232
|
51 |
24 |
if ($rOpts_valign_wide_equals and $is_assignment{$type})
|
|
42237
|
41 |
4550 |
if ($type eq "A")
|
|
42240
|
41 |
0 |
$in > $ibeg && $in < $iend ? :
|
|
42244
|
38 |
3 |
$type_next eq 'w' || $type_next eq 'q' ? :
|
|
42258
|
690 |
3901 |
if ($i == $iend)
|
|
42260
|
671 |
19 |
unless $is_terminal_alignment_type{$type}
|
|
42280
|
37 |
1708 |
if ($i == $ibeg + 2 and $is_dot_question_colon{$type_beg} and $types_to_go[$i - 1] eq "b")
|
|
42289
|
133 |
4458 |
if ($is_low_level_alignment_token{$token} and $levels_to_go[$i] != $level_beg)
|
|
42295
|
637 |
3954 |
if ($token eq "(")
|
|
42302
|
196 |
441 |
if ($vert_last_nonblank_type eq "k" and not $is_if_unless_elsif{$tokens_to_go[$i - 2]})
|
|
42310
|
7 |
630 |
unless ($rOpts_function_paren_vertical_alignment)
|
|
42313
|
7 |
0 |
if $self->[18]{$seqno}
|
|
42317
|
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)
|
|
42338
|
1 |
41 |
if ($types_to_go[0] eq "k" and $tokens_to_go[0] eq "use" and substr($token, 0, 2) eq "qw")
|
|
42354
|
3801 |
28757 |
if ($alignment_type) { }
|
|
42366
|
2247 |
327 |
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})
|
|
42391
|
6048 |
26510 |
if ($alignment_type)
|
|
42394
|
63 |
5985 |
if ($token eq '{' and $block_type_to_go[$i] and $matches_ASUB{$block_type_to_go[$i]}) { }
|
|
|
17 |
5968 |
elsif ($i > $i_elsif_open and $i < $i_elsif_close) { }
|
|
|
5 |
5963 |
elsif (substr($alignment_type, 0, 1) eq ' ') { }
|
|
42434
|
5 |
51 |
if (not $rOpts_add_whitespace) { }
|
|
|
1 |
50 |
elsif (not $rOpts_valign_side_comments and $rOpts_valign_code) { }
|
|
42518
|
0 |
3802 |
if ($max_index_to_go == 0)
|
|
42519
|
0 |
0 |
if (@{$ri_first;} == 1 and $ri_last->[0] == 0) { }
|
|
42553
|
3799 |
3 |
if ($rOpts_valign_code or $types_to_go[$max_index_to_go] eq "#")
|
|
42600
|
15 |
0 |
if ($rLL->[$KK][6] eq "q")
|
|
42603
|
2 |
13 |
if ($ii > 0) { }
|
|
42604
|
2 |
0 |
if $token =~ /^qw\s*[\(\{\[]/
|
|
42608
|
3 |
10 |
unless ($self->[123][1])
|
|
42609
|
3 |
0 |
if $token =~ /[\)\}\]]$/
|
|
42641
|
0 |
3 |
if $max_line < 1
|
|
42649
|
1 |
2 |
if ($is_closing_token{$tokens_to_go[$ibeg_max]}) { }
|
|
42651
|
0 |
1 |
if $i_n < $ibeg_max or $i_n > $iend_max
|
|
42652
|
0 |
1 |
if $types_to_go[$i_n] ne ";"
|
|
42654
|
0 |
1 |
if not defined $i_opening or $i_opening <= 0
|
|
42661
|
0 |
2 |
if ($types_to_go[$i_t] eq "#")
|
|
42664
|
0 |
2 |
if $i_t <= $ibeg_max
|
|
42665
|
0 |
2 |
if $types_to_go[$i_t] ne ";"
|
|
42667
|
0 |
2 |
if $i_t <= $ibeg_max
|
|
42668
|
0 |
2 |
unless $is_closing_token{$tokens_to_go[$i_t]}
|
|
42670
|
0 |
2 |
if not defined $i_opening or $i_opening < 0
|
|
42679
|
0 |
3 |
unless $ci_levels_to_go[$ibeg_last]
|
|
42682
|
0 |
3 |
if ref $reduced_spaces_to_go[$ibeg_last]
|
|
42687
|
0 |
7 |
if ref $reduced_spaces_to_go[$ibeg]
|
|
42688
|
3 |
4 |
unless $ci_levels_to_go[$ibeg]
|
|
42689
|
0 |
4 |
if $levels_to_go[$ibeg] != $level_last
|
|
42696
|
0 |
3 |
if $line_o < 0
|
|
42699
|
0 |
3 |
if $ci_levels_to_go[$ibeg_o]
|
|
42700
|
0 |
3 |
if $levels_to_go[$ibeg_o] >= $level_last
|
|
42701
|
0 |
3 |
if $i_opening < $ibeg_o or $i_opening > $iend_o
|
|
42749
|
47 |
867 |
if ($rix_seqno_controlling_ci and @{$rix_seqno_controlling_ci;})
|
|
42767
|
71 |
843 |
if ($rOpts_line_up_parentheses and $rOpts_extended_continuation_indentation)
|
|
42774
|
19 |
66 |
if (ref $leading_spaces_to_go[$ibeg])
|
|
42809
|
3047 |
930 |
if ($line and not $skip_SECTION_1)
|
|
42816
|
15 |
754 |
if ($lev == $lev_last + 1 and $ci_levels_to_go[$ibeg] and not $ci_levels_to_go[$ibeg_last])
|
|
42824
|
11 |
3036 |
if ($line_1) { }
|
|
42827
|
8 |
3 |
if ($lev == $lev_last) { }
|
|
|
3 |
0 |
elsif ($lev < $lev_last) { }
|
|
42828
|
6 |
2 |
if ($types_to_go[$ibeg] eq 'k' and $is_sort_map_grep{$tokens_to_go[$ibeg]}) { }
|
|
42847
|
0 |
6 |
if $is_semicolon_terminated
|
|
42869
|
3 |
8 |
if (defined $line_2 and defined $line_1)
|
|
42871
|
3 |
0 |
if $continuation_line_count >= 0
|
|
42886
|
770 |
2266 |
if ($lev > $lev_last)
|
|
42887
|
10 |
760 |
if ($types_to_go[$ibeg] eq "k" and $is_sort_map_grep{$tokens_to_go[$ibeg]})
|
|
42905
|
512 |
3465 |
if ($types_to_go[$ibeg] eq "}" and $nesting_depth_to_go[$iend] + 1 == $nesting_depth_to_go[$ibeg])
|
|
42912
|
6 |
506 |
if ($terminal_type eq "#" and $iend > $ibeg)
|
|
42914
|
0 |
6 |
if ($terminal_type eq "#" and $iend - 1 > $ibeg)
|
|
42925
|
19 |
493 |
if ($terminal_type eq "{" and not $is_cuddled_closing_brace)
|
|
42936
|
1386 |
2591 |
if ($ci_levels_to_go[$ibeg])
|
|
42939
|
28 |
37 |
if ($seqno and $undo_extended_ci{$seqno})
|
|
42942
|
15 |
13 |
unless (ref $reduced_spaces_to_go[$ibeg])
|
|
42954
|
31 |
3946 |
if (not $ci_levels_to_go[$ibeg] and defined $i_controlling_ci[$line])
|
|
42967
|
3 |
911 |
if ($line_double_jump and $rOpts_minimize_continuation_indentation)
|
|
43040
|
684 |
145 |
if ($K_to_go[0] > 0)
|
|
43042
|
641 |
43 |
if ($Kp > 0 and $rLL->[$Kp][6] eq "b")
|
|
43045
|
197 |
487 |
if ($Kp > 0 and $rLL->[$Kp][6] eq "#")
|
|
43047
|
25 |
172 |
if ($Kp > 0 and $rLL->[$Kp][6] eq "b")
|
|
43052
|
140 |
544 |
if ($seqno)
|
|
43054
|
106 |
34 |
if ($block_type)
|
|
43073
|
192 |
2858 |
$type_next eq 'k' ? :
|
|
43076
|
21 |
1001 |
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])
|
|
43086
|
2709 |
341 |
unless $has_leading_op_next
|
|
43090
|
36 |
305 |
if $nesting_depth_to_go[$ibeg] > $nesting_depth_to_go[$ibeg_next]
|
|
43097
|
276 |
29 |
if ($nesting_depth_to_go[$ibeg] == $nesting_depth_to_go[$ibeg_next])
|
|
43102
|
245 |
31 |
if ($line > 0) { }
|
|
43105
|
165 |
80 |
if $has_leading_op
|
|
43135
|
0 |
80 |
if $levels_to_go[$ibeg] ne $levels_to_go[$ibeg_next]
|
|
43144
|
0 |
3 |
if ($types_to_go[$iendm] eq "," and $line == 1 and $max_line > 2)
|
|
43161
|
22 |
58 |
unless $ok_pad
|
|
43172
|
0 |
31 |
if $starting_in_quote
|
|
43176
|
0 |
31 |
if ($types_to_go[$ibeg] eq '}') { }
|
|
|
4 |
27 |
elsif ($is_short_block) { }
|
|
43189
|
0 |
27 |
if $nesting_depth_to_go[$ibeg] != $nesting_depth_to_go[$ibeg_next]
|
|
43209
|
16 |
11 |
if $max_line <= 1
|
|
43219
|
3 |
8 |
if $leading_token eq "."
|
|
43223
|
0 |
12 |
if $line + $l > $max_line
|
|
43227
|
7 |
5 |
if $tokens_to_go[$ibeg_next_next] eq $leading_token
|
|
43232
|
5 |
3 |
if $tokens_differ
|
|
43233
|
0 |
3 |
if $count < 3 and $leading_token ne ":"
|
|
43240
|
29 |
65 |
unless (defined $ipad)
|
|
43246
|
50 |
29 |
if not $type_sequence_to_go[$i] && defined $mate_index_to_go[$i] or $mate_index_to_go[$i] <= $iend
|
|
43252
|
29 |
0 |
if $ipad
|
|
43254
|
0 |
29 |
if not $ipad or $ipad > $iend
|
|
43275
|
0 |
94 |
if $ipad == 0 and $peak_batch_size <= 1
|
|
43280
|
9 |
85 |
if $nesting_depth_to_go[$iend_next + 1] > $nesting_depth_to_go[$ipad]
|
|
43289
|
78 |
7 |
if ($line + 2 <= $max_line)
|
|
43292
|
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])
|
|
43305
|
7 |
78 |
if (not $types_match and $type eq "!")
|
|
43309
|
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])
|
|
43373
|
22 |
157 |
if $nesting_depth_to_go[$ibeg_t + 1] < $depth or $nesting_depth_to_go[$ibeg_t] < $depth
|
|
43378
|
2 |
155 |
if ($levels_to_go[$ibeg_t] + $ci_levels_to_go[$ibeg_t] < $lsp)
|
|
43387
|
48 |
15 |
if ($l == $max_line)
|
|
43389
|
3 |
45 |
if ($types_to_go[$i2] eq "#")
|
|
43391
|
0 |
3 |
if terminal_type_i($i1, $i2) eq ","
|
|
43412
|
0 |
63 |
if ($types_to_go[$ibeg_next] eq "m")
|
|
43413
|
0 |
0 |
if $types_to_go[$ibeg] eq "Q"
|
|
43416
|
2 |
61 |
unless $ok_to_pad
|
|
43439
|
4 |
57 |
if ($matches_without_bang)
|
|
43443
|
0 |
61 |
if (ref $indentation_1 and $indentation_1->get_recoverable_spaces == 0)
|
|
43447
|
0 |
0 |
if (ref $indentation_2 and $indentation_2->get_recoverable_spaces != 0)
|
|
43456
|
7 |
54 |
if ($pad_spaces < 0)
|
|
43462
|
3 |
4 |
if ($pad_spaces == -1)
|
|
43463
|
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])
|
|
43486
|
51 |
10 |
if ($ipad >= 0 and $pad_spaces)
|
|
43489
|
51 |
0 |
if ($pad_spaces + $length_t <= $maximum_line_length_at_level[$levels_to_go[$ibeg]])
|
|
43557
|
0 |
21 |
if $iend < $ibeg + 3 or $types_to_go[$ibeg + 1] ne "b"
|
|
43561
|
0 |
21 |
unless $seqno
|
|
43563
|
6 |
15 |
unless $is_list
|
|
43567
|
11 |
4 |
if not $seqno_beg_next or $seqno_beg_next != $seqno
|
|
43571
|
3 |
1 |
if not defined $mate_index_to_go[$ibeg] or $mate_index_to_go[$ibeg] <= $iend_next
|
|
43576
|
0 |
1 |
if ($types_to_go[$i_terminal] eq "#")
|
|
43578
|
0 |
0 |
if ($types_to_go[$i_terminal] eq "b")
|
|
43582
|
0 |
1 |
if $i_terminal < $ibeg + 2
|
|
43583
|
0 |
1 |
if $types_to_go[$i_terminal] ne ","
|
|
43591
|
0 |
1 |
if ref $lsp or ref $lsp_next
|
|
43598
|
0 |
1 |
if $pad_spaces <= 0
|
|
43602
|
0 |
1 |
if $excess + $pad_spaces > 0
|
|
43619
|
59 |
2 |
if ($pad_spaces > 0) { }
|
|
|
0 |
2 |
elsif ($pad_spaces == 0) { }
|
|
|
2 |
0 |
elsif ($pad_spaces == -1 and $tokens_to_go[$ipad] eq ' ') { }
|
|
43677
|
0 |
35 |
if @{$ri_first;} <= 1
|
|
43682
|
5 |
30 |
unless ref $lp_object
|
|
43686
|
27 |
3 |
unless $K_extra_space
|
|
43692
|
0 |
3 |
if $ii <= $ibeg_0 or $ii > $iend_0
|
|
43696
|
1 |
2 |
if substr($tok, 0, 1) eq " "
|
|
43701
|
0 |
2 |
if $types_to_go[$ibeg_0] eq "k" and $is_if_unless_elsif{$tokens_to_go[$ibeg_0]}
|
|
43705
|
2 |
0 |
if ($spaces > 0)
|
|
43834
|
3430 |
3435 |
unless ($alignment_count)
|
|
43841
|
631 |
2799 |
if ($ibeg == $iend) { }
|
|
43871
|
1855 |
1580 |
if ($ibeg == 0 and $iend == $max_index_to_go)
|
|
43873
|
258 |
1597 |
if ($types_to_go[$iterm] eq "#")
|
|
43882
|
1050 |
414 |
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])
|
|
43903
|
15281 |
27826 |
if (($type = $types_to_go[$i]) eq "b")
|
|
43914
|
6159 |
21667 |
if ($type_sequence_to_go[$i])
|
|
43916
|
3174 |
2985 |
if ($is_opening_token{$token}) { }
|
|
|
2710 |
275 |
elsif ($is_closing_token{$token}) { }
|
|
43920
|
359 |
2815 |
unless (defined $i_mate)
|
|
43921
|
2562 |
612 |
if ($i_mate > $i and $i_mate <= $iend)
|
|
43943
|
1133 |
1429 |
$token eq '(' ? :
|
|
43947
|
1 |
2561 |
if ($name eq ".")
|
|
43978
|
1949 |
613 |
unless ($ralignment_type_to_go->[$i])
|
|
43988
|
46 |
1903 |
if ($saw_exclamation_mark)
|
|
43993
|
859 |
1090 |
if ($i_start == $ibeg)
|
|
43999
|
0 |
1949 |
if ($len < 0)
|
|
44011
|
2562 |
148 |
if $depth > 0
|
|
44022
|
6207 |
18184 |
if ($i > $i_start and $ralignment_type_to_go->[$i])
|
|
44028
|
22 |
6185 |
if $tok_map
|
|
44032
|
5909 |
298 |
if ($last_raw_tok ne "#")
|
|
44038
|
3249 |
2958 |
if ($last_raw_tok eq "," or $last_raw_tok eq "=>")
|
|
44042
|
79 |
3170 |
$i == $i_depth_prev ? :
|
|
44043
|
79 |
3170 |
$depth_last < $depth ? :
|
|
44045
|
1798 |
1451 |
if ($container_name{$depth_p})
|
|
44061
|
245 |
5962 |
if ($last_raw_tok eq "(")
|
|
44062
|
1 |
244 |
if ($ci_levels_to_go[$ibeg] and $container_name{$depth} =~ /^\+(if|unless)/)
|
|
44073
|
268 |
27 |
if ($last_raw_tok eq "{" and $block_type_to_go[$i])
|
|
44079
|
69 |
199 |
if defined $block_type_map{$block_type}
|
|
44083
|
50 |
218 |
if ($block_type =~ /$SUB_PATTERN/)
|
|
44086
|
12 |
256 |
if ($block_type =~ /^[A-Z]+$/)
|
|
44092
|
26 |
242 |
if ($ci_levels_to_go[$ibeg])
|
|
44103
|
2279 |
3928 |
if ($last_raw_tok eq "=" or $last_raw_tok eq "=>")
|
|
44105
|
201 |
2078 |
if ($token_count{$tok} > 1)
|
|
44132
|
5583 |
22243 |
if ($is_k_w_n_C_q_bang{$type}) { }
|
|
44135
|
2166 |
3417 |
if ($type eq 'k') { }
|
|
|
50 |
3367 |
elsif ($type eq '!') { }
|
|
44142
|
163 |
2003 |
if defined $keyword_map{$tok_fix}
|
|
44163
|
2970 |
397 |
if ($i < $iend - 1)
|
|
44165
|
1529 |
1441 |
$next_type eq 'b' ? :
|
|
44168
|
825 |
2145 |
if ($types_to_go[$i_next_nonblank] eq "=>")
|
|
44176
|
212 |
613 |
if ($patterns[$j] eq "m")
|
|
44187
|
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")
|
|
44198
|
17 |
3350 |
if ($type eq "q" and $last_raw_tok eq "A")
|
|
44216
|
671 |
21572 |
if ($depth == 0 and $type eq "=>")
|
|
44250
|
436 |
1552 |
if ($type eq "b")
|
|
44259
|
7 |
395 |
if ($token eq "(" or $is_binary_type{$type} or $type eq "k" and $is_binary_keyword{$token})
|
|
44269
|
765 |
567 |
unless $is_kwU{$type}
|
|
44272
|
435 |
132 |
if ($count == 0) { }
|
|
|
65 |
67 |
elsif (defined $count_max and $count >= $count_max) { }
|
|
44273
|
68 |
367 |
if ($type eq 'k' and $is_use_like{$tokens_to_go[$ii]}) { }
|
|
44289
|
0 |
502 |
if (defined $name_map{$token})
|
|
44299
|
233 |
2 |
if ($name and defined $ilast_blank and $ilast_blank > $iname_end)
|
|
44319
|
19 |
1114 |
if $im < 0
|
|
44320
|
585 |
529 |
if ($types_to_go[$im] eq "b")
|
|
44321
|
0 |
1114 |
if $im < 0
|
|
44326
|
5 |
1109 |
if ($name eq "->")
|
|
44328
|
5 |
0 |
if ($im >= 0 and $types_to_go[$im] ne "b")
|
|
44334
|
0 |
1114 |
if (substr($name, 0, 2) eq "->")
|
|
44401
|
331 |
8068 |
if ($terminal_type eq "#" and $i_terminal > $ibeg)
|
|
44404
|
317 |
14 |
if ($terminal_type eq "b" and $i_terminal > $ibeg)
|
|
44421
|
175 |
8224 |
if ($type_beg eq "q" and $ibeg == 0)
|
|
44474
|
2218 |
6181 |
if ($seqno_beg or $seqno_qw_closing) { }
|
|
44503
|
58 |
6123 |
if ($type_beg eq ";")
|
|
44504
|
1 |
57 |
unless $rOpts_indent_leading_semicolon
|
|
44526
|
7631 |
768 |
if ($adjust_indentation == 0) { }
|
|
|
658 |
110 |
elsif ($adjust_indentation == 1) { }
|
|
|
92 |
18 |
elsif ($adjust_indentation == 2) { }
|
|
44555
|
2 |
1035 |
if ($levels_to_go[$i_ind] < $lev)
|
|
44591
|
39 |
53 |
if (ref $last_indentation_written and not $is_closing_token{$last_leading_token})
|
|
44603
|
50 |
42 |
if ($diff > 0) { }
|
|
44618
|
0 |
42 |
if ($rOpts_extended_line_up_parentheses and $diff >= -$rOpts_indent_columns and $space_count > $leading_spaces_beg) { }
|
|
|
40 |
2 |
elsif ($default_adjust_indentation == 0) { }
|
|
|
2 |
0 |
elsif ($default_adjust_indentation == 1) { }
|
|
44673
|
6 |
12 |
if ($block_type_beg and $ci_levels_to_go[$i_terminal] == 0) { }
|
|
44697
|
1 |
11 |
if (get_spaces($last_indentation_written) < get_spaces($indentation))
|
|
44713
|
8378 |
21 |
unless ($ibeg == 0 and $this_batch->[0])
|
|
44741
|
4 |
32 |
if ($seqno_qw_closing and length $token_beg > 1 || $token_beg eq '>')
|
|
44753
|
1543 |
6856 |
if (defined $opening_indentation)
|
|
44784
|
3 |
1540 |
if (not $leading_paren_arrow || $is_isolated_block_brace || $is_unaligned_colon and get_spaces($opening_indentation) > get_spaces($indentation))
|
|
44804
|
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])
|
|
44830
|
26 |
6 |
if ($space_count > 0)
|
|
44833
|
0 |
26 |
if ($space_count < 0)
|
|
44838
|
0 |
26 |
if ($type_beg eq "#" and $space_count == 0)
|
|
44916
|
4 |
2178 |
if ($seqno_beg and $self->[32]{$seqno_beg})
|
|
44919
|
4 |
0 |
if ($is_closing_type_beg or $ibeg == $i_terminal) { }
|
|
|
0 |
0 |
elsif ($total_weld_count) { }
|
|
44928
|
0 |
0 |
if (defined $Kterm_test and $Kterm_test >= $K_beg)
|
|
44931
|
0 |
0 |
if ($Kterm == $K_beg)
|
|
44939
|
2182 |
36 |
$seqno_beg ? :
|
|
44947
|
21 |
2197 |
if ($is_bli_beg and $is_bli_beg == 1)
|
|
44951
|
21 |
0 |
if ($K_beg eq $K_opening) { }
|
|
44962
|
8 |
2210 |
if ($seqno_qw_closing and $total_weld_count)
|
|
44964
|
8 |
0 |
if ($i_plus <= $max_index_to_go)
|
|
44966
|
6 |
2 |
if (defined $self->[75]{$K_plus})
|
|
44973
|
1445 |
773 |
if ($is_closing_type_beg or $seqno_qw_closing) { }
|
|
|
98 |
675 |
elsif ($type_beg eq ':') { }
|
|
44999
|
396 |
482 |
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->[79]{$K_beg} or $i_terminal > $ibeg and $is_closing_type{$types_to_go[$iend]})
|
|
45057
|
92 |
1353 |
if ($terminal_type eq "," and $self->is_in_list_by_i($i_terminal))
|
|
45078
|
607 |
114 |
if ($i_terminal == $ibeg and $is_closing_type_beg and defined $K_beg and $K_beg < $Klimit)
|
|
45086
|
553 |
54 |
if ($type_plus eq "b" and $K_plus < $Klimit)
|
|
45090
|
63 |
544 |
if ($type_plus eq "#" and $K_plus < $Klimit)
|
|
45092
|
44 |
19 |
if ($type_plus eq "b" and $K_plus < $Klimit)
|
|
45108
|
593 |
14 |
if (not $is_bli_beg and defined $K_plus)
|
|
45115
|
319 |
274 |
if $level_next < $lev and not $self->[79]{$K_beg}
|
|
45124
|
18 |
399 |
if (not $rOpts_indent_closing_brace and $block_type_beg and $self->[9]{$seqno_beg} and $self->is_in_list_by_i($i_terminal))
|
|
45136
|
14 |
4 |
if (defined $opening_indentation and get_spaces($indentation) > get_spaces($opening_indentation))
|
|
45149
|
30 |
1 |
if ($block_type_beg and $block_type_beg eq "eval" and not ref $leading_spaces_beg and not $rOpts_indent_closing_brace)
|
|
45161
|
24 |
6 |
if (defined $opening_indentation and get_spaces($indentation) > get_spaces($opening_indentation))
|
|
45170
|
21 |
1424 |
if $is_bli_beg
|
|
45177
|
745 |
700 |
if (not $block_type_beg) { }
|
|
45186
|
30 |
715 |
if ($seqno_qw_closing and $ibeg_weld_fix == $ibeg)
|
|
45198
|
3 |
27 |
if (not defined $cti and length $tok == 1)
|
|
45206
|
3 |
0 |
if ($tok ne ">")
|
|
45213
|
0 |
30 |
if (defined $cti and $cti == 1)
|
|
45216
|
3 |
742 |
if (not defined $cti) { }
|
|
|
44 |
698 |
elsif ($cti == 1) { }
|
|
|
3 |
695 |
elsif ($cti == 2) { }
|
|
|
3 |
692 |
elsif ($cti == 3) { }
|
|
45231
|
43 |
1 |
if ($i_terminal <= $ibeg + 1 or $is_semicolon_terminated) { }
|
|
45241
|
3 |
0 |
if ($is_semicolon_terminated) { }
|
|
45258
|
12 |
0 |
if ($rOpts_indent_closing_brace and $i_terminal == $ibeg || $is_semicolon_terminated)
|
|
45280
|
49 |
49 |
if ($is_leading)
|
|
45292
|
961 |
1257 |
if ($adjust_indentation == 1)
|
|
45296
|
304 |
657 |
if ($no_left_adjustment_space)
|
|
45350
|
613 |
978 |
if (defined $i_opening and $i_opening >= 0) { }
|
|
45360
|
30 |
948 |
unless $seqno
|
|
45376
|
4 |
644 |
if ($rOpts_freeze_whitespace)
|
|
45386
|
34 |
610 |
if $rOpts_line_up_parentheses
|
|
45389
|
12 |
3589 |
if $opening_vertical_tightness{$key}
|
|
45394
|
9 |
3534 |
if $closing_vertical_tightness{$key}
|
|
45399
|
2 |
1761 |
if $opening_token_right{$key}
|
|
45404
|
1 |
1758 |
if $stack_opening_token{$key}
|
|
45407
|
0 |
1758 |
if $stack_closing_token{$key}
|
|
45411
|
2 |
584 |
if $rOpts_block_brace_vertical_tightness
|
|
45414
|
2 |
582 |
if $rOpts_stack_closing_block_brace
|
|
45489
|
0 |
1333 |
if ($nline < 0 or $nline > $n_last_line)
|
|
45512
|
8 |
894 |
$types_to_go[$ibeg] eq 'q' ? :
|
|
|
431 |
902 |
$type_sequence_to_go[$ibeg] ? :
|
|
45516
|
7 |
867 |
$types_to_go[$iend] eq 'q' ? :
|
|
|
459 |
874 |
$type_sequence_to_go[$iend] ? :
|
|
45527
|
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) { }
|
|
45543
|
752 |
64 |
$types_to_go[$ibeg_next - 1] eq 'b' ? :
|
|
45547
|
76 |
37 |
if ($type_sequence_to_go[$iend] and not $block_type_to_go[$iend] and $is_opening_token{$token_end} and not $self->[87]{$Kbeg_next} and not $is_under_stress && $types_to_go[$ibeg_next] eq 'w' and $opening_vertical_tightness{$token_end} > 0 || $rOpts_line_up_parentheses && $token_end eq '(' && $self->[31]{$type_sequence_to_go[$iend]} && $iend > $ibeg && $types_to_go[$iend - 1] ne 'b')
|
|
45576
|
0 |
76 |
if ($rOpts_line_up_parentheses and $self->[75]{$K_to_go[$iend_next]})
|
|
45583
|
0 |
0 |
if ($is_closing_type{$type_end_next}) { }
|
|
|
0 |
0 |
elsif ($is_opening_type{$type_end_next}) { }
|
|
45601
|
0 |
18 |
if ($ovt and $seqno and $self->[41]{$seqno})
|
|
45609
|
0 |
76 |
if (defined $self->[106]{$seqno})
|
|
45618
|
62 |
14 |
if ($ovt >= 2 or $nesting_depth_to_go[$iend_next + 1] == $nesting_depth_to_go[$ibeg_next])
|
|
45647
|
199 |
0 |
if ($type_sequence_to_go[$ibeg_next] and not $block_type_to_go[$ibeg_next] and $is_closing_token{$token_next} and not $self->[41]{$type_sequence_to_go[$ibeg_next]} and $types_to_go[$iend] ne "#")
|
|
45661
|
2 |
197 |
if ($cvt == 3)
|
|
45662
|
1 |
1 |
$self->[99]{$seqno} ? :
|
|
45670
|
0 |
0 |
if ($cvt == 2 and $throttle_vtc and $token_next eq ")" and not $self->[39]{$seqno})
|
|
45679
|
0 |
0 |
if ($Knext == $K_to_go[$ibeg_next])
|
|
45686
|
0 |
0 |
defined $K_opening_m ? :
|
|
45690
|
0 |
0 |
if ($is_kwUi_arrow{$type_opening_m})
|
|
45701
|
10 |
23 |
if ($cvt and $self->[101]{$seqno})
|
|
45707
|
0 |
199 |
if (defined $self->[107]{$seqno})
|
|
45721
|
0 |
23 |
if ($cvt and $self->[95]{$seqno} and defined $self->[102]{$seqno})
|
|
45729
|
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_next eq ')' && $type_sequence_to_go[$ibeg_next] && $self->[31]{$type_sequence_to_go[$ibeg_next]}))
|
|
45759
|
25 |
53 |
if ($cvt == 2 or $iend_next == $ibeg_next) { }
|
|
45766
|
52 |
1 |
if ($str =~ /^b?[\)\]\}R#;]/)
|
|
45769
|
77 |
1 |
if ($ok)
|
|
45783
|
0 |
1 |
if ($rOpts_line_up_parentheses and $total_weld_count and $seqno_ibeg_next and $self->[31]{$seqno_ibeg_next} and $self->is_welded_at_seqno($seqno_ibeg_next))
|
|
45790
|
0 |
0 |
$cvt ? :
|
|
45823
|
2 |
0 |
if ($opening_token_right{$tokens_to_go[$ibeg_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 && $type_sequence_to_go[$ibeg_next] && $self->[31]{$type_sequence_to_go[$ibeg_next]} and $tokens_to_go[$ibeg] ne $tokens_to_go[$ibeg_next] and not $self->[88]{$K_to_go[$iend]} and not $rOpts_extended_line_up_parentheses && $rOpts_delete_old_whitespace)
|
|
45887
|
1 |
815 |
if ($types_to_go[$ibeg_next] eq "q")
|
|
45888
|
1 |
0 |
if ($token_beg_next =~ /^qw\s*([\[\(\{])$/)
|
|
45893
|
70 |
746 |
if ($is_closing_token{$token_end} and $is_closing_token{$token_beg_next}) { }
|
|
|
42 |
704 |
elsif ($is_opening_token{$token_end} and $is_opening_token{$token_beg_next}) { }
|
|
45900
|
70 |
0 |
unless $block_type_to_go[$ibeg_next] or $bom
|
|
45906
|
42 |
0 |
unless $block_type_to_go[$ibeg_next]
|
|
45913
|
6 |
810 |
if ($stackable)
|
|
45916
|
5 |
1 |
if ($nline + 1 == $n_last_line)
|
|
45925
|
6 |
0 |
if ($is_semicolon_terminated or ($iend_next == $ibeg_next or $iend_next == $ibeg_next + 2 and $types_to_go[$iend_next] eq "#"))
|
|
45979
|
0 |
5 |
$rOpts_block_brace_tightness == 2 ? :
|
|
45996
|
1170 |
163 |
if (not $vt_type) { }
|
|
46000
|
537 |
43 |
unless ($vt_seqno_beg or $vt_seqno_end or $last_vt_type)
|
|
46018
|
1 |
162 |
unless (defined $vt_seqno)
|
|
46073
|
15 |
648 |
if ($accumulating_text_for_block)
|
|
46076
|
8 |
7 |
if ($is_if_elsif{$accumulating_text_for_block})
|
|
46092
|
10 |
5 |
unless ($accumulating_text_for_block =~ /^els/)
|
|
46114
|
143 |
0 |
if ($accumulating_text_for_block and not $leading_block_text_length_exceeded and $types_to_go[$i] ne "#")
|
|
46120
|
0 |
143 |
if $i == 0
|
|
46125
|
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') { }
|
|
46170
|
0 |
134 |
if ($i == 0 and $types_to_go[$i] ne "b")
|
|
46210
|
85 |
0 |
unless $csc_last_label
|
|
46211
|
0 |
85 |
if ($types_to_go[0] eq "J")
|
|
46219
|
814 |
52 |
unless $block_type
|
|
46222
|
573 |
293 |
if ($type ne "#" and $type ne "b")
|
|
46229
|
52 |
814 |
if ($block_type and $type_sequence)
|
|
46231
|
26 |
26 |
if ($token eq '}') { }
|
|
|
26 |
0 |
elsif ($token eq '{') { }
|
|
46234
|
15 |
11 |
if (defined $rblock_leading_text->{$type_sequence})
|
|
46243
|
26 |
0 |
if (defined $csc_block_label{$type_sequence})
|
|
46250
|
0 |
26 |
if ($accumulating_text_for_block and $levels_to_go[$i] <= $leading_block_text_level)
|
|
46256
|
26 |
0 |
if (defined $block_opening_line_number{$type_sequence}) { }
|
|
46281
|
0 |
26 |
if ($block_type =~ /:$/)
|
|
46287
|
15 |
11 |
if ($accumulating_text_for_block and $levels_to_go[$i] == $leading_block_text_level)
|
|
46291
|
15 |
0 |
if ($accumulating_text_for_block eq $block_type) { }
|
|
46318
|
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/) { }
|
|
46330
|
558 |
1 |
if ($type ne "b" and $type ne "#" and $type ne "q")
|
|
46334
|
0 |
851 |
if ($type eq ';' and $accumulating_text_for_block and $levels_to_go[$i] == $leading_block_text_level) { }
|
|
46349
|
5 |
80 |
if ($terminal_block_type =~ /^els/ and $rblock_leading_if_elsif_text)
|
|
46357
|
0 |
85 |
if ($terminal_type eq "J")
|
|
46384
|
0 |
5 |
if ($block_type eq "elsif" and $rOpts_closing_side_comment_else_flag == 0)
|
|
46391
|
0 |
5 |
unless $count
|
|
46396
|
5 |
0 |
if ($block_type eq "else")
|
|
46401
|
5 |
0 |
if ($rOpts_closing_side_comment_else_flag == 0)
|
|
46406
|
0 |
0 |
if ($count > 1)
|
|
46408
|
0 |
0 |
if ($count > 2)
|
|
46413
|
0 |
0 |
if ($block_type eq 'else') { }
|
|
46421
|
0 |
0 |
if ($rOpts_closing_side_comment_else_flag == 2)
|
|
46431
|
0 |
0 |
if ($length > $maximum_line_length_at_level[$leading_block_text_level])
|
|
46485
|
164 |
7 |
unless $matching_char{$char}
|
|
46492
|
4 |
3 |
unless $top eq $char
|
|
46517
|
0 |
1 |
unless $seqno
|
|
46520
|
0 |
1 |
unless $K_opening
|
|
46530
|
4 |
2 |
if ($nonblank_count)
|
|
46532
|
3 |
3 |
if ($token_type eq 'b') { }
|
|
46534
|
0 |
3 |
if ($token_type eq "=>")
|
|
46535
|
1 |
2 |
if ($token_type eq "=")
|
|
46536
|
1 |
1 |
if ($token_type eq "i" and $saw_equals or $token_type eq 'w' || $token_type eq 'Q' and $saw_fat_comma)
|
|
46579
|
24 |
61 |
if ($terminal_type eq ";" and $closing_side_comment_want_asub)
|
|
46580
|
1 |
0 |
if ($types_to_go[0] eq "}" and $tokens_to_go[0] eq "}" and $i_terminal == $inext_to_go[0])
|
|
46585
|
1 |
0 |
if ($self->[9]{$seqno})
|
|
46599
|
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/)
|
|
46641
|
1 |
16 |
if ($block_label)
|
|
46646
|
11 |
6 |
if ($i_block_leading_text == $i_terminal)
|
|
46651
|
6 |
11 |
if $rOpts->{'closing-side-comments-balanced'}
|
|
46656
|
0 |
17 |
if ($have_side_comment) { }
|
|
46659
|
0 |
0 |
if ($rOpts->{'closing-side-comment-warnings'})
|
|
46676
|
0 |
0 |
if ($block_type_to_go[$i_terminal] eq 'else') { }
|
|
|
0 |
0 |
elsif ($block_type_to_go[$i_terminal] eq 'elsif') { }
|
|
46677
|
0 |
0 |
if ($old_csc =~ /\[\s*elsif/)
|
|
46680
|
0 |
0 |
if ($old_csc =~ /\[\s*if/)
|
|
46688
|
0 |
0 |
if (length $new_csc > length $old_csc)
|
|
46694
|
0 |
0 |
if (length $new_csc < length $old_csc and $new_trailing_dots)
|
|
46701
|
0 |
0 |
if ($new_csc ne $old_csc) { }
|
|
|
0 |
0 |
elsif ($block_line_count < $rOpts->{'closing-side-comment-interval'}) { }
|
|
46705
|
0 |
0 |
if ($block_line_count < $rOpts->{'closing-side-comment-interval'}) { }
|
|
46716
|
0 |
0 |
if (defined $K)
|
|
46727
|
0 |
0 |
if ($rOpts->{'timestamp'})
|
|
46751
|
0 |
0 |
if ($iend > $ibeg and $iend == $max_index_to_go and $types_to_go[$max_index_to_go] eq "#")
|
|
46757
|
0 |
0 |
if ($iend > $ibeg and $types_to_go[$max_index_to_go] eq "b")
|
|
46772
|
0 |
0 |
if ($token)
|
|
46774
|
0 |
0 |
$length_function ? :
|
|
46833
|
17 |
631 |
if ($added_semicolon_count > 0)
|
|
46834
|
3 |
14 |
$added_semicolon_count > 1 ? :
|
|
46835
|
3 |
14 |
$added_semicolon_count > 1 ? :
|
|
46841
|
3 |
14 |
if ($added_semicolon_count > 1)
|
|
46853
|
3 |
645 |
if ($deleted_semicolon_count > 0)
|
|
46854
|
2 |
1 |
$deleted_semicolon_count > 1 ? :
|
|
46855
|
2 |
1 |
$deleted_semicolon_count > 1 ? :
|
|
46864
|
2 |
1 |
if ($deleted_semicolon_count > 1)
|
|
46876
|
0 |
648 |
if ($embedded_tab_count > 0)
|
|
46877
|
0 |
0 |
$embedded_tab_count > 1 ? :
|
|
46878
|
0 |
0 |
$embedded_tab_count > 1 ? :
|
|
46890
|
0 |
0 |
if ($embedded_tab_count > 1)
|
|
46901
|
0 |
648 |
if ($first_tabbing_disagreement)
|
|
46908
|
0 |
648 |
if ($first_btd)
|
|
46914
|
0 |
0 |
if ($self->get_saw_brace_error)
|
|
46918
|
0 |
648 |
if ($in_btd)
|
|
46924
|
0 |
0 |
if ($self->get_saw_brace_error)
|
|
46927
|
0 |
648 |
if ($in_tabbing_disagreement) { }
|
|
46934
|
0 |
648 |
if ($last_tabbing_disagreement) { }
|
|
46945
|
0 |
648 |
if ($first_tabbing_disagreement)
|