| line |
true |
false |
branch |
|
13
|
4 |
3 |
if (ref $queue[-1] eq 'HASH') |
|
26
|
7 |
35 |
unless @queue |
|
33
|
5 |
30 |
if (-l $path) |
|
34
|
3 |
2 |
if (ref $args{'symlink_handler'} eq 'CODE') { } |
|
35
|
3 |
0 |
exists $args{'initial'}{$path} ? : |
|
38
|
2 |
1 |
if (defined $symlink_traverse and $symlink_traverse) { } |
|
39
|
1 |
1 |
if ($symlink_traverse == 2) |
|
40
|
1 |
0 |
if $is_initial |
|
43
|
1 |
0 |
if $is_initial |
|
55
|
16 |
16 |
if (-d $path) |
|
56
|
16 |
0 |
if (opendir DIR, $path) { } |
|
57
|
44 |
16 |
if $_ ne '.' |
|
60
|
8 |
8 |
if (@dir_contents) |
|
61
|
2 |
6 |
if (ref $args{'readdir_handler'} eq 'CODE') { } |
|
77
|
0 |
0 |
if $args{'stop_when_opendir_fails'} |