| line |
true |
false |
branch |
|
117
|
12 |
1 |
ref $_[0] eq 'HASH' ? : |
|
121
|
1 |
12 |
$opts{'follow'} ? : |
|
123
|
0 |
13 |
defined $opts{'recursion_mode'} ? : |
|
124
|
0 |
0 |
if ($recursion_mode ne 'breadth' and $recursion_mode ne 'depth' and $recursion_mode ne 'device') |
|
133
|
0 |
0 |
if ($recursion_mode eq 'device' and !defined($current_dev) || $current_dev != $inode->{'dev'}) |
|
134
|
0 |
0 |
if (defined $current_dev and $current_dev->can('exit_filesystem')) |
|
137
|
0 |
0 |
if (defined $inode->{'dev'} and $inode->{'dev'}->can('enter_filesystem')) |
|
145
|
67 |
47 |
if ($inode->dir) |
|
148
|
0 |
67 |
if ($@) |
|
149
|
0 |
0 |
if ($! == &Errno::ENOENT and $opts{'ignore_missing'}) { } |
|
|
0 |
0 |
elsif ($! == &Errno::EACCES and $opts{'ignore_inaccessible'}) { } |
|
151
|
0 |
0 |
if ref $opts{'ignore_missing'} eq 'CODE' |
|
155
|
0 |
0 |
if ref $opts{'ignore_inaccessible'} eq 'CODE' |
|
162
|
67 |
0 |
if (defined $directory) |
|
164
|
134 |
102 |
if $item eq '.' or $item eq '..' |
|
168
|
1 |
18 |
if ($opts{'follow'} and defined $subnode and $subnode->link) |
|
172
|
0 |
102 |
if (not defined $subnode) { } |
|
|
0 |
102 |
elsif ($recursion_mode eq 'depth' or $recursion_mode eq 'device' and $current_dev == $subnode->{'dev'}) { } |
|
173
|
0 |
0 |
if ($opts{'ignore_inaccessible'}) { } |
|
175
|
0 |
0 |
if ref $opts{'ignore_inaccessible'} eq 'CODE' |