| line |
true |
false |
branch |
|
30
|
0 |
6 |
if (scalar @path) |
|
38
|
7 |
9 |
unless -d $dir |
|
55
|
8 |
0 |
unless ($is_regexp) |
|
59
|
0 |
8 |
unless opendir DH, $path |
|
62
|
16 |
8 |
if $file_name =~ /^\.+$/ |
|
64
|
0 |
8 |
if $filter ne '\\.$' and not $file_name =~ /$filter/i |
|
68
|
0 |
8 |
unless -e $file |
|
83
|
3 |
2 |
if -f $path |
|
85
|
2 |
3 |
if -d $path |
|
98
|
2 |
8 |
if (@_) |
|
104
|
0 |
10 |
unless opendir DH, $path |
|
109
|
20 |
15 |
if $file_name eq $FS->curdir or $file_name eq $FS->updir |
|
114
|
13 |
2 |
if $flag eq 'for_files_only' and -f $file or $flag ne 'for_files_only' |
|
117
|
11 |
4 |
if $return or $flag eq 'ignoring_return' |
|
124
|
6 |
5 |
if ($file->type eq 'dir') { } |
|
|
5 |
0 |
elsif ($file->type eq 'file') { } |
|
142
|
0 |
0 |
if (ref $handler eq 'CODE') |
|
143
|
0 |
0 |
unless &$handler($file) |
|
146
|
0 |
0 |
if ($file->type eq 'dir') |
|
168
|
0 |
0 |
if ($file->type eq 'dir') |
|
182
|
2 |
1 |
if (-e $$self{'path'}) { } |
|
184
|
2 |
0 |
if (-d _) { } |
|
188
|
0 |
2 |
unless utime $t, $t, $$self{'path'} |
|
198
|
0 |
1 |
unless mkdir $$self{'path'} |