| line |
true |
false |
branch |
|
131
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
178
|
2758 |
8 |
if ($ref) { }
|
|
179
|
2 |
2756 |
if ($ref eq 'ARRAY') { }
|
|
|
2755 |
1 |
elsif ($ref eq 'SCALAR') { }
|
|
192
|
0 |
1 |
if ($mode =~ /[rR]/)
|
|
196
|
0 |
0 |
if ($ref->can('getline')) { }
|
|
212
|
1 |
0 |
if ($mode =~ /[wW]/)
|
|
216
|
1 |
0 |
if ($ref->can('print')) { }
|
|
234
|
1 |
7 |
if ($filename eq '-') { }
|
|
235
|
1 |
0 |
$mode eq 'w' ? :
|
|
242
|
0 |
2766 |
if (not $fh) { }
|
|
250
|
11 |
2755 |
if ($is_encoded_data) { }
|
|
251
|
3 |
8 |
if (ref $fh eq 'IO::File') { }
|
|
|
1 |
7 |
elsif ($filename eq '-') { }
|
|
266
|
4 |
2751 |
if (ref $fh eq 'IO::File') { }
|
|
|
0 |
2751 |
elsif ($filename eq '-') { }
|
|
283
|
0 |
0 |
if (ref $input_file or $input_file eq "-")
|
|
288
|
0 |
0 |
unless open $fh, "<", $input_file
|
|
293
|
0 |
0 |
unless close $fh
|
|
294
|
0 |
0 |
if ($buf and $buf =~ /([\012\015]+)/) { }
|
|
298
|
0 |
0 |
if ($test =~ /^(\015\012)+$/) { }
|
|
|
0 |
0 |
elsif ($test =~ /^\015+$/) { }
|
|
|
0 |
0 |
elsif ($test =~ /^\012+$/) { }
|
|
332
|
0 |
0 |
unless ($missing_file_spec)
|
|
343
|
0 |
0 |
if $test_name eq $name
|
|
344
|
0 |
0 |
if $Perl::Tidy::OSNAME eq "VMS"
|
|
349
|
0 |
0 |
if $test_name eq $name
|
|
421
|
2 |
552 |
if utf8::is_utf8($string)
|
|
571
|
0 |
554 |
if (my(@bad_keys) = grep({not exists $defaults{$_};} keys %input_hash))
|
|
587
|
0 |
2770 |
if (defined $hash_ref)
|
|
588
|
0 |
0 |
unless (ref $hash_ref eq "HASH")
|
|
590
|
0 |
0 |
$what ? :
|
|
617
|
539 |
15 |
if ($stderr_stream) { }
|
|
620
|
0 |
539 |
unless ($fh_stderr)
|
|
638
|
0 |
0 |
if ($flag) { }
|
|
663
|
0 |
0 |
unless $input_stream_name
|
|
689
|
0 |
554 |
if (defined $dump_options) { }
|
|
690
|
0 |
0 |
unless (defined $dump_options_type)
|
|
693
|
0 |
0 |
if ($dump_options_type ne "perltidyrc" and $dump_options_type ne "full")
|
|
710
|
0 |
554 |
if ($user_formatter)
|
|
718
|
554 |
0 |
if (defined $argv)
|
|
721
|
0 |
554 |
if ($rargv eq "SCALAR")
|
|
724
|
0 |
554 |
if ($rargv) { }
|
|
725
|
0 |
0 |
if ($rargv eq 'ARRAY') { }
|
|
741
|
0 |
554 |
if ($msg)
|
|
765
|
0 |
554 |
if ($Perl::Tidy::OSNAME eq 'VMS') { }
|
|
791
|
552 |
9 |
unless $_ eq "-pbp"
|
|
802
|
0 |
554 |
if (defined $dump_getopt_flags)
|
|
813
|
0 |
0 |
if ($opt =~ /(.*)(!|=.*|:.*)$/)
|
|
821
|
0 |
554 |
if (defined $dump_options_category)
|
|
826
|
0 |
554 |
if (defined $dump_options_range)
|
|
831
|
0 |
554 |
if (defined $dump_abbreviations)
|
|
836
|
0 |
554 |
if (defined $dump_options)
|
|
841
|
0 |
554 |
if $quit_now
|
|
847
|
0 |
554 |
if ($rOpts->{'dump-options'})
|
|
857
|
0 |
554 |
if ($rOpts->{'dump-block-summary'} and $numf != 1)
|
|
868
|
0 |
554 |
if ($user_formatter)
|
|
882
|
554 |
0 |
$rOpts->{'encode-output-strings'} ? :
|
|
885
|
0 |
554 |
unless (exists $default_file_extension{$rOpts->{'format'}})
|
|
903
|
1 |
553 |
if ($rOpts->{'format'} eq "html")
|
|
909
|
554 |
0 |
if ($output_extension)
|
|
913
|
0 |
554 |
if ($in_place_modify and $backup_extension)
|
|
927
|
554 |
0 |
if ($source_stream) { }
|
|
928
|
0 |
554 |
if (@Arg_files > 0)
|
|
939
|
3 |
551 |
unless ref $source_stream
|
|
944
|
0 |
0 |
unless @Arg_files
|
|
952
|
554 |
0 |
unless ($rOpts->{'use-unicode-gcstring'})
|
|
959
|
0 |
554 |
if (@Arg_files > 1)
|
|
966
|
0 |
0 |
if (@Arg_files > 1 and $rOpts->{'file-size-order'})
|
|
970
|
0 |
0 |
-e $_ ? :
|
|
1024
|
0 |
554 |
$Warn_count ? :
|
|
1026
|
0 |
554 |
wantarray ? :
|
|
1028
|
0 |
0 |
wantarray ? :
|
|
1042
|
556 |
0 |
unless defined $extension
|
|
1048
|
556 |
0 |
if (length $extension == 0)
|
|
1050
|
0 |
556 |
unless defined $extension
|
|
1057
|
556 |
0 |
if ($extension =~ /^[a-zA-Z0-9]/)
|
|
1083
|
2 |
552 |
if ($in_place_modify)
|
|
1084
|
0 |
0 |
if ($rOpts->{'standard-output'} or $destination_stream or ref $source_stream or $rOpts->{'outfile'} or defined $rOpts->{'output-path'})
|
|
1094
|
0 |
554 |
if ($in_place_modify)
|
|
1115
|
0 |
0 |
if ($delete_backup > 1)
|
|
1125
|
0 |
554 |
if (defined $backup_method and $backup_method ne "copy" and $backup_method ne "move")
|
|
1153
|
0 |
0 |
unless (-f $input_file)
|
|
1162
|
0 |
0 |
if (-f $backup_file)
|
|
1163
|
0 |
0 |
unless unlink $backup_file
|
|
1170
|
0 |
0 |
unless File::Copy::copy($input_file, $backup_file)
|
|
1181
|
0 |
0 |
if (defined $write_time)
|
|
1182
|
0 |
0 |
unless utime $read_time, $write_time, $backup_file
|
|
1188
|
0 |
0 |
unless open my $fout, ">", $input_file
|
|
1193
|
0 |
0 |
if ($self->[8])
|
|
1200
|
0 |
0 |
if (ref $output_file eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $output_file eq 'SCALAR') { }
|
|
1202
|
0 |
0 |
unless $fout->print($line)
|
|
1211
|
0 |
0 |
unless $fout->print($line)
|
|
1227
|
0 |
0 |
unless $fout->close
|
|
1237
|
0 |
0 |
if (not $self->[22] and defined $write_time)
|
|
1238
|
0 |
0 |
unless utime $read_time, $write_time, $input_file
|
|
1248
|
0 |
0 |
if ($delete_backup and -f $backup_file)
|
|
1252
|
0 |
0 |
if ($delete_backup > 1 and $self->[12]->get_warning_count)
|
|
1264
|
0 |
0 |
if (not -s $input_file and -s $backup_file and $delete_backup == 1) { }
|
|
1270
|
0 |
0 |
unless unlink $backup_file
|
|
1309
|
0 |
0 |
unless (-f $input_file)
|
|
1317
|
0 |
0 |
if (-f $backup_name)
|
|
1318
|
0 |
0 |
unless unlink $backup_name
|
|
1328
|
0 |
0 |
if (-l $input_file) { }
|
|
1329
|
0 |
0 |
unless File::Copy::copy($input_file, $backup_name)
|
|
1333
|
0 |
0 |
unless rename $input_file, $backup_name
|
|
1343
|
0 |
0 |
unless ($fout)
|
|
1352
|
0 |
0 |
if (ref $output_file eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif (ref $output_file eq 'SCALAR') { }
|
|
1354
|
0 |
0 |
unless $fout->print($line)
|
|
1363
|
0 |
0 |
unless $fout->print($line)
|
|
1379
|
0 |
0 |
unless $fout->close
|
|
1389
|
0 |
0 |
if (not $self->[22] and defined $write_time)
|
|
1390
|
0 |
0 |
unless utime $read_time, $write_time, $input_file
|
|
1400
|
0 |
0 |
if ($delete_backup and -f $backup_name)
|
|
1404
|
0 |
0 |
if ($delete_backup > 1 and $self->[12]->get_warning_count)
|
|
1416
|
0 |
0 |
if (not -s $input_file and -s $backup_name and $delete_backup == 1) { }
|
|
1422
|
0 |
0 |
unless unlink $backup_name
|
|
1448
|
2 |
0 |
if ($uid_i != $uid_o or $gid_i != $gid_o)
|
|
1453
|
0 |
2 |
if ($in_place_modify and chown $uid_i, $gid_i, $output_file) { }
|
|
1462
|
0 |
2 |
if ($input_file_permissions != $output_file_permissions)
|
|
1484
|
2 |
0 |
unless ($in_place_modify)
|
|
1488
|
0 |
2 |
unless (chmod $output_file_permissions, $output_file)
|
|
1525
|
0 |
554 |
unless $source_object
|
|
1544
|
2 |
552 |
if (is_char_mode($buf)) { }
|
|
|
0 |
552 |
elsif (not $rOpts_character_encoding or $rOpts_character_encoding eq 'none') { }
|
|
|
543 |
9 |
elsif (lc $rOpts_character_encoding eq 'guess') { }
|
|
1573
|
539 |
4 |
if (ref $decoder) { }
|
|
1575
|
539 |
0 |
if ($encoding_in ne 'UTF-8' and $encoding_in ne 'utf8') { }
|
|
1584
|
0 |
0 |
if (not eval {
|
|
1616
|
0 |
9 |
if (not eval {
|
|
1647
|
11 |
543 |
$encoding_in ? :
|
|
1651
|
11 |
543 |
if ($is_encoded_data)
|
|
1657
|
11 |
543 |
$encoding_in ? :
|
|
1663
|
11 |
543 |
if ($is_encoded_data)
|
|
1667
|
0 |
11 |
unless (defined $loaded_unicode_gcstring)
|
|
1668
|
0 |
0 |
if (eval {
|
|
1673
|
0 |
0 |
if ($rOpts->{'use-unicode-gcstring'})
|
|
1686
|
0 |
11 |
if ($loaded_unicode_gcstring)
|
|
1757
|
551 |
3 |
if ($source_stream) { }
|
|
|
0 |
3 |
elsif ($input_file eq '-') { }
|
|
1764
|
550 |
1 |
unless (defined $logfile_stream)
|
|
1769
|
550 |
1 |
unless (defined $teefile_stream)
|
|
1772
|
549 |
2 |
unless (defined $debugfile_stream)
|
|
1784
|
0 |
3 |
unless (-e $input_file)
|
|
1787
|
0 |
0 |
if ($input_file =~ /([\?\*\[\{])/)
|
|
1791
|
0 |
0 |
if ($input_file =~ /^\'(.+)\'$/)
|
|
1792
|
0 |
0 |
if ($input_file =~ /^\"(.+)\"$/)
|
|
1795
|
0 |
0 |
if (opendir $dh, "./")
|
|
1797
|
0 |
0 |
if /$pattern/
|
|
1799
|
0 |
0 |
unless @files
|
|
1808
|
0 |
3 |
unless (-f $input_file)
|
|
1817
|
0 |
3 |
unless (-s $input_file)
|
|
1826
|
0 |
3 |
if ($size_in_mb > $rOpts->{'maximum-file-size-mb'})
|
|
1834
|
0 |
0 |
unless (-T $input_file or $rOpts->{'force-read-binary'})
|
|
1843
|
0 |
3 |
if ($in_place_modify and not -w $input_file)
|
|
1845
|
0 |
0 |
if (defined $backup_method and $backup_method eq "copy")
|
|
1856
|
0 |
3 |
if ($Perl::Tidy::OSNAME eq "VMS")
|
|
1862
|
0 |
3 |
if (defined $rOpts->{'output-path'})
|
|
1866
|
0 |
0 |
unless (-d $new_path)
|
|
1867
|
0 |
0 |
unless (mkdir $new_path, 511)
|
|
1873
|
0 |
0 |
unless ($fileroot)
|
|
1887
|
0 |
3 |
if (not $source_stream and $input_file =~ /$forbidden_file_extensions/ || $input_file eq 'DIAGNOSTICS')
|
|
1909
|
0 |
554 |
unless defined $buf
|
|
1912
|
0 |
554 |
if $diagnostics_object
|
|
1925
|
0 |
554 |
if ($rOpts->{'outfile'}) { }
|
|
|
1 |
553 |
elsif ($rOpts->{'standard-output'}) { }
|
|
|
553 |
0 |
elsif ($destination_stream) { }
|
|
|
0 |
0 |
elsif ($source_stream) { }
|
|
|
0 |
0 |
elsif ($input_file eq '-') { }
|
|
1927
|
0 |
0 |
if ($number_of_files <= 1) { }
|
|
1929
|
0 |
0 |
if ($rOpts->{'standard-output'}) { }
|
|
|
0 |
0 |
elsif ($destination_stream) { }
|
|
|
0 |
0 |
elsif (defined $rOpts->{'output-path'}) { }
|
|
|
0 |
0 |
elsif (defined $rOpts->{'output-file-extension'}) { }
|
|
1932
|
0 |
0 |
if $saw_pbp
|
|
1950
|
0 |
0 |
if ($output_file =~ /^-/)
|
|
1955
|
0 |
0 |
if (@input_file_stat and $output_file eq $input_file)
|
|
1964
|
0 |
1 |
if ($destination_stream)
|
|
1968
|
0 |
0 |
if $saw_pbp
|
|
1974
|
1 |
0 |
if ($number_of_files <= 1) { }
|
|
1994
|
0 |
0 |
if ($in_place_modify) { }
|
|
2019
|
539 |
15 |
if ($errorfile_stream)
|
|
2021
|
551 |
3 |
if ($logfile_stream)
|
|
2034
|
552 |
2 |
if $encoding_log_message
|
|
2038
|
0 |
554 |
if (${$rpending_logfile_message;})
|
|
2041
|
0 |
554 |
if (${$rpending_complaint;})
|
|
2047
|
0 |
554 |
if ($rOpts->{'preserve-line-endings'})
|
|
2049
|
0 |
0 |
if (defined $ls_input)
|
|
2077
|
0 |
554 |
if ($in_place_modify) { }
|
|
|
4 |
1100 |
elsif ($output_file and -f $output_file and not -l $output_file) { }
|
|
2081
|
0 |
0 |
unless ($self->[21])
|
|
2087
|
0 |
0 |
if (defined $backup_method and $backup_method eq 'copy') { }
|
|
2110
|
2 |
2 |
if (@input_file_stat)
|
|
2111
|
2 |
0 |
if ($rOpts->{'format'} eq "tidy")
|
|
2121
|
554 |
0 |
if $logger_object
|
|
2194
|
553 |
1 |
if ($rOpts->{'format'} eq "tidy")
|
|
2197
|
2 |
551 |
if ($rOpts->{'assert-tidy'} or $rOpts->{'assert-untidy'} or $rOpts->{'backup-and-modify-in-place'})
|
|
2233
|
548 |
5 |
if ($ref_destination_stream)
|
|
2239
|
548 |
0 |
if ($ref_destination_stream eq 'SCALAR' or $ref_destination_stream eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref_destination_stream->can('print')) { }
|
|
2263
|
3 |
550 |
$use_postfilter_buffer ? :
|
|
2278
|
1 |
553 |
if $prefilter
|
|
2290
|
3 |
551 |
if ($use_postfilter_buffer)
|
|
2302
|
1 |
2 |
$postfilter ? :
|
|
2307
|
2 |
1 |
if (defined $digest_input)
|
|
2314
|
0 |
3 |
if ($rOpts->{'assert-tidy'})
|
|
2315
|
0 |
0 |
if ($self->[22])
|
|
2328
|
0 |
3 |
if ($rOpts->{'assert-untidy'})
|
|
2329
|
0 |
0 |
unless ($self->[22])
|
|
2342
|
3 |
0 |
if (not $remove_terminal_newline) { }
|
|
2353
|
0 |
0 |
if $line
|
|
2356
|
0 |
0 |
if ($line)
|
|
2369
|
548 |
6 |
if ($use_destination_buffer) { }
|
|
2376
|
4 |
2 |
if ($is_encoded_data and $rOpts->{'format'} eq "tidy")
|
|
2429
|
2 |
552 |
if ($rOpts->{'DEBUG'})
|
|
2438
|
0 |
553 |
if ($rOpts->{'tee-pod'} or $rOpts->{'tee-block-comments'} or $rOpts->{'tee-side-comments'})
|
|
2446
|
0 |
1 |
unless ($fh_tee)
|
|
2458
|
553 |
1 |
if ($rOpts->{'format'} eq "tidy")
|
|
2465
|
0 |
553 |
if (not defined $max_iterations or $max_iterations <= 0) { }
|
|
|
0 |
553 |
elsif ($max_iterations > 6) { }
|
|
2475
|
3 |
550 |
if ($max_iterations > 1)
|
|
2496
|
4 |
552 |
if ($iter < $max_iterations) { }
|
|
2514
|
2 |
554 |
if ($iter > 1)
|
|
2516
|
0 |
2 |
if $debugger_object
|
|
2517
|
0 |
2 |
if $fh_tee
|
|
2530
|
0 |
556 |
if ($user_formatter) { }
|
|
|
1 |
555 |
elsif ($rOpts->{'format'} eq 'html') { }
|
|
|
555 |
0 |
elsif ($rOpts->{'format'} eq 'tidy') { }
|
|
2565
|
0 |
556 |
unless ($formatter)
|
|
2603
|
5 |
0 |
if ($max_iterations > 1 and not defined $iteration_of_formatter_convergence and $formatter->can("get_convergence_check"))
|
|
2607
|
3 |
2 |
if ($formatter->get_convergence_check)
|
|
2615
|
4 |
552 |
if ($iter < $max_iterations)
|
|
2627
|
0 |
4 |
if ($stop_now) { }
|
|
|
4 |
0 |
elsif ($do_convergence_test) { }
|
|
2638
|
3 |
1 |
if (not defined $saw_md5{$digest}) { }
|
|
2646
|
0 |
1 |
if ($saw_md5{$digest} != $iterm) { }
|
|
2661
|
0 |
0 |
if $diagnostics_object
|
|
2673
|
0 |
1 |
if $diagnostics_object and $iterm > 2
|
|
2681
|
2 |
2 |
if ($stop_now)
|
|
2713
|
553 |
1 |
if $sink_object
|
|
2714
|
2 |
552 |
if $debugger_object
|
|
2715
|
1 |
553 |
if $fh_tee
|
|
2719
|
1 |
553 |
if $convergence_log_message
|
|
2744
|
556 |
0 |
if ($formatter->can("finish_formatting"))
|
|
2767
|
6 |
542 |
if ($encode_destination_buffer)
|
|
2769
|
0 |
6 |
if (not eval {
|
|
2790
|
545 |
3 |
if (ref $destination_stream eq 'SCALAR') { }
|
|
|
3 |
0 |
elsif ($destination_buffer) { }
|
|
2795
|
3 |
0 |
if (ref $destination_stream eq 'ARRAY') { }
|
|
2805
|
0 |
0 |
if ($ref_destination_stream->can("close"))
|
|
2833
|
0 |
0 |
if (defined $s1 and defined $s2)
|
|
2841
|
0 |
0 |
if ($count == 1)
|
|
2848
|
0 |
0 |
wantarray ? :
|
|
2858
|
0 |
0 |
defined $bufo ? :
|
|
2861
|
0 |
0 |
unless $leni and $leno
|
|
2865
|
0 |
0 |
unless $fho and $fhi
|
|
2871
|
0 |
0 |
if (length $str > $lenmax)
|
|
2877
|
0 |
0 |
if ($linei)
|
|
2885
|
0 |
0 |
if (defined $linei)
|
|
2886
|
0 |
0 |
if (defined $lineo)
|
|
2889
|
0 |
0 |
unless defined $linei and defined $lineo
|
|
2891
|
0 |
0 |
if $linei eq $lineo
|
|
2898
|
0 |
0 |
if ($linei =~ /^(\s+)/)
|
|
2899
|
0 |
0 |
if ($lineo =~ /^(\s+)/)
|
|
2900
|
0 |
0 |
if ($leading_ws_i ne $leading_ws_o) { }
|
|
2902
|
0 |
0 |
if ($leading_ws_i =~ /\t/)
|
|
2909
|
0 |
0 |
if ($linei =~ /(\s+)$/)
|
|
2910
|
0 |
0 |
if ($lineo =~ /(\s+)$/)
|
|
2911
|
0 |
0 |
if ($trailing_ws_i ne $trailing_ws_o)
|
|
2918
|
0 |
0 |
if ($pos1 > 60)
|
|
2928
|
0 |
0 |
if ($last_nonblank_line)
|
|
2943
|
0 |
0 |
if ($counti > $counto) { }
|
|
|
0 |
0 |
elsif ($counti < $counto) { }
|
|
2979
|
0 |
554 |
if ($Windows_type)
|
|
2984
|
546 |
8 |
if ($config_file)
|
|
2990
|
2 |
552 |
if ($rOpts->{'DEBUG'} or $rOpts->{'show-options'})
|
|
3097
|
134688 |
0 |
if ($short_name)
|
|
3098
|
0 |
134688 |
if ($expansion{$short_name})
|
|
3105
|
69000 |
65688 |
if ($flag eq "!")
|
|
3108
|
0 |
69000 |
if ($expansion{$nshort_name})
|
|
3438
|
43608 |
138000 |
unless (defined $option_category{$long_name})
|
|
3439
|
552 |
43056 |
if ($long_name =~ /^html-linked/) { }
|
|
|
552 |
42504 |
elsif ($long_name =~ /^pod2html/) { }
|
|
3873
|
7 |
547 |
if ($use_cache) { }
|
|
3875
|
2 |
5 |
if (my $result = $process_command_line_cache{$cache_key}) { }
|
|
3883
|
5 |
0 |
if $retvals[0]{'memoize'}
|
|
3907
|
552 |
0 |
if (eval {
|
|
3909
|
0 |
552 |
if (not $ok and 0)
|
|
3928
|
552 |
0 |
unless ($dump_options_type eq "perltidyrc")
|
|
3931
|
0 |
552 |
unless (&GetOptions(\%Opts, @{$roption_string;}))
|
|
3951
|
6 |
15 |
if ($i =~ /^-(npro|noprofile|no-profile)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(dump-profile|dpro)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(pro|profile)=(.+)/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(pro|profile)=?$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(help|h|HELP|H|\?)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(version|v)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(dump-defaults|ddf)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(dump-long-names|dln)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(dump-short-names|dsn)$/) { }
|
|
|
0 |
15 |
elsif ($i =~ /^-(dump-token-types|dtt)$/) { }
|
|
3960
|
0 |
0 |
if ($config_file)
|
|
3968
|
0 |
0 |
if (defined $config_file)
|
|
3969
|
0 |
0 |
if (my($start_dir, $search_file) = $config_file =~ m[^(.*)\.\.\./(.*)$])
|
|
3972
|
0 |
0 |
unless $start_dir
|
|
3974
|
0 |
0 |
if (my $found_file = find_file_upwards($start_dir, $search_file))
|
|
3981
|
0 |
0 |
unless (-e $config_file)
|
|
4015
|
0 |
552 |
if ($saw_dump_profile and $saw_ignore_profile)
|
|
4023
|
546 |
6 |
unless ($saw_ignore_profile)
|
|
4028
|
546 |
0 |
if ($perltidyrc_stream)
|
|
4029
|
0 |
546 |
if ($config_file) { }
|
|
4045
|
0 |
546 |
unless $config_file
|
|
4052
|
546 |
0 |
if ($config_file)
|
|
4055
|
0 |
546 |
unless ($fh_config)
|
|
4061
|
0 |
546 |
if ($saw_dump_profile)
|
|
4066
|
546 |
0 |
if ($fh_config)
|
|
4070
|
0 |
546 |
if $death_message
|
|
4074
|
215 |
331 |
if (@{$rconfig_list;})
|
|
4080
|
0 |
215 |
unless (&GetOptions(\%Opts, @{$roption_string;}))
|
|
4091
|
0 |
215 |
if (@ARGV)
|
|
4095
|
0 |
0 |
if (length $str < 70) { }
|
|
4132
|
0 |
2795 |
if (defined $Opts{$_})
|
|
4147
|
0 |
552 |
unless (&GetOptions(\%Opts, @{$roption_string;}))
|
|
4152
|
552 |
0 |
if (defined $glc)
|
|
4154
|
0 |
552 |
if (not $ok and 0)
|
|
4181
|
0 |
554 |
if ($exclude_string)
|
|
4190
|
0 |
554 |
if ($is_excluded_word{'*'})
|
|
4194
|
3 |
551 |
if ($input_string) { }
|
|
4206
|
3894 |
0 |
if ($word)
|
|
4207
|
0 |
3894 |
unless ($word =~ /^\w[\w\d]*$/)
|
|
4212
|
3880 |
0 |
unless ($seen{$word} or $is_excluded_word{$word})
|
|
4242
|
559 |
549 |
if (defined $input_string and length $input_string)
|
|
4249
|
554 |
554 |
if ($rforced_words)
|
|
4255
|
1674 |
0 |
if ($word)
|
|
4258
|
0 |
1674 |
if ($word =~ /^\d/ or not $word =~ /^\w[\w\d]*$/)
|
|
4261
|
1668 |
6 |
unless ($seen{$word})
|
|
4284
|
0 |
554 |
unless ($encoding =~ /^\s*(guess|none|utf8|utf-8)\s*$/i)
|
|
4296
|
0 |
554 |
if (defined $rOpts->{'vertical-tightness'})
|
|
4303
|
1 |
553 |
if (defined $rOpts->{'vertical-tightness-closing'})
|
|
4310
|
0 |
554 |
if (defined $rOpts->{'closing-token-indentation'})
|
|
4324
|
1084 |
1132 |
if ($rOpts->{$key})
|
|
4325
|
0 |
1084 |
if ($rOpts->{$key} < 0)
|
|
4329
|
0 |
1084 |
if ($rOpts->{$key} > 100)
|
|
4344
|
1 |
553 |
if (defined $rOpts->{'logfile-gap'} and $rOpts->{'logfile-gap'} >= 0)
|
|
4351
|
3 |
0 |
unless ($rOpts->{'add-whitespace'} or $rOpts->{'delete-old-whitespace'} or $rOpts->{'add-newlines'} or $rOpts->{'delete-old-newlines'})
|
|
4360
|
5 |
549 |
if ($rOpts->{'indent-spaced-block-comments'})
|
|
4365
|
3 |
551 |
if ($rOpts->{'opening-brace-always-on-right'})
|
|
4367
|
0 |
3 |
if ($rOpts->{'opening-brace-on-new-line'})
|
|
4374
|
0 |
3 |
if ($rOpts->{'brace-left-and-indent'})
|
|
4384
|
532 |
22 |
unless (defined $rOpts->{'opening-brace-on-new-line'})
|
|
4388
|
2 |
552 |
if ($rOpts->{'entab-leading-whitespace'})
|
|
4389
|
0 |
2 |
if ($rOpts->{'entab-leading-whitespace'} < 0)
|
|
4395
|
1 |
1 |
if ($rOpts->{'tabs'})
|
|
4408
|
554 |
0 |
if ($rOpts->{'default-tabsize'}) { }
|
|
4409
|
0 |
554 |
if ($rOpts->{'default-tabsize'} < 0)
|
|
4413
|
0 |
554 |
if ($rOpts->{'default-tabsize'} > 20)
|
|
4424
|
554 |
0 |
if ($rOpts->{'use-feature'})
|
|
4430
|
554 |
0 |
if (defined $rOpts->{'sub-alias-list'} and length $rOpts->{'sub-alias-list'} or $saw_use_feature_class)
|
|
4443
|
554 |
0 |
if $saw_use_feature_class
|
|
4454
|
6 |
548 |
unless ($rOpts->{'fuzzy-line-length'})
|
|
4455
|
0 |
6 |
if ($rOpts->{'maximum-line-length'} != 1 or $rOpts->{'continuation-indentation'} != 0)
|
|
4463
|
0 |
554 |
if ($rOpts->{'short-concatenation-item-length'} > 12)
|
|
4474
|
3 |
551 |
if ($rOpts->{'freeze-whitespace'})
|
|
4486
|
0 |
552 |
$rOpts->{'tabs'} ? :
|
|
|
2 |
552 |
$rOpts->{'entab-leading-whitespace'} ? :
|
|
4504
|
4 |
550 |
if ($ole)
|
|
4514
|
0 |
4 |
unless ($line_separator_default)
|
|
4522
|
0 |
4 |
if ($rOpts->{'preserve-line-endings'})
|
|
4540
|
0 |
0 |
if (-f $try_path) { }
|
|
|
0 |
0 |
elsif ($search_dir eq '/') { }
|
|
4577
|
5 |
2558 |
if ($word =~ /^(-[-]?no)-(.*)/)
|
|
4580
|
2563 |
0 |
if ($word =~ /^-[-]?([\w\-]+)(.*)/) { }
|
|
4586
|
555 |
2008 |
if ($pass_count == 0)
|
|
4592
|
471 |
2092 |
if ($$rexpansion{$abr . $flags})
|
|
4598
|
949 |
1614 |
if ($rexpansion->{$abr}) { }
|
|
4604
|
0 |
1452 |
unless $abbrev
|
|
4623
|
767 |
327 |
unless $abbrev_count
|
|
4626
|
0 |
327 |
if ($pass_count == $max_passes)
|
|
4634
|
0 |
0 |
if ($num < 50) { }
|
|
4646
|
0 |
0 |
if ($config_file) { }
|
|
4692
|
0 |
0 |
unless $base =~ s/;-?\d*$//
|
|
4706
|
0 |
0 |
unless $base =~ /(?:^|[^^])\./
|
|
4709
|
0 |
0 |
$base =~ /\.$/ ? :
|
|
4726
|
0 |
0 |
unless $Perl::Tidy::OSNAME =~ /win32|dos/i
|
|
4739
|
0 |
0 |
if (not $ok and 0)
|
|
4750
|
0 |
0 |
unless $id
|
|
4768
|
0 |
0 |
unless (defined $os)
|
|
4782
|
0 |
0 |
$os eq '2000' && $major != 5 ? :
|
|
4792
|
0 |
554 |
if $is_Windows
|
|
4805
|
0 |
0 |
if ($is_Windows) { }
|
|
4815
|
0 |
0 |
unless $config_file
|
|
4825
|
0 |
0 |
if ($config_file)
|
|
4826
|
0 |
0 |
if (my($start_dir, $search_file) = $config_file =~ m[^(.*)\.\.\./(.*)$])
|
|
4831
|
0 |
0 |
unless $start_dir
|
|
4833
|
0 |
0 |
if (my $found_file = find_file_upwards($start_dir, $search_file))
|
|
4848
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4849
|
0 |
0 |
if ($is_Windows)
|
|
4851
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4859
|
0 |
0 |
if $Perl::Tidy::OSNAME =~ /win32/i
|
|
4864
|
0 |
0 |
if (defined $ENV{$var}) { }
|
|
4868
|
0 |
0 |
if ($var eq "PERLTIDY")
|
|
4871
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4877
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4879
|
0 |
0 |
if ($is_Windows)
|
|
4882
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4892
|
0 |
0 |
if ($is_Windows) { }
|
|
|
0 |
0 |
elsif ($Perl::Tidy::OSNAME eq 'OS2') { }
|
|
|
0 |
0 |
elsif ($Perl::Tidy::OSNAME eq 'MacOS') { }
|
|
|
0 |
0 |
elsif ($Perl::Tidy::OSNAME eq 'VMS') { }
|
|
4894
|
0 |
0 |
if ($Windows_type)
|
|
4900
|
0 |
0 |
if ($allusers)
|
|
4903
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4906
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4913
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4916
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4932
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4935
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
4950
|
0 |
0 |
unless ($os)
|
|
4952
|
0 |
0 |
unless $os
|
|
4957
|
0 |
0 |
if ($os =~ /9[58]|Me/) { }
|
|
|
0 |
0 |
elsif ($os =~ /NT|XP|200?/) { }
|
|
4961
|
0 |
0 |
$os =~ /XP/ ? :
|
|
4962
|
0 |
0 |
$os =~ /NT/ ? :
|
|
4975
|
0 |
0 |
wantarray ? :
|
|
4981
|
0 |
0 |
if ($fh) { }
|
|
4985
|
0 |
0 |
if (not $ok and 0)
|
|
5011
|
0 |
428 |
if $death_message
|
|
5012
|
34 |
394 |
unless $line
|
|
5014
|
0 |
394 |
unless $line
|
|
5022
|
0 |
394 |
if ($line =~ /^((\w+)\s*\{)(.*)?$/) { }
|
|
|
0 |
394 |
elsif ($line =~ /^{/) { }
|
|
|
0 |
394 |
elsif ($line =~ /^(.*)?\}$/) { }
|
|
5026
|
0 |
0 |
if $opening_brace_line
|
|
5028
|
0 |
0 |
unless $body and $body =~ s/\}$//
|
|
5031
|
0 |
0 |
if ($rexpansion->{$name})
|
|
5053
|
0 |
0 |
if ($opening_brace_line) { }
|
|
5064
|
394 |
0 |
if ($body)
|
|
5067
|
0 |
394 |
if ($msg)
|
|
5076
|
0 |
394 |
if ($name) { }
|
|
5088
|
0 |
546 |
if ($opening_brace_line)
|
|
5093
|
0 |
546 |
if (not $ok and 0)
|
|
5106
|
29 |
399 |
if ($instr =~ /^\s*#/)
|
|
5111
|
370 |
29 |
if (not $instr =~ /#/) { }
|
|
|
16 |
13 |
elsif (not $instr =~ /['"]/) { }
|
|
5133
|
64 |
293 |
if ($quote_char) { }
|
|
5134
|
12 |
52 |
if ($instr =~ /\G($quote_char)/cg) { }
|
|
|
52 |
0 |
elsif ($instr =~ /\G(.)/cg) { }
|
|
5156
|
12 |
281 |
if ($instr =~ /\G([\"\'])/cg) { }
|
|
|
8 |
273 |
elsif ($instr =~ /\G#/cg) { }
|
|
|
268 |
5 |
elsif ($instr =~ /\G(.)/cg) { }
|
|
5195
|
0 |
948 |
unless (defined $body)
|
|
5200
|
615 |
4956 |
if ($quote_char) { }
|
|
5201
|
71 |
544 |
if ($body =~ /\G($quote_char)/cg) { }
|
|
|
544 |
0 |
elsif ($body =~ /\G(.)/cg) { }
|
|
5210
|
0 |
0 |
if (length $part)
|
|
5221
|
71 |
4885 |
if ($body =~ /\G([\"\'])/cg) { }
|
|
|
155 |
4730 |
elsif ($body =~ /\G(\s+)/cg) { }
|
|
|
3782 |
948 |
elsif ($body =~ /\G(.)/cg) { }
|
|
5225
|
155 |
0 |
if (length $part)
|
|
5232
|
406 |
542 |
if (length $part)
|
|
5282
|
174984 |
7282 |
if ($opt =~ /(.*)(!|=.*)$/)
|
|
5286
|
64575 |
117691 |
if (defined $rOpts->{$opt})
|
|
5295
|
64325 |
257 |
if ($flag)
|
|
5296
|
32667 |
31658 |
if ($flag =~ /^=/) { }
|
|
|
31658 |
0 |
elsif ($flag =~ /^!/) { }
|
|
5297
|
3400 |
29267 |
unless ($value =~ /^\d+$/)
|
|
5301
|
8938 |
22720 |
unless $value
|