| line |
true |
false |
branch |
|
6
|
0 |
1 |
if $] < 5.006 |
|
128
|
0 |
28 |
unless &$samecheck(@_) |
|
129
|
0 |
0 |
if ($File::Copy::Recursive::RMTrgFil and -d $_[1] || -e $_[1]) |
|
131
|
0 |
0 |
if (-d $trg) |
|
135
|
0 |
0 |
unless &$samecheck($_[0], $trg) |
|
136
|
0 |
0 |
if (-e $trg) |
|
137
|
0 |
0 |
if ($File::Copy::Recursive::RMTrgFil == 1) { } |
|
138
|
0 |
0 |
unless unlink $trg |
|
140
|
0 |
0 |
unless unlink $trg |
|
145
|
0 |
28 |
if ($path and not -d $path) |
|
148
|
0 |
28 |
if (-l $_[0] and $File::Copy::Recursive::CopyLink) { } |
|
149
|
0 |
0 |
if not -e readlink $_[0] and $File::Copy::Recursive::BdTrgWrn |
|
151
|
0 |
0 |
unless symlink readlink shift(), shift() |
|
153
|
0 |
28 |
unless copy(@_) |
|
156
|
0 |
28 |
-d $_[1] ? : |
|
158
|
28 |
0 |
if $File::Copy::Recursive::KeepMode |
|
160
|
0 |
28 |
wantarray ? : |
|
164
|
0 |
0 |
if (-l $_[0] and $File::Copy::Recursive::CopyLink) |
|
168
|
1 |
0 |
if -d $_[0] or substr($_[0], -1, 1) eq '*' |
|
177
|
0 |
1 |
if ($File::Copy::Recursive::RMTrgDir and -d $_[1]) |
|
178
|
0 |
0 |
if ($File::Copy::Recursive::RMTrgDir == 1) { } |
|
179
|
0 |
0 |
unless pathrmdir($_[1]) |
|
181
|
0 |
0 |
unless pathrmdir($_[1]) |
|
187
|
0 |
1 |
if (substr($_zero, -1, 1) eq '*') |
|
192
|
0 |
1 |
unless &$samecheck($_zero, $_[1]) |
|
193
|
0 |
1 |
if (not -d $_zero or -e $_[1] and not -d $_[1]) |
|
198
|
1 |
0 |
if (not -d $_[1]) { } |
|
199
|
0 |
1 |
unless pathmk($_[1], $File::Copy::Recursive::NoFtlPth) |
|
201
|
0 |
0 |
if ($File::Copy::Recursive::CPRFComp and not $globstar) |
|
215
|
1 |
16 |
if $end eq $baseend |
|
216
|
1 |
16 |
if $end eq $baseend |
|
218
|
0 |
17 |
if substr($File::Copy::Recursive::DirPerms, 0, 1) eq '0' |
|
219
|
16 |
1 |
unless -d $end |
|
220
|
17 |
0 |
if $File::Copy::Recursive::KeepMode |
|
221
|
0 |
0 |
if ($File::Copy::Recursive::MaxDepth and $File::Copy::Recursive::MaxDepth =~ /^\d+$/ and $level >= $File::Copy::Recursive::MaxDepth) |
|
222
|
0 |
0 |
if wantarray |
|
229
|
0 |
17 |
if ($] < 5.006) { } |
|
230
|
0 |
0 |
unless opendir STR_DH, $str |
|
235
|
0 |
17 |
unless opendir my $str_dh, $str |
|
244
|
0 |
44 |
if (-l $org and $File::Copy::Recursive::CopyLink) { } |
|
|
16 |
28 |
elsif (-d $org) { } |
|
245
|
0 |
0 |
if not -e readlink $org and $File::Copy::Recursive::BdTrgWrn |
|
247
|
0 |
0 |
unless symlink readlink $org, $new |
|
250
|
0 |
16 |
if defined $buf |
|
251
|
16 |
0 |
unless defined $buf |
|
256
|
28 |
0 |
if (&$ok_todo_asper_condcopy($org)) |
|
257
|
0 |
28 |
if ($File::Copy::Recursive::SkipFlop) { } |
|
258
|
0 |
0 |
if defined $buf |
|
259
|
0 |
0 |
unless defined $buf |
|
262
|
0 |
28 |
if defined $buf |
|
263
|
28 |
0 |
unless defined $buf |
|
265
|
28 |
0 |
if $File::Copy::Recursive::KeepMode |
|
273
|
0 |
1 |
unless &$recurs($_zero, $_one, $_[2]) |
|
274
|
0 |
1 |
wantarray ? : |
|
280
|
0 |
0 |
if (-l $_[0] and $File::Copy::Recursive::CopyLink) |
|
284
|
0 |
0 |
if -d $_[0] or substr($_[0], -1, 1) eq '*' |
|
299
|
0 |
1 |
unless ($pth) |
|
304
|
0 |
3 |
if substr($File::Copy::Recursive::DirPerms, 0, 1) eq '0' |
|
305
|
1 |
0 |
unless -d $pth or $nofatal |
|
306
|
0 |
3 |
if not -d $pth and $nofatal |
|
307
|
2 |
1 |
unless $_ == $#parts |
|
315
|
0 |
0 |
unless -d $pth |
|
319
|
0 |
0 |
if ($] < 5.006) { } |
|
320
|
0 |
0 |
unless opendir PTH_DH, $pth |
|
324
|
0 |
0 |
unless opendir $pth_dh, $pth |
|
332
|
0 |
0 |
if (-l $flpth) { } |
|
|
0 |
0 |
elsif (-d $flpth) { } |
|
333
|
0 |
0 |
unless unlink $flpth |
|
336
|
0 |
0 |
unless pathrmdir($flpth) |
|
339
|
0 |
0 |
unless unlink $flpth |
|
343
|
0 |
0 |
if ($] < 5.006) { } |
|
355
|
0 |
0 |
unless -d $path |
|
361
|
0 |
0 |
unless $cur |
|
362
|
0 |
0 |
if (not shift()) { } |
|
363
|
0 |
0 |
if $force |
|
364
|
0 |
0 |
unless rmdir $cur |
|
367
|
0 |
0 |
if $force |
|
377
|
0 |
0 |
if (-e $dir) { } |
|
378
|
0 |
0 |
unless -d $dir |
|
384
|
0 |
0 |
unless pathempty($dir) |
|
386
|
0 |
0 |
unless rmdir $dir |