metafile.pl

   1 # some versions of EU::MM have problems with recursive Makefile.PLs with
   2 # this method defined.
   3 undef &MY::metafile;
   4
   5 sub MY::metafile {
   6   my ($self) = @_;
   7
   8   my $meta = <<YAML;
   9 --- #YAML:1.0
  10 name: $self->{NAME}
  11 version: $self->{VERSION}
  12 version_from: $self->{VERSION_FROM}
  13 author: $self->{AUTHOR}
  14 abstract: $self->{ABSTRACT}
  15 installdirs: $self->{INSTALLDIRS}
  16 YAML
  17   if (keys %{$Recommends{$self->{NAME}}}) {
  18     $meta .= "recommends:\n";
  19     while (my ($module, $version) = each %{$Recommends{$self->{NAME}}}) {
  20       $meta .= "$module: $version\n";
  21     }
  22   }
  23   $meta .= <<YAML;
  24 license: perl
  25 dynamic_config: 1
  26 distribution_type: module
  27 generated_by: $self->{NAME} version $self->{VERSION}
  28 YAML
  29   open META, "> meta.tmp" or die "Cannot create meta.tmp: $!";
  30   print META $meta;
  31   close META;
  32
  33   return sprintf "metafile :\n\t\$(CP) meta.tmp META.yml\n";
  34 }
  35
  36 1;