| line |
true |
false |
branch |
|
29
|
1 |
19 |
unless (defined $file) |
|
32
|
1 |
18 |
if (not defined $code) { } |
|
|
1 |
17 |
elsif (ref $code ne 'CODE') { } |
|
45
|
14 |
3 |
unless (defined $tmp_dir) |
|
46
|
13 |
1 |
if (defined $dest_dir and -d $dest_dir) { } |
|
49
|
1 |
0 |
if (eval {
do {
require File::Spec;
1
}
}) { } |
|
58
|
1 |
16 |
if %opts |
|
64
|
1 |
14 |
if fileno $cleanup_fh |
|
67
|
5 |
10 |
if -e $cleanup_file |
|
70
|
1 |
15 |
if ($tmp_dir eq '/dev/full') { } |
|
73
|
0 |
1 |
unless open $tmp_fh, ">", $tmp_file |
|
80
|
2 |
13 |
if (defined $mode) { } |
|
85
|
3 |
12 |
if ($tmp_dir ne $dest_dir) |
|
87
|
2 |
1 |
if (@stat_destdir) |
|
88
|
1 |
1 |
if ($^O =~ /bsd/ or $^O eq "darwin" or $stat_destdir[2] & 1024) |
|
101
|
14 |
2 |
if ($same_fs) { } |
|
102
|
8 |
6 |
if (-e $file) |
|
110
|
1 |
15 |
if ($@) |
|
114
|
0 |
15 |
if ($] < "5.010001") |
|
116
|
1 |
14 |
unless $tmp_fh->close |
|
117
|
0 |
14 |
if ($] < "5.010001" and $! != 0) |
|
121
|
3 |
11 |
if ($check_change) |
|
123
|
1 |
2 |
if (File::Compare::compare($tmp_file, $file) == 0) |
|
129
|
12 |
1 |
if ($same_fs) { } |
|
134
|
0 |
1 |
if (-e $file) |
|
135
|
0 |
0 |
unless @dest_stat = stat $file |
|
140
|
0 |
1 |
if (@dest_stat) { } |
|
|
0 |
1 |
elsif (defined $mode) { } |
|
141
|
0 |
0 |
if defined $mode |
|
144
|
0 |
0 |
if defined $mode |
|
154
|
12 |
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.26.1/B/Deparse.pm line 5018. |
|
156
|
0 |
0 |
unless @s |
|
158
|
0 |
0 |
if $old_mode & 128 |