| line |
true |
false |
branch |
|
104
|
0 |
23 |
if @_ % 2 |
|
123
|
2 |
23 |
if exists $$self{'_module_infos'} |
|
128
|
0 |
36 |
unless -d $dir |
|
130
|
25 |
11 |
if (my(@globs) = $self->_glob_parse($nglob)) { } |
|
133
|
0 |
25 |
unless chdir $dir |
|
139
|
13 |
35 |
unless -e $modpath |
|
157
|
0 |
25 |
unless chdir $ret_dir |
|
162
|
6 |
77 |
if $modpath eq $part |
|
164
|
24 |
53 |
unless /\.pmc?$/ |
|
176
|
0 |
11 |
unless -e $search_in |
|
197
|
4 |
19 |
if (defined $name) |
|
202
|
5 |
18 |
unless ($paths) |
|
203
|
1 |
4 |
$name ? : |
|
216
|
31 |
24 |
if (-d 'File::Spec'->catdir($dir, $pathdir)) |
|
217
|
8 |
23 |
$name ? : |
|
241
|
0 |
46 |
unless defined $glob and length $glob |
|
242
|
12 |
34 |
if $glob eq '/' |
|
243
|
9 |
25 |
if $glob =~ /\.pm$/ |
|
245
|
18 |
7 |
if ($parts[-1] ne '') { } |
|
246
|
0 |
18 |
unless $parts[-1] eq '+' |
|
252
|
14 |
11 |
if 1 == @parts |
|
257
|
20 |
8 |
if ($part eq '+') { } |
|
|
8 |
0 |
elsif ($part eq '-') { } |
|
284
|
21 |
2 |
if (my $dirs = $$self{'dirs'}) { } |
|
285
|
0 |
21 |
unless (ref $dirs || '') eq 'ARRAY' |
|
288
|
0 |
35 |
exists $seen{$_} ? : |
|
354
|
0 |
0 |
unless exists $infos{$module} |
|
370
|
0 |
0 |
unless exists $infos{$module} |