| 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 |