| line |
true |
false |
branch |
|
70
|
0 |
0 |
unless defined $filename and length $filename |
|
71
|
0 |
0 |
if $filename =~ m[/] |
|
72
|
0 |
0 |
if $filename eq '..' |
|
73
|
0 |
0 |
if $filename eq '.' |
|
78
|
0 |
0 |
if (-d _) |
|
83
|
0 |
0 |
if (-e _) |
|
128
|
0 |
0 |
if ($wildcard) |
|
134
|
0 |
0 |
unless my $dir = 'IO::Dir'->new($self->{'_pathname'}) |
|
141
|
0 |
0 |
if $file eq '.' or $file eq '..' |
|
142
|
0 |
0 |
if $wildcard and not $file =~ /$wildcard/ |
|
154
|
0 |
0 |
if (my $handle = $self->get($file)) |
|
231
|
0 |
0 |
unless defined $dev |
|
242
|
0 |
0 |
-c _ ? : |
|
|
0 |
0 |
-b _ ? : |
|
|
0 |
0 |
-S _ ? : |
|
|
0 |
0 |
-p _ ? : |
|
|
0 |
0 |
-l _ ? : |
|
|
0 |
0 |
-d _ ? : |
|
|
0 |
0 |
-f _ ? : |
|
275
|
0 |
0 |
if $filename =~ m[/] |
|
279
|
0 |
0 |
unless rename $self->{'_pathname'}, $new_name |
|
304
|
0 |
0 |
if $path ne '/' |
|
305
|
0 |
0 |
unless rmdir $path |
|
322
|
0 |
0 |
if $name =~ m[/] |
|
324
|
0 |
0 |
unless CORE::mkdir $self->{'_pathname'} . $name, 493 |
|
343
|
0 |
0 |
if $filename =~ m[/] |