| line |
true |
false |
branch |
|
53
|
0 |
4 |
unless $dir |
|
56
|
0 |
4 |
if (defined $Cache{$$self{'Directory'}}) |
|
57
|
0 |
0 |
if $ENV{'DIR_DEBUG'} |
|
61
|
0 |
4 |
if -f $dir |
|
64
|
0 |
4 |
if ($p{'Create'}) |
|
68
|
0 |
4 |
if -f $self->path |
|
83
|
0 |
0 |
unless $path |
|
84
|
0 |
0 |
unless $isfile |
|
86
|
0 |
0 |
if (defined $data) { } |
|
87
|
0 |
0 |
unless (-d $parent) |
|
91
|
0 |
0 |
unless defined $file |
|
131
|
2 |
0 |
unless $p{'Create'} |
|
132
|
2 |
0 |
if $isfile |
|
145
|
0 |
0 |
if ($isfile) { } |
|
147
|
0 |
0 |
if ($file) |
|
166
|
0 |
6 |
$p{'File'} && !$p{'Directory'} ? : |
|
167
|
0 |
6 |
unless $path |
|
169
|
2 |
4 |
unless ($p{'Parents'}) |
|
170
|
0 |
2 |
unless $self->path |
|
176
|
2 |
4 |
if ($p{'CreateFile'} or -f $path) |
|
181
|
0 |
6 |
if $p{'Elements'} |
|
183
|
4 |
2 |
unless $p{'File'} |
|
185
|
0 |
6 |
if $1 and $ENV{'DIR_DEBUG'} |
|
189
|
2 |
4 |
if ($p{'File'}) { } |
|
191
|
2 |
0 |
$dir ? : |
|
208
|
0 |
0 |
if ($isfile) { } |
|
|
0 |
0 |
elsif ($file) { } |
|
214
|
0 |
0 |
if $ENV{'DIR_DEBUG'} |
|
250
|
2 |
0 |
if ($data) { } |
|
251
|
0 |
2 |
if $ENV{'DIR_DEBUG'} |
|
254
|
0 |
0 |
if $ENV{'DIR_DEBUG'} |
|
267
|
0 |
2 |
if ($$self{'Cache'}{$filename}) { } |
|
268
|
0 |
0 |
if $ENV{'DIR_DEBUG'} |
|
272
|
0 |
2 |
if $ENV{'DIR_DEBUG'} |
|
297
|
0 |
0 |
unless $$self{'Name'} |
|
311
|
0 |
0 |
$newdir =~ m[^/] ? : |
|
315
|
0 |
0 |
if ($dir and not -d $path . $dir) { } |
|
317
|
0 |
0 |
if $ENV{'DIR_DEBUG'} |
|
318
|
0 |
0 |
if (mkdir $path . $dir) { } |
|
322
|
0 |
0 |
if $ENV{'DIR_DEBUG'} |
|
342
|
0 |
0 |
unless $path |
|
343
|
0 |
0 |
unless ($path =~ m[^/]) |
|
351
|
0 |
0 |
if (-d $path) { } |
|
352
|
0 |
0 |
if (rmdir $path) { } |
|
380
|
0 |
0 |
unless $path |
|
381
|
0 |
0 |
defined $$elements{$1} ? : |
|
393
|
14 |
0 |
-d $self->path ? : |
|
405
|
0 |
0 |
if ($self->path =~ m[^(.+)/[^/]+?/$]) |
|
424
|
0 |
0 |
unless opendir LISTDIR, $self->path |
|
426
|
0 |
0 |
if ($dir ne '.' and $dir ne '..') |
|
427
|
0 |
0 |
if $p{'Text'} |
|
500
|
14 |
4 |
if $package ne ref $self |