line |
true |
false |
branch |
38
|
0 |
0 |
if $option{'fill_archlib'} |
41
|
0 |
0 |
$module->{'file'} ? : |
44
|
0 |
0 |
unless $metadata |
51
|
0 |
0 |
if ($packlist) { } |
59
|
0 |
0 |
if ($main_module) { } |
61
|
0 |
0 |
if ($main_module eq "perl") |
81
|
0 |
0 |
if ($main_metadata) { } |
105
|
0 |
0 |
if ($piece[-1] eq $ARCHNAME) |
111
|
0 |
0 |
if ($piece[$i] eq $ARCHNAME and $piece[$i + 1] eq "auto") |
117
|
0 |
0 |
unless @module |
128
|
0 |
0 |
if (my($fix) = grep({$module_name =~ /^$_$/iu;} @fix_module_name)) { } |
141
|
0 |
0 |
if $inc =~ /$ARCHNAME$/ou |
143
|
0 |
0 |
if (-d $archlib and not $incs{$archlib}) |
157
|
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
|
0 |
0 |
if (my($path) = $module_file =~ /$i $SEP (.+)\.pm /ux) |
220
|
0 |
0 |
$i =~ /$ARCHNAME$/ou ? : |
222
|
0 |
0 |
if -f $try |
241
|
0 |
0 |
if ($CACHE) { } |
251
|
0 |
0 |
unless opendir my $dh, $dir |
253
|
0 |
0 |
if $packlist |
261
|
0 |
0 |
if ($CACHE and my $core_packlist = $Distribution::Metadata::CACHE->{'core_packlist'}) |
263
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
269
|
0 |
0 |
if (my $naive_packlist = $class->_naive_packlist($module_file, $inc)) |
271
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
278
|
0 |
0 |
if ($CACHE and $Distribution::Metadata::CACHE->{'packlist_collected'}) { } |
281
|
0 |
0 |
if (my $core_packlist = $class->_core_packlist($inc)) |
283
|
0 |
0 |
if $CACHE |
286
|
0 |
0 |
unless -f $_ |
287
|
0 |
0 |
unless $_ eq ".packlist" |
290
|
0 |
0 |
if ($CACHE) |
298
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
311
|
0 |
0 |
if $abs |
328
|
0 |
0 |
unless my $mymeta_json = $self->mymeta_json |
334
|
0 |
0 |
unless my $hash = $self->install_json_hash |
342
|
0 |
0 |
if exists $self->{$attr} |
343
|
0 |
0 |
unless $self->_distnameinfo |