sandbox/genMETA.pl

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Getopt::Long qw(:config bundling nopermute);
   7 my $check = 0;
   8 my $opt_v = 0;
   9 GetOptions (
  10     "c|check"           => \$check,
  11     "v|verbose:1"       => \$opt_v,
  12     ) or die "usage: $0 [--check]\n";
  13
  14 my $version;
  15 open my $pm, "<", "Peek.pm" or die "Cannot read Peek.pm";
  16 while (<$pm>) {
  17     m/^.VERSION\s*=\s*"?([-0-9._]+)"?\s*;\s*$/ or next;
  18     $version = $1;
  19     last;
  20     }
  21 close $pm;
  22
  23 my @yml;
  24 while (<DATA>) {
  25     s/VERSION/$version/o;
  26     push @yml, $_;
  27     }
  28
  29 if ($check) {
  30     use YAML::Syck;
  31     use Test::YAML::Meta::Version;
  32     my $h;
  33     my $yml = join "", @yml;
  34     eval { $h = Load ($yml) };
  35     $@ and die "$@\n";
  36     $opt_v and print Dump $h;
  37     my $t = Test::YAML::Meta::Version->new (yaml => $h);
  38     $t->parse () and die join "\n", $t->errors, "";
  39
  40     use Parse::CPAN::Meta;
  41     eval { Parse::CPAN::Meta::Load ($yml) };
  42     $@ and die "$@\n";
  43
  44     print "Checking if 5.006 is still OK as minimal version for examples\n";
  45     use Test::MinimumVersion;
  46     # All other minimum version checks done in xt
  47     all_minimum_version_ok ("5.006", { paths => [ "examples" ]});
  48     }
  49 elsif ($opt_v) {
  50     print @yml;
  51     }
  52 else {
  53     my @my = glob <*/META.yml>;
  54     @my == 1 && open my $my, ">", $my[0] or die "Cannot update META.yml|n";
  55     print $my @yml;
  56     close $my;
  57     chmod 0644, glob <*/META.yml>;
  58     }
  59
  60 __END__
  61 --- #YAML:1.1
  62 name:              Data::Peek
  63 version:           VERSION
  64 abstract:          Modified and extended debugging facilities
  65 license:           perl
  66 author:
  67     - H.Merijn Brand <h.merijn@xs4all.nl>
  68 generated_by:      Author
  69 distribution_type: module
  70 provides:
  71     Data::Peek:
  72         file:      Peek.pm
  73         version:   VERSION
  74 requires:
  75     perl:          5.006
  76     DynaLoader:    0
  77 build_requires:
  78     perl:          5.006
  79     Data::Dumper:  0
  80     Test::Harness: 0
  81     Test::More:    0
  82 resources:
  83     license:       http://dev.perl.org/licenses/
  84 meta-spec:
  85     version:       1.4
  86     url:           http://module-build.sourceforge.net/META-spec-v1.4.html