Don't require build/test 'recommends' dependencies

[perl/modules/Task-Devel-Cover-Recommended.git] / samples / generate.pl

diff --git a/samples/generate.pl b/samples/generate.pl
index a8332279be776d6cb1eae2c6cc0eef9a38decfa4..456c6598de60ab448c7bcacc4d337c455e2a1382 100644 (file)
--- a/samples/generate.pl
+++ b/samples/generate.pl
@@ -95,6 +95,13 @@ my %eumm_phases = (
  build     => [ qw<build test> ],
  run       => [ qw<runtime>    ],
 );
+my %meta_phase_relationships = (
+ configure => [ qw<requires>                     ],
+ build     => [ qw<requires>                     ],
+ test      => [ qw<requires>                     ],
+ runtime   => [ qw<requires recommends suggests> ],
+);
+
 my %prereqs = (
  configure => {
   'ExtUtils::MakeMaker' => '0',
@@ -112,7 +119,7 @@ for my $eumm_phase (keys %eumm_phases) {
 
  for my $meta_phase (@{$eumm_phases{$eumm_phase}}) {
 
-  for my $type (qw<requires recommends suggests>) {
+  for my $type (@{$meta_phase_relationships{$meta_phase}}) {
    my $phase_prereqs = $meta->{prereqs}{$meta_phase}{$type};
    next unless $phase_prereqs;