- added version/level to the API function table structure
[imager.git] / 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;