| line |
true |
false |
branch |
|
39
|
0 |
8 |
if $option{'fill_archlib'} |
|
42
|
2 |
6 |
$module->{'file'} ? : |
|
45
|
4 |
4 |
unless $metadata |
|
52
|
4 |
0 |
if ($packlist) { } |
|
60
|
4 |
0 |
if ($main_module) { } |
|
62
|
4 |
0 |
if ($main_module eq 'perl') |
|
82
|
0 |
0 |
if ($main_metadata) { } |
|
106
|
4 |
0 |
if ($piece[-1] eq $ARCHNAME) |
|
112
|
0 |
0 |
if ($piece[$i] eq $ARCHNAME and $piece[$i + 1] eq 'auto') |
|
118
|
0 |
0 |
unless @module |
|
129
|
0 |
0 |
if (my($fix) = grep({$module_name =~ /^$_$/i;} @fix_module_name)) { } |
|
142
|
6 |
24 |
if $inc =~ /$ARCHNAME$/o |
|
144
|
0 |
24 |
if (-d $archlib and not $incs{$archlib}) |
|
158
|
0 |
0 |
if ($CACHE) { } |
|
166
|
0 |
0 |
unless -d $dir |
|
169
|
0 |
0 |
if ($CACHE and $Distribution::Metadata::CACHE->{'install_json_collected'}{$dir}) { } |
|
173
|
0 |
0 |
unless opendir my $dh, $dir |
|
177
|
0 |
0 |
if ($CACHE) |
|
198
|
0 |
0 |
if $name ne $main_module |
|
201
|
0 |
0 |
if ($provide eq $module and ($provides->{$provide}{'version'} || '') eq $version) |
|
219
|
3 |
27 |
if (my($path) = $module_file =~ /$i $SEP (.+)\.pm /x) |
|
220
|
0 |
3 |
$i =~ /$ARCHNAME$/o ? : |
|
222
|
0 |
3 |
if -f $try |
|
241
|
2 |
2 |
if ($CACHE) { } |
|
251
|
0 |
27 |
unless opendir my $dh, $dir |
|
253
|
3 |
24 |
if $packlist |
|
261
|
1 |
3 |
if ($CACHE and my $core_packlist = $Distribution::Metadata::CACHE->{'core_packlist'}) |
|
263
|
1 |
0 |
if (grep {$module_file eq $_;} @$files) |
|
269
|
0 |
3 |
if (my $naive_packlist = $class->_naive_packlist($module_file, $inc)) |
|
271
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
|
278
|
0 |
3 |
if ($CACHE and $Distribution::Metadata::CACHE->{'packlist_collected'}) { } |
|
281
|
3 |
0 |
if (my $core_packlist = $class->_core_packlist($inc)) |
|
283
|
1 |
2 |
if $CACHE |
|
286
|
549 |
600 |
unless -f $_ |
|
287
|
423 |
177 |
unless $_ eq '.packlist' |
|
290
|
1 |
2 |
if ($CACHE) |
|
298
|
3 |
0 |
if (grep {$module_file eq $_;} @$files) |
|
311
|
60 |
0 |
if $abs |
|
328
|
2 |
0 |
unless my $mymeta_json = $self->mymeta_json |
|
334
|
0 |
0 |
unless my $hash = $self->install_json_hash |
|
342
|
6 |
0 |
if exists $self->{$attr} |
|
343
|
0 |
0 |
unless $self->_distnameinfo |