| line |
true |
false |
branch |
|
46
|
0 |
13 |
unless -e $root |
|
47
|
0 |
13 |
unless -d $root |
|
86
|
169 |
28067 |
unless -e $fullpath |
|
161
|
2281 |
90209 |
if (/^basename$/) |
|
164
|
2647 |
87562 |
if (/^dirname$/) |
|
167
|
23201 |
64361 |
if (/^path$/) |
|
170
|
62671 |
1690 |
if (/^object_type$/) |
|
172
|
58376 |
4295 |
if -d $$self{'fullpath'} |
|
173
|
4295 |
58376 |
if -f $$self{'fullpath'} |
|
176
|
0 |
1690 |
if (/^dev$/) |
|
179
|
0 |
1690 |
if (/^ino$/) |
|
182
|
338 |
1352 |
if (/^mode$/) |
|
185
|
0 |
1352 |
if (/^nlink$/) |
|
188
|
0 |
1352 |
if (/^uid$/) |
|
191
|
0 |
1352 |
if (/^gid$/) |
|
194
|
0 |
1352 |
if (/^rdev$/) |
|
197
|
0 |
1352 |
if (/^size$/) |
|
200
|
676 |
676 |
if (/^atime$/) |
|
203
|
676 |
0 |
if (/^mtime$/) |
|
206
|
0 |
0 |
if (/^ctime$/) |
|
209
|
0 |
0 |
if (/^blksize$/) |
|
212
|
0 |
0 |
if (/^blocks$/) |
|
227
|
338 |
676 |
if (/^mode$/) |
|
231
|
0 |
676 |
if (/^uid$/) |
|
235
|
0 |
676 |
if (/^gid$/) |
|
239
|
338 |
338 |
if (/^atime$/) |
|
243
|
338 |
0 |
if (/^mtime$/) |
|
258
|
0 |
10 |
unless defined $type |
|
269
|
0 |
690 |
unless defined $type |
|
272
|
230 |
460 |
if ($type eq 'f') { } |
|
|
460 |
0 |
elsif ($type eq 'd') { } |
|
280
|
0 |
230 |
unless my $fh = 'FileHandle'->new(">$fullpath") |
|
295
|
0 |
460 |
unless -d $fullpath |
|
312
|
0 |
496 |
if $name =~ m[/] |
|
331
|
0 |
496 |
unless UNIVERSAL::isa($to, ref $self) |
|
334
|
0 |
496 |
unless $$to{'fs_root'} eq $$self{'fs_root'} |
|
337
|
0 |
496 |
unless $to->is_valid |
|
340
|
0 |
496 |
unless $to->is_container |
|
343
|
0 |
496 |
if defined $to->child($self->basename) |
|
346
|
62 |
434 |
if ($self->is_container) { } |
|
347
|
62 |
0 |
if ($force) { } |
|
349
|
0 |
62 |
unless File::Copy::Recursive::dircopy($$self{'fullpath'}, $$to{'fullpath'} . '/' . $self->basename) |
|
372
|
0 |
248 |
unless UNIVERSAL::isa($to, ref $self) |
|
375
|
0 |
248 |
unless $$to{'fs_root'} eq $$self{'fs_root'} |
|
378
|
0 |
248 |
unless $to->is_valid |
|
381
|
0 |
248 |
unless $to->is_container |
|
384
|
0 |
248 |
if defined $to->child($self->basename, 'd') |
|
387
|
31 |
217 |
if ($self->is_container) { } |
|
388
|
31 |
0 |
if ($force) { } |
|
390
|
0 |
31 |
unless File::Copy::Recursive::dircopy($$self{'fullpath'}, $$to{'fullpath'} . '/' . $self->basename) |
|
410
|
279 |
217 |
if (-d $$self{'fullpath'} and $force) { } |
|
|
0 |
217 |
elsif (-d $$self{'fullpath'} and $self->has_children) { } |
|
|
0 |
217 |
elsif (-d $$self{'fullpath'}) { } |
|
446
|
0 |
0 |
unless return 'FileHandle'->new($$self{'fullpath'}, $access) |
|
457
|
224 |
672 |
wantarray ? : |
|
463
|
0 |
119 |
unless opendir DH, $$self{'fullpath'} |
|
468
|
87 |
32 |
@dirs ? : |
|
474
|
0 |
4367 |
unless opendir DH, $$self{'fullpath'} |
|
485
|
0 |
746 |
unless opendir DH, $$self{'fullpath'} |
|
488
|
1492 |
990 |
if (/^\.\.?$/) { } |
|
507
|
0 |
788 |
if $name =~ m[/] |
|
512
|
42 |
746 |
if (-e $fullpath) { } |