| 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
|
28 |
44 |
unless my $dh = 'IO::Dir'->new($dir)
|
|
188
|
32 |
12 |
if ($list_modules)
|
|
191
|
236 |
1388 |
if ($entry =~ /$pmish_rx/)
|
|
193
|
12 |
224 |
if ($return_path) { }
|
|
198
|
10 |
2 |
unless exists $results{$name}{'module_path'}
|
|
206
|
0 |
44 |
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
|
32 |
12 |
if ($list_prefixes or $recurse)
|
|
235
|
430 |
318 |
if ('File::Spec'->no_upwards($entry) and $entry =~ /$dir_rx/ and -d 'File::Spec'->catdir($dir, $entry))
|
|
238
|
0 |
430 |
if ($recurse and not exists $seen_prefixes{$newpfx})
|
|
242
|
430 |
0 |
if ($list_prefixes)
|
|
243
|
5 |
425 |
if ($return_path) { }
|