| line |
true |
false |
branch |
|
29
|
1 |
32 |
unless (defined $file) |
|
32
|
1 |
31 |
if (not defined $code) { } |
|
|
1 |
30 |
elsif (ref $code ne 'CODE') { } |
|
45
|
27 |
3 |
unless (defined $tmp_dir) |
|
46
|
26 |
1 |
if (defined $dest_dir and -d $dest_dir) { } |
|
49
|
1 |
0 |
if (eval {
do {
require File::Spec;
1
}
}) { } |
|
59
|
1 |
29 |
if %opts |
|
65
|
1 |
27 |
if fileno $cleanup_fh |
|
68
|
6 |
22 |
if -e $cleanup_file |
|
71
|
1 |
28 |
if ($tmp_dir eq '/dev/full') { } |
|
74
|
0 |
1 |
unless open $tmp_fh, ">", $tmp_file |
|
81
|
2 |
26 |
if (defined $mode) { } |
|
86
|
3 |
25 |
if ($tmp_dir ne $dest_dir) |
|
88
|
2 |
1 |
if (@stat_destdir) |
|
89
|
1 |
1 |
if ($^O =~ /bsd/ or $^O eq "darwin" or $stat_destdir[2] & 1024) |
|
102
|
27 |
2 |
if ($same_fs) { } |
|
103
|
17 |
10 |
if (-e $file) |
|
111
|
1 |
28 |
if ($@) |
|
115
|
27 |
1 |
if (defined fileno $tmp_fh) |
|
116
|
0 |
27 |
if ($] < "5.010001") |
|
118
|
1 |
26 |
unless $tmp_fh->close |
|
119
|
0 |
26 |
if ($] < "5.010001" and $! != 0) |
|
124
|
3 |
24 |
if ($check_change) |
|
126
|
1 |
2 |
if (File::Compare::compare($tmp_file, $file) == 0) |
|
132
|
25 |
1 |
if ($same_fs) { } |
|
137
|
0 |
1 |
if (-e $file) |
|
138
|
0 |
0 |
unless @dest_stat = stat $file |
|
143
|
0 |
1 |
if (@dest_stat) { } |
|
|
0 |
1 |
elsif (defined $mode) { } |
|
144
|
0 |
0 |
if defined $mode |
|
147
|
0 |
0 |
if defined $mode |
|
157
|
25 |
0 |
if $for eq "rename" 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. |
|
159
|
0 |
0 |
unless @s |
|
161
|
0 |
0 |
if $old_mode & 128 |
|
168
|
1 |
26 |
if $got_digest_ref and ref $got_digest_ref ne "SCALAR" |
|
170
|
1 |
25 |
if %options |
|
172
|
2 |
23 |
unless -r $file |
|
176
|
1 |
22 |
unless ($got_digest) |
|
179
|
5 |
17 |
if $got_digest_ref |