| line |
true |
false |
branch |
|
85
|
0 |
276 |
if ($@) |
|
86
|
0 |
0 |
if $VERBOSE > 0 |
|
91
|
0 |
276 |
if ($^O =~ /mswin/i) |
|
100
|
0 |
276 |
if ($^O =~ /mswin/i) { } |
|
|
0 |
276 |
elsif ($^O =~ /macos/i) { } |
|
115
|
0 |
276 |
if ($@) |
|
116
|
0 |
0 |
unless (defined $TEMPDIR) |
|
118
|
0 |
0 |
if (defined $ENV{'TEMPDIR'} and -d $ENV{'TEMPDIR'}) { } |
|
|
0 |
0 |
elsif (defined $ENV{'TMPDIR'} and -d $ENV{'TMPDIR'}) { } |
|
123
|
0 |
0 |
if ($^O =~ /mswin/i) { } |
|
|
0 |
0 |
elsif ($^O =~ /macos/i) { } |
|
124
|
0 |
0 |
unless $TEMPDIR |
|
127
|
0 |
0 |
unless $TEMPDIR |
|
130
|
0 |
0 |
unless $TEMPDIR |
|
133
|
0 |
0 |
unless (-d $TEMPDIR and -w $TEMPDIR) |
|
143
|
0 |
0 |
if eval {
do {
$bit = &$func();
1
}
} |
|
204
|
0 |
10736 |
if ($url) |
|
215
|
0 |
0 |
unless $http_result->is_success |
|
218
|
0 |
0 |
if $http_result->is_success |
|
220
|
0 |
0 |
unless $http_result->is_success |
|
229
|
33 |
10703 |
if defined $noclose |
|
231
|
23 |
10713 |
if ($input) |
|
232
|
23 |
0 |
if (ref \$input eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $input and ref $input eq 'GLOB' || $input->isa('IO::Handle')) { } |
|
234
|
1 |
22 |
if ($file and $file ne $input) |
|
249
|
2 |
10733 |
if (defined $file and defined $fh) |
|
254
|
47 |
10686 |
if ($string) |
|
255
|
3 |
44 |
if (defined $file or defined $fh) |
|
259
|
0 |
44 |
unless open $fh, '<', \$string |
|
262
|
1143 |
9587 |
if (defined $file and $file ne '') |
|
266
|
151 |
992 |
$mode =~ />/ ? : |
|
268
|
1 |
1142 |
unless open $fh, $mode, $file |
|
271
|
1835 |
8894 |
if (defined $fh) |
|
276
|
0 |
551 |
unless (ref $fh and ref $fh eq 'GLOB' or ref $fh and UNIVERSAL::can($fh, 'can') and $fh->isa('IO::Handle') || $fh->isa('IO::String')) |
|
283
|
0 |
1835 |
if ($HAS_EOL) |
|
289
|
0 |
10729 |
defined $flush ? : |
|
307
|
1867 |
420651 |
if (defined $value) |
|
351
|
8 |
0 |
if ($arg{'-force'} or not exists $self->{'_mode'}) |
|
355
|
8 |
0 |
if (defined $fh) { } |
|
357
|
8 |
0 |
if (not $^O =~ /MSWin32/) { } |
|
359
|
8 |
0 |
exists $modes{$m & 3} ? : |
|
363
|
0 |
0 |
if (defined read($fh, my $content, 0)) |
|
367
|
0 |
0 |
if (defined syswrite($fh, '')) |
|
398
|
1143 |
6 |
if (defined $value) |
|
457
|
70 |
70081 |
if (defined $variant) |
|
461
|
0 |
70 |
if (scalar keys %ok_variants == 0) |
|
465
|
0 |
70 |
unless (exists $ok_variants{$variant}) |
|
507
|
0 |
2 |
if ($line_num < 1) |
|
513
|
0 |
2 |
unless (defined $file) |
|
529
|
0 |
2 |
unless open my $fh1, '<', $temp_file |
|
530
|
0 |
2 |
unless open my $fh2, '>', $file |
|
532
|
1 |
1 |
if ($. == $line_num) { } |
|
541
|
0 |
2 |
unless unlink $temp_file |
|
544
|
0 |
2 |
if ($. > 0 and $line_num > $.) |
|
550
|
0 |
2 |
unless open my $new_fh, '>>', $file |
|
553
|
1 |
1 |
if ($. == 0 and $line_num == 1) |
|
591
|
12 |
379100 |
unless my $fh = $self->_fh |
|
596
|
215589 |
163511 |
unless $self->{'_readbuffer'} |
|
|
1483 |
377617 |
if (@{[] unless $self->{'_readbuffer'};}) { } |
|
605
|
378525 |
575 |
if (not $HAS_EOL || $param{'-raw'} and defined $line) |
|
608
|
378525 |
0 |
unless $ONMAC |
|
644
|
2 |
1502 |
unless $value |
|
665
|
49 |
11028 |
if $self->noclose |
|
667
|
1617 |
9411 |
if (defined(my $fh = $self->{'_filehandle'})) |
|
669
|
0 |
1065 |
if ref $fh eq 'GLOB' and \*STDOUT == $fh || \*STDERR == $fh || \*STDIN == $fh |
|
674
|
1066 |
550 |
unless ref $fh and $fh->isa('IO::String') |
|
695
|
0 |
2278 |
unless (defined $self->{'_filehandle'}) |
|
699
|
1225 |
1053 |
if (ref($self->{'_filehandle'}) =~ /GLOB/) { } |
|
724
|
33 |
11077 |
if @_ |
|
739
|
34 |
0 |
if (exists $self->{'_rootio_tempfiles'} and ref($self->{'_rootio_tempfiles'}) =~ /array/i and not $self->save_tempfiles) |
|
743
|
0 |
34 |
if ($v > 0) |
|
751
|
0 |
0 |
if ($self->{'_cleanuptempdir'} and exists $self->{'_rootio_tempdirs'} and ref($self->{'_rootio_tempdirs'}) =~ /array/i and not $self->save_tempfiles) |
|
756
|
0 |
0 |
if ($v > 0) |
|
784
|
0 |
3 |
unless defined $exe |
|
785
|
0 |
3 |
unless ref $self or $exe |
|
786
|
0 |
3 |
if $^O =~ /mswin/i and not $exe =~ /\.(exe|com|bat|cmd)$/i |
|
787
|
1 |
2 |
if -f $exe and -x $exe |
|
794
|
2 |
0 |
if ($FILESPECLOADED) |
|
797
|
0 |
18 |
if -f $f and -x $f |
|
826
|
0 |
51 |
if ($key =~ /^-/) { } |
|
837
|
5 |
35 |
unless exists $params{'DIR'} |
|
838
|
5 |
35 |
if (exists $params{'UNLINK'} and defined $params{'UNLINK'} and not $params{'UNLINK'}) { } |
|
846
|
40 |
0 |
if ($FILETEMPLOADED) { } |
|
847
|
4 |
36 |
if (exists $params{'TEMPLATE'}) { } |
|
860
|
0 |
0 |
exists $params{'TEMPLATE'} ? : |
|
864
|
0 |
0 |
if ($HAS_WIN32) |
|
877
|
0 |
0 |
if (sysopen $tfh, $file, $OPENFLAGS, 384) { } |
|
885
|
35 |
5 |
if ($params{'UNLINK'}) |
|
889
|
39 |
1 |
wantarray ? : |
|
911
|
31 |
0 |
if ($FILETEMPLOADED and 'File::Temp'->can('tempdir')) |
|
956
|
8868 |
0 |
if $FILESPECLOADED |
|
959
|
0 |
0 |
if ($args[0] eq '/') |
|
1003
|
0 |
0 |
if ($FILEPATHLOADED) |
|
1015
|
0 |
0 |
if (defined $roots and length $roots) { } |
|
1016
|
0 |
0 |
unless ref $roots |
|
1025
|
0 |
0 |
unless my(undef, undef, $rp) = lstat $root |
|
1027
|
0 |
0 |
if (-d _) { } |
|
1032
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
unless $safe |
|
1035
|
0 |
0 |
if (opendir DIR, $root) { } |
|
1045
|
0 |
0 |
if $Is_VMS |
|
1046
|
0 |
0 |
if $Is_VMS |
|
1049
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
if ($safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-w $root)) |
|
1051
|
0 |
0 |
if $verbose |
|
1054
|
0 |
0 |
if $force_writable |
|
1057
|
0 |
0 |
if $verbose |
|
1058
|
0 |
0 |
if (rmdir $root) { } |
|
1063
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
unless chmod $rp, $Is_VMS ? VMS::Filespec::fileify($root) : $root |
|
1069
|
0 |
0 |
$Is_VMS ? : |
|
|
0 |
0 |
if ($safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-l $root || -w $root)) |
|
1073
|
0 |
0 |
if $verbose |
|
1076
|
0 |
0 |
if $force_writable |
|
1079
|
0 |
0 |
if $verbose |
|
1082
|
0 |
0 |
unless (unlink $root) |
|
1084
|
0 |
0 |
if ($force_writable) |
|
1085
|
0 |
0 |
unless chmod $rp, $root |
|
1092
|
0 |
0 |
unless $Is_VMS and lstat $root |
|
1115
|
10730 |
658 |
if (defined $value) |
|
1134
|
0 |
34 |
if (@_) |
|
1136
|
0 |
0 |
$value ? : |