| line |
true |
false |
branch |
|
109
|
0 |
1 |
unless my $path = shift() |
|
118
|
1 |
0 |
unless ($param{'no_path'}) |
|
123
|
1 |
0 |
wantarray ? : |
|
150
|
0 |
2 |
unless my $path = shift() |
|
159
|
0 |
2 |
if ($param{'no_path'}) |
|
163
|
2 |
0 |
wantarray ? : |
|
168
|
0 |
24 |
unless my $path = shift() |
|
175
|
310 |
24 |
if $_ ne '.' |
|
182
|
22 |
264 |
if (-d $d) |
|
212
|
0 |
1 |
unless my $path = shift() |
|
225
|
1 |
0 |
wantarray ? : |
|
232
|
0 |
25 |
unless my $path = shift() |
|
240
|
0 |
25 |
if ($files[0] =~ /^\.\.?$/) |
|
241
|
0 |
25 |
if ($files[0] =~ /^\.\.?$/) |
|
244
|
25 |
0 |
wantarray ? : |
|
257
|
0 |
3 |
if ($$p1{'only_folder'}) |
|
258
|
0 |
3 |
if ($$p1{'only_folders'}) |
|
259
|
0 |
3 |
if ($$p1{'only_dir'}) |
|
260
|
0 |
3 |
if ($$p1{'only_dirs'}) |
|
261
|
0 |
3 |
if ($$p1{'only_directories'}) |
|
263
|
0 |
3 |
if ($$p1{'only_files'}) |
|
281
|
24 |
286 |
if ($path) { } |
|
288
|
0 |
310 |
if ($$param{'no_files'} ne '' and not $chkf_d) |
|
293
|
35 |
275 |
if ($chkf_d) |
|
295
|
0 |
35 |
if ($$param{'no_dir'}) |
|
296
|
0 |
35 |
if ($$param{'no_dirs'}) |
|
297
|
0 |
35 |
if ($$param{'no_directories'}) |
|
298
|
0 |
35 |
if ($$param{'no_folder'}) |
|
299
|
0 |
35 |
if ($$param{'no_folders'}) |
|
301
|
0 |
35 |
unless ($ok) |
|
310
|
0 |
310 |
if ($$param{'no_hidden'} || $$param{'no_hidden_files'} and index($f, '.') == 0) |
|
317
|
0 |
310 |
if (exists $$param{'ext'}) |
|
319
|
0 |
0 |
if ($f =~ /\.$ext$/i) { } |
|
358
|
0 |
143 |
unless my $path = shift() |
|
359
|
0 |
143 |
unless my $file_ref = shift() |