| line |
true |
false |
branch |
|
128
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
177
|
549 |
0 |
if ($ref) { }
|
|
178
|
0 |
549 |
if ($ref eq 'ARRAY') { }
|
|
|
549 |
0 |
elsif ($ref eq 'SCALAR') { }
|
|
191
|
0 |
0 |
if ($mode =~ /[rR]/)
|
|
195
|
0 |
0 |
if ($ref->can('getline')) { }
|
|
211
|
0 |
0 |
if ($mode =~ /[wW]/)
|
|
215
|
0 |
0 |
if ($ref->can('print')) { }
|
|
233
|
0 |
0 |
if ($filename eq '-') { }
|
|
234
|
0 |
0 |
$mode eq 'w' ? :
|
|
241
|
0 |
549 |
if (not $fh) { }
|
|
249
|
0 |
549 |
if ($is_encoded_data) { }
|
|
250
|
0 |
0 |
if (ref $fh eq 'IO::File') { }
|
|
|
0 |
0 |
elsif ($filename eq '-') { }
|
|
265
|
0 |
549 |
if (ref $fh eq 'IO::File') { }
|
|
|
0 |
549 |
elsif ($filename eq '-') { }
|
|
297
|
1107 |
3 |
if ($ref) { }
|
|
298
|
2 |
1105 |
if ($ref eq 'ARRAY') { }
|
|
|
1105 |
0 |
elsif ($ref eq 'SCALAR') { }
|
|
306
|
0 |
0 |
if ($ref->can('getline')) { }
|
|
326
|
0 |
3 |
if ($filename eq '-') { }
|
|
332
|
3 |
0 |
if (open my $fh, '<', $filename) { }
|
|
335
|
0 |
3 |
unless $fh->close
|
|
364
|
0 |
0 |
unless ($missing_file_spec)
|
|
375
|
0 |
0 |
if $test_name eq $name
|
|
376
|
0 |
0 |
if $Perl::Tidy::OSNAME eq "VMS"
|
|
381
|
0 |
0 |
if $test_name eq $name
|
|
451
|
2 |
557 |
if utf8::is_utf8($string)
|
|
603
|
0 |
559 |
if (my(@bad_keys) = grep({not exists $defaults{$_};} keys %input_hash))
|
|
619
|
0 |
2795 |
if (defined $hash_ref)
|
|
620
|
0 |
0 |
if (ref $hash_ref ne "HASH")
|
|
622
|
0 |
0 |
$what ? :
|
|
649
|
543 |
16 |
if ($stderr_stream) { }
|
|
652
|
0 |
543 |
unless ($fh_stderr)
|
|
670
|
0 |
0 |
if ($flag) { }
|
|
695
|
0 |
0 |
unless $input_stream_name
|
|
721
|
0 |
559 |
if (defined $dump_options) { }
|
|
722
|
0 |
0 |
unless (defined $dump_options_type)
|
|
725
|
0 |
0 |
if ($dump_options_type ne "perltidyrc" and $dump_options_type ne "full")
|
|
742
|
0 |
559 |
if ($user_formatter)
|
|
750
|
559 |
0 |
if (defined $argv)
|
|
753
|
0 |
559 |
if ($rargv eq "SCALAR")
|
|
756
|
0 |
559 |
if ($rargv) { }
|
|
757
|
0 |
0 |
if ($rargv eq 'ARRAY') { }
|
|
773
|
0 |
559 |
if ($msg)
|
|
797
|
0 |
559 |
if ($Perl::Tidy::OSNAME eq 'VMS') { }
|
|
823
|
555 |
9 |
unless $_ eq "-pbp"
|
|
834
|
0 |
559 |
if (defined $dump_getopt_flags)
|
|
845
|
0 |
0 |
if ($opt =~ /(.*)(!|=.*|:.*)$/)
|
|
853
|
0 |
559 |
if (defined $dump_options_category)
|
|
858
|
0 |
559 |
if (defined $dump_options_range)
|
|
863
|
0 |
559 |
if (defined $dump_abbreviations)
|
|
868
|
0 |
559 |
if (defined $dump_options)
|
|
873
|
0 |
559 |
if $quit_now
|
|
879
|
0 |
559 |
if ($rOpts->{'dump-options'})
|
|
889
|
0 |
559 |
if ($rOpts->{'dump-block-summary'} and $num_files != 1)
|
|
901
|
0 |
559 |
if ($user_formatter)
|
|
915
|
559 |
0 |
$rOpts->{'encode-output-strings'} ? :
|
|
918
|
0 |
559 |
unless (exists $default_file_extension{$rOpts->{'format'}})
|
|
936
|
1 |
558 |
if ($rOpts->{'format'} eq "html")
|
|
942
|
559 |
0 |
if ($output_extension)
|
|
946
|
0 |
559 |
if ($in_place_modify and $backup_extension)
|
|
960
|
559 |
0 |
if ($source_stream) { }
|
|
961
|
0 |
559 |
if (@Arg_files > 0)
|
|
972
|
3 |
556 |
unless ref $source_stream
|
|
977
|
0 |
0 |
unless @Arg_files
|
|
985
|
559 |
0 |
unless ($rOpts->{'use-unicode-gcstring'})
|
|
992
|
0 |
559 |
if (@Arg_files > 1)
|
|
999
|
0 |
0 |
if (@Arg_files > 1 and $rOpts->{'file-size-order'})
|
|
1003
|
0 |
0 |
-e $_ ? :
|
|
1057
|
0 |
559 |
$Warn_count ? :
|
|
1059
|
0 |
559 |
wantarray ? :
|
|
1061
|
0 |
0 |
wantarray ? :
|
|
1075
|
561 |
0 |
unless defined $extension
|
|
1081
|
561 |
0 |
if (length $extension == 0)
|
|
1083
|
0 |
561 |
unless defined $extension
|
|
1090
|
561 |
0 |
if ($extension =~ /^[a-zA-Z0-9]/)
|
|
1116
|
2 |
557 |
if ($in_place_modify)
|
|
1117
|
0 |
0 |
if ($rOpts->{'standard-output'} or $destination_stream or ref $source_stream or $rOpts->{'outfile'} or defined $rOpts->{'output-path'})
|
|
1127
|
0 |
559 |
if ($in_place_modify)
|
|
1148
|
0 |
0 |
if ($delete_backup > 1)
|
|
1158
|
0 |
559 |
if (defined $backup_method and $backup_method ne "copy" and $backup_method ne "move")
|
|
1187
|
0 |
0 |
unless (-f $input_file)
|
|
1196
|
0 |
0 |
if (-f $backup_file)
|
|
1197
|
0 |
0 |
unless unlink $backup_file
|
|
1204
|
0 |
0 |
unless File::Copy::copy($input_file, $backup_file)
|
|
1215
|
0 |
0 |
if (defined $write_time)
|
|
1216
|
0 |
0 |
unless utime $read_time, $write_time, $backup_file
|
|
1222
|
0 |
0 |
unless open my $fout, ">", $input_file
|
|
1227
|
0 |
0 |
if ($self->[8])
|
|
1233
|
0 |
0 |
if (ref $routput_string eq 'SCALAR') { }
|
|
1234
|
0 |
0 |
unless $fout->print(${$routput_string;})
|
|
1247
|
0 |
0 |
unless $fout->close
|
|
1257
|
0 |
0 |
if (not $self->[24] and defined $write_time)
|
|
1258
|
0 |
0 |
unless utime $read_time, $write_time, $input_file
|
|
1268
|
0 |
0 |
if ($delete_backup and -f $backup_file)
|
|
1272
|
0 |
0 |
if ($delete_backup > 1 and $self->[14]->get_warning_count)
|
|
1284
|
0 |
0 |
if (not -s $input_file and -s $backup_file and $delete_backup == 1) { }
|
|
1290
|
0 |
0 |
unless unlink $backup_file
|
|
1330
|
0 |
0 |
unless (-f $input_file)
|
|
1338
|
0 |
0 |
if (-f $backup_name)
|
|
1339
|
0 |
0 |
unless unlink $backup_name
|
|
1349
|
0 |
0 |
if (-l $input_file) { }
|
|
1350
|
0 |
0 |
unless File::Copy::copy($input_file, $backup_name)
|
|
1354
|
0 |
0 |
unless rename $input_file, $backup_name
|
|
1364
|
0 |
0 |
unless ($fout)
|
|
1372
|
0 |
0 |
if (ref $routput_string eq 'SCALAR') { }
|
|
1373
|
0 |
0 |
unless $fout->print(${$routput_string;})
|
|
1386
|
0 |
0 |
unless $fout->close
|
|
1396
|
0 |
0 |
if (not $self->[24] and defined $write_time)
|
|
1397
|
0 |
0 |
unless utime $read_time, $write_time, $input_file
|
|
1407
|
0 |
0 |
if ($delete_backup and -f $backup_name)
|
|
1411
|
0 |
0 |
if ($delete_backup > 1 and $self->[14]->get_warning_count)
|
|
1423
|
0 |
0 |
if (not -s $input_file and -s $backup_name and $delete_backup == 1) { }
|
|
1429
|
0 |
0 |
unless unlink $backup_name
|
|
1455
|
2 |
0 |
if ($uid_i != $uid_o or $gid_i != $gid_o)
|
|
1460
|
0 |
2 |
if ($in_place_modify and chown $uid_i, $gid_i, $output_file) { }
|
|
1469
|
0 |
2 |
if ($input_file_permissions != $output_file_permissions)
|
|
1491
|
2 |
0 |
unless ($in_place_modify)
|
|
1495
|
0 |
2 |
unless (chmod $output_file_permissions, $output_file)
|
|
1529
|
0 |
559 |
unless defined $rinput_string
|
|
1545
|
2 |
557 |
if (is_char_mode(${$rinput_string;})) { }
|
|
|
0 |
557 |
elsif (not $rOpts_character_encoding or $rOpts_character_encoding eq 'none') { }
|
|
|
548 |
9 |
elsif (lc $rOpts_character_encoding eq 'guess') { }
|
|
1573
|
2 |
546 |
if (${$rinput_string;} =~ /[^[:ascii:]]/)
|
|
1576
|
0 |
548 |
if ($decoder and ref $decoder) { }
|
|
1578
|
0 |
0 |
if ($encoding_in ne 'UTF-8' and $encoding_in ne 'utf8') { }
|
|
1587
|
0 |
0 |
if (not eval {
|
|
1621
|
0 |
9 |
if (not eval {
|
|
1653
|
11 |
548 |
$encoding_in ? :
|
|
1657
|
11 |
548 |
if ($is_encoded_data)
|
|
1663
|
11 |
548 |
$encoding_in ? :
|
|
1669
|
11 |
548 |
if ($is_encoded_data)
|
|
1673
|
0 |
11 |
unless (defined $loaded_unicode_gcstring)
|
|
1674
|
0 |
0 |
if (eval {
|
|
1679
|
0 |
0 |
if ($rOpts->{'use-unicode-gcstring'})
|
|
1692
|
0 |
11 |
if ($loaded_unicode_gcstring)
|
|
1734
|
4 |
555 |
if ($ole)
|
|
1744
|
0 |
4 |
unless ($line_separator_default)
|
|
1752
|
0 |
4 |
if ($rOpts->{'preserve-line-endings'})
|
|
1779
|
556 |
3 |
if ($str)
|
|
1781
|
556 |
0 |
if ($str =~ /(($CR|$LF)+)/) { }
|
|
1786
|
4 |
552 |
if ($test =~ /^($CRLF)+\z/) { }
|
|
|
0 |
552 |
elsif ($test =~ /^($CR)+\z/) { }
|
|
|
552 |
0 |
elsif ($test =~ /^($LF)+\z/) { }
|
|
1809
|
556 |
3 |
if (defined $input_line_separator)
|
|
1811
|
0 |
556 |
if ($rOpts->{'preserve-line-endings'})
|
|
1816
|
0 |
556 |
if ($input_line_separator ne "\n" and $input_line_separator eq $CR)
|
|
1820
|
0 |
0 |
if (@lines == 1)
|
|
1824
|
0 |
0 |
if (@lines > 1)
|
|
1889
|
556 |
3 |
if ($source_stream) { }
|
|
|
0 |
3 |
elsif ($input_file eq '-') { }
|
|
1898
|
555 |
1 |
unless (defined $logfile_stream)
|
|
1903
|
555 |
1 |
unless (defined $teefile_stream)
|
|
1906
|
554 |
2 |
unless (defined $debugfile_stream)
|
|
1918
|
0 |
3 |
unless (-e $input_file)
|
|
1921
|
0 |
0 |
if ($input_file =~ /([\?\*\[\{])/)
|
|
1925
|
0 |
0 |
if ($ifile =~ /^\'(.+)\'$/)
|
|
1926
|
0 |
0 |
if ($ifile =~ /^\"(.+)\"$/)
|
|
1929
|
0 |
0 |
if (opendir $dh, "./")
|
|
1931
|
0 |
0 |
if /$pattern/
|
|
1933
|
0 |
0 |
unless @files
|
|
1942
|
0 |
3 |
unless (-f $input_file)
|
|
1951
|
0 |
3 |
unless (-s $input_file)
|
|
1960
|
0 |
3 |
if ($size_in_mb > $rOpts->{'maximum-file-size-mb'})
|
|
1968
|
0 |
0 |
unless (-T $input_file or $rOpts->{'force-read-binary'})
|
|
1977
|
0 |
3 |
if ($in_place_modify and not -w $input_file)
|
|
1979
|
0 |
0 |
if (defined $backup_method and $backup_method eq "copy")
|
|
1990
|
0 |
3 |
if ($Perl::Tidy::OSNAME eq "VMS")
|
|
1996
|
0 |
3 |
if (defined $rOpts->{'output-path'})
|
|
2000
|
0 |
0 |
unless (-d $new_path)
|
|
2001
|
0 |
0 |
unless mkdir $new_path, 511
|
|
2007
|
0 |
0 |
unless ($fileroot)
|
|
2021
|
0 |
3 |
if (not $source_stream and $input_file =~ /$forbidden_file_extensions/ || $input_file eq 'DIAGNOSTICS')
|
|
2043
|
0 |
559 |
unless defined $rinput_string
|
|
2046
|
0 |
559 |
if $diagnostics_object
|
|
2059
|
0 |
559 |
if ($rOpts->{'outfile'}) { }
|
|
|
1 |
558 |
elsif ($rOpts->{'standard-output'}) { }
|
|
|
558 |
0 |
elsif ($destination_stream) { }
|
|
|
0 |
0 |
elsif ($source_stream) { }
|
|
|
0 |
0 |
elsif ($input_file eq '-') { }
|
|
2061
|
0 |
0 |
if ($number_of_files <= 1) { }
|
|
2063
|
0 |
0 |
if ($rOpts->{'standard-output'})
|
|
2066
|
0 |
0 |
if $saw_pbp
|
|
2070
|
0 |
0 |
if ($destination_stream)
|
|
2076
|
0 |
0 |
if (defined $rOpts->{'output-path'})
|
|
2080
|
0 |
0 |
if (defined $rOpts->{'output-file-extension'})
|
|
2088
|
0 |
0 |
if ($output_file =~ /^-/)
|
|
2093
|
0 |
0 |
if (@input_file_stat and $output_file eq $input_file)
|
|
2102
|
0 |
1 |
if ($destination_stream)
|
|
2106
|
0 |
0 |
if $saw_pbp
|
|
2112
|
1 |
0 |
if ($number_of_files <= 1) { }
|
|
2132
|
0 |
0 |
if ($in_place_modify) { }
|
|
2151
|
543 |
16 |
if ($errorfile_stream)
|
|
2153
|
556 |
3 |
if ($logfile_stream)
|
|
2166
|
557 |
2 |
if $encoding_log_message
|
|
2170
|
0 |
559 |
if (${$rpending_logfile_message;})
|
|
2173
|
0 |
559 |
if (${$rpending_complaint;})
|
|
2200
|
558 |
1 |
if ($rOpts->{'format'} eq "tidy" and defined $routput_string)
|
|
2215
|
559 |
0 |
if $logger_object
|
|
2246
|
0 |
558 |
if ($in_place_modify) { }
|
|
|
553 |
5 |
elsif (ref $output_file) { }
|
|
2250
|
0 |
0 |
unless ($self->[23])
|
|
2258
|
0 |
0 |
if (defined $backup_method and $backup_method eq 'copy') { }
|
|
2295
|
1 |
4 |
if ($output_file eq '-') { }
|
|
2297
|
1 |
0 |
if ($is_encoded_data) { }
|
|
2306
|
4 |
0 |
if (open my $fh, '>', $output_file) { }
|
|
2307
|
3 |
1 |
if ($is_encoded_data) { }
|
|
2310
|
0 |
4 |
unless $fh->close
|
|
2317
|
4 |
0 |
if ($output_file and -f $output_file and not -l $output_file)
|
|
2318
|
2 |
2 |
if (@{$rinput_file_stat;})
|
|
2326
|
4 |
1 |
if ($is_encoded_data)
|
|
2371
|
0 |
559 |
unless (defined $rinput_string)
|
|
2374
|
0 |
559 |
if (ref $rinput_string ne "SCALAR")
|
|
2394
|
558 |
1 |
if ($rOpts->{'format'} eq "tidy")
|
|
2400
|
1 |
557 |
if ($line_tidy_begin)
|
|
2405
|
0 |
1 |
if ($line_tidy_begin > $num) { }
|
|
2412
|
0 |
1 |
if (not defined $line_tidy_end or $line_tidy_end > $num)
|
|
2427
|
2 |
556 |
if ($rOpts->{'assert-tidy'} or $rOpts->{'assert-untidy'} or $rOpts->{'backup-and-modify-in-place'})
|
|
2449
|
1 |
558 |
if ($prefilter)
|
|
2462
|
1 |
558 |
if ($rOpts->{'format'} ne "tidy")
|
|
2470
|
1 |
557 |
if ($postfilter)
|
|
2475
|
2 |
556 |
if (defined $digest_input)
|
|
2483
|
0 |
558 |
if ($rOpts->{'assert-tidy'})
|
|
2484
|
0 |
0 |
if ($self->[24])
|
|
2496
|
0 |
558 |
if ($rOpts->{'assert-untidy'})
|
|
2497
|
0 |
0 |
unless ($self->[24])
|
|
2507
|
1 |
557 |
if (@input_lines_pre or @input_lines_post)
|
|
2520
|
0 |
558 |
if ($self->[11] ne "\n")
|
|
2534
|
1 |
557 |
if ($chomp_terminal_newline)
|
|
2574
|
2 |
557 |
if ($rOpts->{'DEBUG'})
|
|
2584
|
0 |
558 |
if ($rOpts->{'tee-pod'} or $rOpts->{'tee-block-comments'} or $rOpts->{'tee-side-comments'})
|
|
2592
|
0 |
1 |
unless ($fh_tee)
|
|
2603
|
558 |
1 |
if ($rOpts->{'format'} eq "tidy")
|
|
2610
|
0 |
558 |
if (not defined $max_iterations or $max_iterations <= 0)
|
|
2616
|
0 |
558 |
if ($max_iterations > 6)
|
|
2621
|
3 |
555 |
if ($max_iterations > 1)
|
|
2650
|
2 |
559 |
if ($iter > 1)
|
|
2652
|
0 |
2 |
if $debugger_object
|
|
2655
|
0 |
0 |
if ($fh_tee and $fh_tee->can("close") and not ref $tee_file and $tee_file ne "-")
|
|
2660
|
0 |
0 |
unless $fh_tee->close
|
|
2675
|
0 |
561 |
if ($user_formatter) { }
|
|
|
1 |
560 |
elsif ($rOpts->{'format'} eq 'html') { }
|
|
|
560 |
0 |
elsif ($rOpts->{'format'} eq 'tidy') { }
|
|
2710
|
0 |
561 |
unless ($formatter)
|
|
2747
|
5 |
0 |
if ($max_iterations > 1 and not defined $iteration_of_formatter_convergence and $formatter->can("get_convergence_check"))
|
|
2751
|
3 |
2 |
if ($formatter->get_convergence_check)
|
|
2759
|
4 |
557 |
if ($iter < $max_iterations)
|
|
2767
|
0 |
4 |
if ($stop_now) { }
|
|
2780
|
3 |
1 |
if (not defined $saw_md5{$digest}) { }
|
|
2788
|
0 |
1 |
if ($saw_md5{$digest} != $iterm) { }
|
|
2803
|
0 |
0 |
if $diagnostics_object
|
|
2815
|
0 |
1 |
if $diagnostics_object and $iterm > 2
|
|
2823
|
2 |
2 |
if ($stop_now)
|
|
2853
|
2 |
557 |
if $debugger_object
|
|
2855
|
0 |
0 |
if ($fh_tee and $fh_tee->can("close") and not ref $tee_file and $tee_file ne "-")
|
|
2860
|
0 |
0 |
unless $fh_tee->close
|
|
2866
|
1 |
558 |
if $convergence_log_message
|
|
2891
|
561 |
0 |
if ($formatter->can("finish_formatting"))
|
|
2911
|
0 |
553 |
if (ref $routput eq 'ARRAY') { }
|
|
|
553 |
0 |
elsif (ref $routput eq 'SCALAR') { }
|
|
2928
|
553 |
0 |
if ($ref_destination_stream eq 'SCALAR' or $ref_destination_stream eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($ref_destination_stream->can('print')) { }
|
|
2949
|
6 |
547 |
if ($encode_destination_buffer)
|
|
2951
|
0 |
6 |
if (not eval {
|
|
2972
|
550 |
3 |
if ($ref_destination_stream eq 'SCALAR') { }
|
|
|
3 |
0 |
elsif (defined $destination_buffer) { }
|
|
2977
|
3 |
0 |
if ($ref_destination_stream eq 'ARRAY') { }
|
|
2986
|
0 |
0 |
if ($ref_destination_stream->can("close"))
|
|
3014
|
0 |
0 |
if (defined $s1 and defined $s2)
|
|
3022
|
0 |
0 |
if ($count == 1)
|
|
3029
|
0 |
0 |
wantarray ? :
|
|
3038
|
0 |
0 |
defined $rbufi ? :
|
|
3039
|
0 |
0 |
defined $rbufo ? :
|
|
3042
|
0 |
0 |
unless $leni and $leno
|
|
3050
|
0 |
0 |
if (length $str > $lenmax)
|
|
3056
|
0 |
0 |
if ($linei)
|
|
3064
|
0 |
0 |
if (defined $linei)
|
|
3065
|
0 |
0 |
if (defined $lineo)
|
|
3068
|
0 |
0 |
unless defined $linei and defined $lineo
|
|
3070
|
0 |
0 |
if $linei eq $lineo
|
|
3077
|
0 |
0 |
if ($linei =~ /^(\s+)/)
|
|
3078
|
0 |
0 |
if ($lineo =~ /^(\s+)/)
|
|
3079
|
0 |
0 |
if ($leading_ws_i ne $leading_ws_o) { }
|
|
3081
|
0 |
0 |
if ($leading_ws_i =~ /\t/)
|
|
3088
|
0 |
0 |
if ($linei =~ /(\s+)$/)
|
|
3089
|
0 |
0 |
if ($lineo =~ /(\s+)$/)
|
|
3090
|
0 |
0 |
if ($trailing_ws_i ne $trailing_ws_o)
|
|
3097
|
0 |
0 |
if ($pos1 > 60)
|
|
3107
|
0 |
0 |
if ($last_nonblank_line)
|
|
3122
|
0 |
0 |
if ($counti > $counto) { }
|
|
|
0 |
0 |
elsif ($counti < $counto) { }
|
|
3158
|
0 |
559 |
if ($Windows_type)
|
|
3163
|
551 |
8 |
if ($config_file)
|
|
3169
|
2 |
557 |
if ($rOpts->{'DEBUG'} or $rOpts->{'show-options'})
|
|
3276
|
138136 |
0 |
if ($short_name)
|
|
3277
|
0 |
138136 |
if ($expansion{$short_name})
|
|
3284
|
70739 |
67397 |
if ($flag eq "!")
|
|
3287
|
0 |
70739 |
if ($expansion{$nshort_name})
|
|
3621
|
44003 |
141478 |
unless (defined $option_category{$long_name})
|
|
3622
|
557 |
43446 |
if ($long_name =~ /^html-linked/) { }
|
|
|
557 |
42889 |
elsif ($long_name =~ /^pod2html/) { }
|
|
4058
|
7 |
552 |
if ($use_cache) { }
|
|
4060
|
2 |
5 |
if (my $result = $process_command_line_cache{$cache_key}) { }
|
|
4068
|
5 |
0 |
if $retvals[0]{'memoize'}
|
|
4092
|
557 |
0 |
if (eval {
|
|
4094
|
0 |
557 |
if (not $ok and 0)
|
|
4113
|
557 |
0 |
if ($dump_options_type ne "perltidyrc")
|
|
4116
|
0 |
557 |
unless (&GetOptions(\%Opts, @{$roption_string;}))
|
|
4136
|
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 \? ] )$/xi) { }
|
|
|
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)$/) { }
|
|
4145
|
0 |
0 |
if ($config_file)
|
|
4153
|
0 |
0 |
if (defined $config_file)
|
|
4154
|
0 |
0 |
if (my($start_dir, $search_file) = $config_file =~ m[^(.*)\.\.\./(.*)$])
|
|
4157
|
0 |
0 |
unless $start_dir
|
|
4159
|
0 |
0 |
if (my $found_file = find_file_upwards($start_dir, $search_file))
|
|
4166
|
0 |
0 |
unless (-e $config_file)
|
|
4205
|
0 |
557 |
if ($saw_dump_profile and $saw_ignore_profile)
|
|
4213
|
551 |
6 |
unless ($saw_ignore_profile)
|
|
4218
|
551 |
0 |
if ($perltidyrc_stream)
|
|
4219
|
0 |
551 |
if ($config_file) { }
|
|
4235
|
0 |
551 |
unless $config_file
|
|
4242
|
551 |
0 |
if ($config_file)
|
|
4244
|
0 |
551 |
unless (defined $rconfig_string)
|
|
4250
|
0 |
551 |
if ($saw_dump_profile)
|
|
4256
|
551 |
0 |
if (defined $rconfig_string)
|
|
4260
|
0 |
551 |
if $death_message
|
|
4264
|
218 |
333 |
if (@{$rconfig_list;})
|
|
4270
|
0 |
218 |
unless (&GetOptions(\%Opts, @{$roption_string;}))
|
|
4281
|
0 |
218 |
if (@ARGV)
|
|
4285
|
0 |
0 |
if (length $str < 70) { }
|
|
4322
|
0 |
2834 |
if (defined $Opts{$_})
|
|
4337
|
0 |
557 |
unless (&GetOptions(\%Opts, @{$roption_string;}))
|
|
4342
|
557 |
0 |
if (defined $glc)
|
|
4344
|
0 |
557 |
if (not $ok and 0)
|
|
4371
|
0 |
559 |
if ($exclude_string)
|
|
4380
|
0 |
559 |
if ($is_excluded_word{'*'})
|
|
4384
|
3 |
556 |
if ($input_string) { }
|
|
4396
|
3929 |
0 |
if ($word)
|
|
4397
|
0 |
3929 |
unless ($word =~ /^\w[\w\d]*$/)
|
|
4402
|
3915 |
0 |
unless ($seen{$word} or $is_excluded_word{$word})
|
|
4432
|
3 |
0 |
if (defined $input_string and length $input_string)
|
|
4439
|
3 |
0 |
if ($rforced_words)
|
|
4445
|
11 |
0 |
if ($word)
|
|
4448
|
0 |
11 |
if ($word =~ /^\d/ or not $word =~ /^\w[\w\d]*$/)
|
|
4451
|
11 |
0 |
unless ($seen{$word})
|
|
4477
|
0 |
559 |
unless ($encoding =~ /^\s*(?:guess|none|utf8|utf-8)\s*$/i)
|
|
4489
|
0 |
559 |
if (defined $rOpts->{'vertical-tightness'})
|
|
4496
|
1 |
558 |
if (defined $rOpts->{'vertical-tightness-closing'})
|
|
4503
|
0 |
559 |
if (defined $rOpts->{'closing-token-indentation'})
|
|
4517
|
1094 |
1142 |
if ($rOpts->{$key})
|
|
4518
|
0 |
1094 |
if ($rOpts->{$key} < 0)
|
|
4522
|
0 |
1094 |
if ($rOpts->{$key} > 100)
|
|
4537
|
1 |
558 |
if (defined $rOpts->{'logfile-gap'} and $rOpts->{'logfile-gap'} >= 0)
|
|
4544
|
3 |
0 |
unless ($rOpts->{'add-whitespace'} or $rOpts->{'delete-old-whitespace'} or $rOpts->{'add-newlines'} or $rOpts->{'delete-old-newlines'})
|
|
4553
|
5 |
554 |
if ($rOpts->{'indent-spaced-block-comments'})
|
|
4558
|
3 |
556 |
if ($rOpts->{'opening-brace-always-on-right'})
|
|
4560
|
0 |
3 |
if ($rOpts->{'opening-brace-on-new-line'})
|
|
4567
|
0 |
3 |
if ($rOpts->{'brace-left-and-indent'})
|
|
4577
|
537 |
22 |
unless (defined $rOpts->{'opening-brace-on-new-line'})
|
|
4581
|
2 |
557 |
if ($rOpts->{'entab-leading-whitespace'})
|
|
4582
|
0 |
2 |
if ($rOpts->{'entab-leading-whitespace'} < 0)
|
|
4588
|
1 |
1 |
if ($rOpts->{'tabs'})
|
|
4601
|
559 |
0 |
if ($rOpts->{'default-tabsize'}) { }
|
|
4602
|
0 |
559 |
if ($rOpts->{'default-tabsize'} < 0)
|
|
4606
|
0 |
559 |
if ($rOpts->{'default-tabsize'} > 20)
|
|
4616
|
3 |
556 |
if (defined $rOpts->{'sub-alias-list'} and length $rOpts->{'sub-alias-list'})
|
|
4633
|
6 |
553 |
unless ($rOpts->{'fuzzy-line-length'})
|
|
4634
|
0 |
6 |
if ($rOpts->{'maximum-line-length'} != 1 or $rOpts->{'continuation-indentation'} != 0)
|
|
4642
|
0 |
559 |
if ($rOpts->{'short-concatenation-item-length'} > 12)
|
|
4653
|
3 |
556 |
if ($rOpts->{'freeze-whitespace'})
|
|
4665
|
0 |
557 |
$rOpts->{'tabs'} ? :
|
|
|
2 |
557 |
$rOpts->{'entab-leading-whitespace'} ? :
|
|
4673
|
1 |
558 |
if ($line_range_tidy)
|
|
4675
|
0 |
1 |
if ($num_files > 1)
|
|
4682
|
1 |
0 |
if ($line_range_tidy =~ /^(\d+):(\d+)?$/) { }
|
|
4685
|
0 |
1 |
if ($n1 < 1)
|
|
4690
|
0 |
1 |
if (defined $n2 and $n2 < $n1)
|
|
4716
|
0 |
0 |
if (-f $try_path) { }
|
|
|
0 |
0 |
elsif ($search_dir eq '/') { }
|
|
4753
|
5 |
2561 |
if ($word =~ /^(-[-]?no)-(.*)/)
|
|
4756
|
2566 |
0 |
if ($word =~ /^-[-]?([\w\-]+)(.*)/) { }
|
|
4762
|
558 |
2008 |
if ($pass_count == 0)
|
|
4768
|
471 |
2095 |
if ($$rexpansion{$abr . $flags})
|
|
4774
|
949 |
1617 |
if ($rexpansion->{$abr}) { }
|
|
4780
|
0 |
1452 |
unless $abbrev
|
|
4799
|
775 |
327 |
unless $abbrev_count
|
|
4802
|
0 |
327 |
if ($pass_count == $max_passes)
|
|
4810
|
0 |
0 |
if ($num < 50) { }
|
|
4822
|
0 |
0 |
if ($config_file) { }
|
|
4868
|
0 |
0 |
unless $base =~ s/;-?\d*$//
|
|
4882
|
0 |
0 |
unless $base =~ /(?:^|[^^])\./
|
|
4885
|
0 |
0 |
$base =~ /\.$/ ? :
|
|
4902
|
0 |
0 |
unless $Perl::Tidy::OSNAME =~ /win32|dos/i
|
|
4915
|
0 |
0 |
if (not $ok and 0)
|
|
4926
|
0 |
0 |
unless $id
|
|
4944
|
0 |
0 |
unless (defined $os)
|
|
4958
|
0 |
0 |
$os eq '2000' && $major != 5 ? :
|
|
4968
|
0 |
559 |
if $is_Windows
|
|
4981
|
0 |
0 |
if ($is_Windows) { }
|
|
4991
|
0 |
0 |
unless $config_file
|
|
5001
|
0 |
0 |
if ($config_file)
|
|
5002
|
0 |
0 |
if (my($start_dir, $search_file) = $config_file =~ m[^(.*)\.\.\./(.*)$])
|
|
5007
|
0 |
0 |
unless $start_dir
|
|
5009
|
0 |
0 |
if (my $found_file = find_file_upwards($start_dir, $search_file))
|
|
5024
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5025
|
0 |
0 |
if ($is_Windows)
|
|
5027
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5035
|
0 |
0 |
if $Perl::Tidy::OSNAME =~ /win32/i
|
|
5040
|
0 |
0 |
if (defined $ENV{$var}) { }
|
|
5044
|
0 |
0 |
if ($var eq "PERLTIDY")
|
|
5047
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5053
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5055
|
0 |
0 |
if ($is_Windows)
|
|
5058
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5068
|
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') { }
|
|
5070
|
0 |
0 |
if ($Windows_type)
|
|
5076
|
0 |
0 |
if ($allusers)
|
|
5079
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5082
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5089
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5092
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5108
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5111
|
0 |
0 |
if &$exists_config_file($config_file)
|
|
5126
|
0 |
0 |
unless ($os)
|
|
5128
|
0 |
0 |
unless $os
|
|
5133
|
0 |
0 |
if ($os =~ /9[58]|Me/) { }
|
|
|
0 |
0 |
elsif ($os =~ /NT|XP|200?/) { }
|
|
5137
|
0 |
0 |
$os =~ /XP/ ? :
|
|
5138
|
0 |
0 |
$os =~ /NT/ ? :
|
|
5151
|
0 |
0 |
wantarray ? :
|
|
5157
|
0 |
0 |
if ($rconfig_string) { }
|
|
5185
|
0 |
431 |
if $death_message
|
|
5186
|
34 |
397 |
unless $line
|
|
5188
|
0 |
397 |
unless $line
|
|
5196
|
0 |
397 |
if ($line =~ /^((\w+)\s*\{)(.*)?$/) { }
|
|
|
0 |
397 |
elsif ($line =~ /^{/) { }
|
|
|
0 |
397 |
elsif ($line =~ /^(.*)?\}$/) { }
|
|
5200
|
0 |
0 |
if $opening_brace_line
|
|
5202
|
0 |
0 |
unless $body and $body =~ s/\}$//
|
|
5205
|
0 |
0 |
if ($rexpansion->{$name})
|
|
5227
|
0 |
0 |
if ($opening_brace_line) { }
|
|
5241
|
397 |
0 |
if ($body)
|
|
5244
|
0 |
397 |
if ($msg)
|
|
5253
|
0 |
397 |
if ($name) { }
|
|
5265
|
0 |
551 |
if ($opening_brace_line)
|
|
5279
|
29 |
402 |
if ($instr =~ /^\s*#/)
|
|
5284
|
373 |
29 |
unless ($instr =~ /#/)
|
|
5289
|
16 |
13 |
unless ($instr =~ /['"]/)
|
|
5306
|
64 |
293 |
if ($quote_char) { }
|
|
5307
|
12 |
52 |
if ($instr =~ /\G($quote_char)/cg) { }
|
|
|
52 |
0 |
elsif ($instr =~ /\G(.)/cg) { }
|
|
5329
|
12 |
281 |
if ($instr =~ /\G([\"\'])/cg) { }
|
|
|
8 |
273 |
elsif ($instr =~ /\G#/cg) { }
|
|
|
268 |
5 |
elsif ($instr =~ /\G(.)/cg) { }
|
|
5368
|
0 |
956 |
unless (defined $body)
|
|
5373
|
615 |
5026 |
if ($quote_char) { }
|
|
5374
|
71 |
544 |
if ($body =~ /\G($quote_char)/cg) { }
|
|
|
544 |
0 |
elsif ($body =~ /\G(.)/cg) { }
|
|
5383
|
0 |
0 |
if (length $part)
|
|
5394
|
71 |
4955 |
if ($body =~ /\G([\"\'])/cg) { }
|
|
|
155 |
4800 |
elsif ($body =~ /\G(\s+)/cg) { }
|
|
|
3844 |
956 |
elsif ($body =~ /\G(.)/cg) { }
|
|
5398
|
155 |
0 |
if (length $part)
|
|
5405
|
409 |
547 |
if (length $part)
|
|
5455
|
178797 |
7350 |
if ($opt =~ /(.*)(!|=.*)$/)
|
|
5459
|
64598 |
121549 |
if (defined $rOpts->{$opt})
|
|
5468
|
64350 |
255 |
if ($flag)
|
|
5469
|
32406 |
31944 |
if ($flag =~ /^=/) { }
|
|
|
31944 |
0 |
elsif ($flag =~ /^!/) { }
|
|
5470
|
2874 |
29532 |
unless ($value =~ /^\d+$/)
|
|
5474
|
9019 |
22925 |
unless $value
|