| 47 | 47 |
'Test::More' => 0,
|
| 48 | 48 |
'ExtUtils::MakeMaker' => 0,
|
| 49 | 49 |
'File::Spec' => 0,
|
| 50 | |
'List::Util' => 0,
|
| 51 | 50 |
);
|
| 52 | 51 |
|
| 53 | 52 |
$self->zilla->register_prereqs(
|
|
| 197 | 196 |
|
| 198 | 197 |
use ExtUtils::MakeMaker;
|
| 199 | 198 |
use File::Spec;
|
| 200 | |
use List::Util qw/max first/;
|
| 201 | 199 |
|
| 202 | 200 |
# from $version::LAX
|
| 203 | 201 |
my $lax_version_re =
|
|
| 220 | 218 |
# Verify requirements?
|
| 221 | 219 |
my $DO_VERIFY_PREREQS = INSERT_VERIFY_PREREQS_CONFIG;
|
| 222 | 220 |
|
|
221 |
sub _max {
|
|
222 |
my $max = shift;
|
|
223 |
$max = ( $_ > $max ) ? $_ : $max for @_;
|
|
224 |
return $max;
|
|
225 |
}
|
|
226 |
|
| 223 | 227 |
sub _merge_prereqs {
|
| 224 | 228 |
my ($collector, $prereqs) = @_;
|
| 225 | 229 |
|
|
| 266 | 270 |
);
|
| 267 | 271 |
|
| 268 | 272 |
# Add dynamic prereqs to the included modules list (if we can)
|
| 269 | |
my $source = first { -f } 'MYMETA.json', 'MYMETA.yml';
|
|
273 |
my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
|
| 270 | 274 |
if ( $source && $HAS_CPAN_META ) {
|
| 271 | 275 |
if ( my $meta = eval { CPAN::Meta->load_file($source) } ) {
|
| 272 | 276 |
$full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
|
|
| 292 | 296 |
|
| 293 | 297 |
for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
|
| 294 | 298 |
next if $mod eq 'perl';
|
| 295 | |
next if first { $_ eq $mod } @exclude;
|
|
299 |
next if grep { $_ eq $mod } @exclude;
|
| 296 | 300 |
|
| 297 | 301 |
my $file = $mod;
|
| 298 | 302 |
$file =~ s{::}{/}g;
|
| 299 | 303 |
$file .= ".pm";
|
| 300 | |
my $prefix = first { -e File::Spec->catfile($_, $file) } @INC;
|
|
304 |
my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
|
| 301 | 305 |
|
| 302 | 306 |
my $want = $req_hash->{$phase}{$type}{$mod};
|
| 303 | 307 |
$want = "undef" unless defined $want;
|
|
| 331 | 335 |
if ( @reports ) {
|
| 332 | 336 |
push @full_reports, "=== $title ===\n\n";
|
| 333 | 337 |
|
| 334 | |
my $ml = max map { length $_->[0] } @reports;
|
| 335 | |
my $wl = max map { length $_->[1] } @reports;
|
| 336 | |
my $hl = max map { length $_->[2] } @reports;
|
|
338 |
my $ml = _max( map { length $_->[0] } @reports );
|
|
339 |
my $wl = _max( map { length $_->[1] } @reports );
|
|
340 |
my $hl = _max( map { length $_->[2] } @reports );
|
| 337 | 341 |
splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
|
| 338 | 342 |
|
| 339 | 343 |
push @full_reports, map { sprintf(" %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
|