| 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) { } |
|
104
|
0 |
0 |
if ($piece[-1] eq $ARCHNAME) |
|
110
|
0 |
0 |
if ($piece[$i] eq $ARCHNAME and $piece[$i + 1] eq "auto") |
|
116
|
0 |
0 |
unless @module |
|
126
|
0 |
0 |
if (my($fix) = grep({$module_name =~ /^$_$/iu;} @fix_module_name)) { } |
|
138
|
0 |
0 |
if $inc =~ /$ARCHNAME$/ou |
|
140
|
0 |
0 |
if (-d $archlib and not $incs{$archlib}) |
|
152
|
0 |
0 |
if ($CACHE) { } |
|
160
|
0 |
0 |
unless -d $dir |
|
163
|
0 |
0 |
if ($CACHE and $Distribution::Metadata::CACHE->{'install_json_collected'}{$dir}) { } |
|
167
|
0 |
0 |
unless opendir my $dh, $dir |
|
171
|
0 |
0 |
if ($CACHE) |
|
192
|
0 |
0 |
if $name ne $main_module |
|
195
|
0 |
0 |
if ($provide eq $module and ($provides->{$provide}{'version'} || '') eq $version) |
|
212
|
0 |
0 |
if (my($path) = $module_file =~ /$i $SEP (.+)\.pm /ux) |
|
213
|
0 |
0 |
$i =~ /$ARCHNAME$/ou ? : |
|
215
|
0 |
0 |
if -f $try |
|
232
|
0 |
0 |
if ($CACHE) { } |
|
241
|
0 |
0 |
unless opendir my $dh, $dir |
|
243
|
0 |
0 |
if $packlist |
|
250
|
0 |
0 |
if ($CACHE and my $core_packlist = $Distribution::Metadata::CACHE->{'core_packlist'}) |
|
252
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
|
258
|
0 |
0 |
if (my $naive_packlist = $class->_naive_packlist($module_file, $inc)) |
|
260
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
|
267
|
0 |
0 |
if ($CACHE and $Distribution::Metadata::CACHE->{'packlist_collected'}) { } |
|
270
|
0 |
0 |
if (my $core_packlist = $class->_core_packlist($inc)) |
|
272
|
0 |
0 |
if $CACHE |
|
275
|
0 |
0 |
unless -f $_ |
|
276
|
0 |
0 |
unless $_ eq ".packlist" |
|
279
|
0 |
0 |
if ($CACHE) |
|
287
|
0 |
0 |
if (grep {$module_file eq $_;} @$files) |
|
299
|
0 |
0 |
if $abs |
|
315
|
0 |
0 |
unless my $mymeta_json = $self->mymeta_json |
|
320
|
0 |
0 |
unless my $hash = $self->install_json_hash |
|
327
|
0 |
0 |
if exists $self->{$attr} |
|
328
|
0 |
0 |
unless $self->_distnameinfo |