| line |
true |
false |
branch |
|
29
|
1 |
17 |
unless (defined $file) |
|
32
|
1 |
16 |
if (not defined $code) { } |
|
|
1 |
15 |
elsif (ref $code ne 'CODE') { } |
|
43
|
12 |
3 |
unless (defined $tmp_dir) |
|
46
|
1 |
14 |
if %opts |
|
52
|
1 |
12 |
if fileno $cleanup_fh |
|
55
|
3 |
10 |
if -e $cleanup_file |
|
58
|
1 |
13 |
if ($tmp_dir eq '/dev/full') { } |
|
61
|
0 |
1 |
unless open $tmp_fh, '>', $tmp_file |
|
68
|
2 |
11 |
if (defined $mode) { } |
|
73
|
2 |
11 |
if ($tmp_dir ne $dest_dir) |
|
75
|
1 |
1 |
if ($^O =~ /bsd/ or $^O eq 'darwin' or $stat_destdir[2] & 1024) |
|
86
|
0 |
14 |
if ($same_fs) { } |
|
87
|
0 |
0 |
if (-e $file) |
|
95
|
1 |
13 |
if ($@) |
|
99
|
0 |
13 |
if ($] < 5.010001) |
|
101
|
1 |
12 |
unless $tmp_fh->close |
|
102
|
0 |
12 |
if ($] < 5.010001 and $! != 0) |
|
106
|
3 |
9 |
if ($check_change) |
|
108
|
1 |
2 |
if (File::Compare::compare($tmp_file, $file) == 0) |
|
114
|
0 |
11 |
if ($same_fs) { } |
|
119
|
7 |
4 |
if (-e $file) |
|
120
|
0 |
7 |
unless @dest_stat = stat $file |
|
125
|
7 |
4 |
if (@dest_stat) { } |
|
|
1 |
3 |
elsif (defined $mode) { } |
|
126
|
1 |
6 |
if defined $mode |
|
129
|
1 |
0 |
if defined $mode |
|
139
|
0 |
7 |
if $for eq 'rename' and 1 |
|
141
|
0 |
7 |
unless @s |
|
143
|
6 |
1 |
if $old_mode & 128 |