X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git;a=blobdiff_plain;f=samples%2Fgenerate.pl;h=456c6598de60ab448c7bcacc4d337c455e2a1382;hp=a8332279be776d6cb1eae2c6cc0eef9a38decfa4;hb=7e4625ac01c53c64b6671e8843629db1cf217112;hpb=698741fb7af41bc3d17b3489201b4ea26109703d

diff --git a/samples/generate.pl b/samples/generate.pl
index a833227..456c659 100644
--- 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;