| line |
!l |
l&&!r |
l&&r |
condition |
|
77
|
0 |
0 |
0 |
defined $mergefile and -r $mergefile |
|
91
|
0 |
0 |
0 |
$mergedata->{'license'} and @{$mergedata->{'license'};} == 1 |
|
94
|
0 |
0 |
0 |
$mergedata->{'meta-spec'} && $mergedata->{'meta-spec'}{'version'} |
|
125
|
0 |
0 |
0 |
@content and $content[-1] =~ / ^ (?: \S | \s* $ ) /ux |
|
168
|
0 |
0 |
0 |
-f $_ and /\.pm$/u |
|
170
|
0 |
0 |
0 |
-f $_ and /\.(t|pm)$/u |
|
181
|
0 |
0 |
0 |
-f $_ and /\.pl$/u |
|
241
|
0 |
0 |
0 |
-e $podname && 'Module::Metadata'->new_from_file($podname, 'collect_pod', 1, 'decode_pod', 1) |
|
245
|
0 |
0 |
0 |
!%{$opts{'regenerate'} // {};} && uptodate('META.json', 'cpanfile', 'prereqs.json', 'prereqs.yml', $mergefile) |
|
325
|
0 |
0 |
0 |
not $opts{'regenerate'}{'MANIFEST'} and -r "MANIFEST" |
|
470
|
0 |
0 |
0 |
$ret &&= !system(@{$command;}) |
|
476
|
0 |
0 |
0 |
$ret &&= !system(@{$command;}) |
|
494
|
0 |
0 |
0 |
$self->release_status eq 'testing' && !($self->version =~ /_/u) |
| line |
l |
!l |
condition |
|
41
|
0 |
0 |
($meta->effective_prereqs->requirements_for($phase, $type)->requirements_for_module($module) // $default) // 0 |
|
198
|
0 |
0 |
$opts{'omit'} // [] |
|
235
|
0 |
0 |
load_mergedata($mergefile) // {} |
|
242
|
0 |
0 |
($pod_data->pod("AUTHOR") // $pod_data->pod("AUTHORS")) // "" |
|
249
|
0 |
0 |
$pod_data->pod("NAME") // "" |
|
250
|
0 |
0 |
$data->version($data->name) // die("Cannot parse \$VERSION from $filename") |
|
257
|
0 |
0 |
$prereqs->{'configure'}{'requires'}{'Dist::Build'} //= "0.003" |
|
287
|
0 |
0 |
$version //= 0 |
|
299
|
0 |
0 |
$metahash->{'prereqs'}{'configure'}{'requires'}{'CPAN::Requirements::Dynamic'} //= "0.002" |
|
463
|
0 |
0 |
$opts{'allow_failure'} or die "Could not run Build.PL" |
|
464
|
0 |
0 |
$opts{'allow_failure'} or die "Could not run Build" |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
41
|
0 |
0 |
0 |
$meta->effective_prereqs->requirements_for($phase, $type)->requirements_for_module($module) // $default |
|
234
|
0 |
0 |
0 |
$opts{'mergefile'} // (grep {-f $_;} "metamerge.json", "metamerge.yml")[0] |
|
241
|
0 |
0 |
0 |
-e $podname && 'Module::Metadata'->new_from_file($podname, 'collect_pod', 1, 'decode_pod', 1) // $data |
|
242
|
0 |
0 |
0 |
$pod_data->pod("AUTHOR") // $pod_data->pod("AUTHORS") |
|
255
|
0 |
0 |
0 |
$prereqs->{'configure'}{'requires'}{'Module::Build::Tiny'} //= mbt_version() |
|
259
|
0 |
0 |
0 |
$prereqs->{'develop'}{'requires'}{'App::ModuleBuildTiny'} //= $VERSION |
|
270
|
0 |
0 |
0 |
$opts{'trial'} // $version =~ /_/u |
|
320
|
0 |
0 |
0 |
$metahash->{'provides'} //= $provides |
|
336
|
0 |
0 |
0 |
$files{'Build.PL'} //= do {
my $minimum_perl = prereqs_for($meta, ("runtime", "requires", "perl", "5.008"));
my $header = "# This Build.PL for $dist_name was generated by mbtiny $VERSION.";
if ($mode eq "MBT") {
my $minimum_mbt = prereqs_for($meta, ("configure", "requires", "Module::Build::Tiny"));
"$header\nuse $minimum_perl;\nuse Module::Build::Tiny $minimum_mbt;\nBuild_PL();\n";
}
else {
my $minimum_db = prereqs_for($meta, ("configure", "requires", "Dist::Build"));
"$header\nuse $minimum_perl;\nuse Dist::Build $minimum_db;\nBuild_PL(\\\@ARGV, \\%ENV);\n";
}
} |
|
349
|
0 |
0 |
0 |
$files{'META.json'} //= $meta->as_string |
|
350
|
0 |
0 |
0 |
$files{'META.yml'} //= $meta->as_string({"version", "1.4"}) |
|
352
|
0 |
0 |
0 |
$files{'LICENSE'} //= $license->fulltext |
|
353
|
0 |
0 |
0 |
$files{'README'} //= generate_readme($dist_name) |
|
360
|
0 |
0 |
0 |
$files{'MANIFEST'} //= join("", map({"$_\n";} sort(keys %files))) |