| line |
true |
false |
branch |
|
127
|
1 |
2 |
if @Module::Find::ModuleDirs |
|
132
|
0 |
3 |
if $@ |
|
152
|
1 |
4 |
if @Module::Find::ModuleDirs |
|
157
|
0 |
9 |
if $@ |
|
167
|
22 |
49 |
unless $name and $name ne 'File::Spec'->curdir and substr($name, 0, 1) ne '.' |
|
169
|
9 |
10 |
if (-d $_ and $prune) |
|
174
|
10 |
30 |
unless /\.pm$/ |
|
187
|
0 |
27 |
unless defined $category |
|
193
|
7 |
20 |
@Module::Find::ModuleDirs ? : |
|
194
|
1 |
210 |
if (ref $inc) { } |
|
195
|
1 |
0 |
if (my(@files) = eval {
do {
$inc->files
}
}) |
|
197
|
1 |
0 |
s/^\Q$category\E::// ? : |
|
206
|
188 |
22 |
unless -d $basedir |
|
220
|
0 |
29 |
unless ($_ =~ /^(\w+(?:(?:::|')\w+)*)$/)[0] |