| line |
true |
false |
branch |
|
23
|
1 |
0 |
unless ref $$self{'path'} |
|
32
|
3 |
1 |
if $$self{'cur_dir'} |
|
36
|
0 |
4 |
unless opendir $$self{'dir_fh'}, $$self{'cur_dir'} |
|
42
|
0 |
3 |
unless defined $file |
|
44
|
0 |
3 |
unless defined $$self{'category_hash'}{$file} |
|
45
|
0 |
3 |
unless $$self{'category_hash'}{$file} |
|
59
|
1 |
9 |
if (not defined $file) { } |
|
|
2 |
7 |
elsif ($file eq '.' or $file eq '..') { } |
|
|
0 |
7 |
elsif (-d (my $path = 'File::Spec'->catdir($$self{'cur_dir'}, $file))) { } |
|
60
|
1 |
0 |
unless @{$$self{'path'};} |
|
67
|
0 |
0 |
if $$self{'recurse'} and not grep({$_ eq $path;} @{$$self{'path'};}, @{$$self{'used'};}) |
|
83
|
1 |
1 |
if defined $$self{'document_count'} |