| line |
true |
false |
branch |
|
153
|
0 |
8 |
if ($trivial_syntax) { } |
|
160
|
0 |
8 |
unless $prefix =~ /\A(?:$root_notleaf_rx::
(?:$notroot_notleaf_rx::)*)?\z/x and not $prefix =~ /(?:\A|[^:]::)\.\.?::/ |
|
168
|
2 |
1 |
unless $list_modules or $list_prefixes or $list_pod |
|
177
|
3 |
3 |
$prefix eq '' ? : |
|
181
|
3 |
3 |
$prefix eq '' ? : |
|
185
|
16 |
32 |
unless my $dh = "IO::Dir"->new($dir) |
|
188
|
24 |
8 |
if ($list_modules) |
|
191
|
240 |
1164 |
if ($entry =~ /$pmish_rx/) |
|
193
|
12 |
228 |
if ($return_path) { } |
|
198
|
10 |
2 |
unless exists $results{$name}{'module_path'} |
|
206
|
0 |
32 |
if ($list_pod) |
|
208
|
0 |
0 |
if ($use_pod_dir) |
|
211
|
0 |
0 |
if ($pdh) |
|
219
|
0 |
0 |
if ($entry =~ /$pod_rx/) |
|
221
|
0 |
0 |
if ($return_path) { } |
|
225
|
0 |
0 |
unless exists $results{$name}{'pod_path'} |
|
233
|
24 |
8 |
if ($list_prefixes or $recurse) |
|
235
|
352 |
302 |
if ("File::Spec"->no_upwards($entry) and $entry =~ /$dir_rx/ and -d "File::Spec"->catdir($dir, $entry)) |
|
238
|
0 |
352 |
if ($recurse and not exists $seen_prefixes{$newpfx}) |
|
242
|
352 |
0 |
if ($list_prefixes) |
|
243
|
3 |
349 |
if ($return_path) { } |