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 use lib "sandbox";
  15 use genMETA;
  16 my $meta = genMETA->new (
  17     from    => "V.pm",
  18     verbose => $opt_v,
  19     );
  20
  21 $meta->from_data (<DATA>);
  22
  23 if ($check) {
  24     $meta->check_encoding ();
  25     $meta->check_required ();
  26     $meta->check_minimum ();
  27     }
  28 elsif ($opt_v) {
  29     $meta->print_yaml ();
  30     }
  31 else {
  32     $meta->fix_meta ();
  33     }
  34
  35 __END__
  36 --- #YAML:1.0
  37 name:                    Config-Perl-V
  38 version:                 VERSION
  39 abstract:                Structured data retrieval of perl -V output
  40 license:                 perl
  41 author:
  42     - H.Merijn Brand <h.m.brand@xs4all.nl>
  43 generated_by:            Author
  44 distribution_type:       module
  45 provides:
  46     Config::Perl::V:
  47         file:            V.pm
  48         version:         VERSION
  49 requires:
  50     perl:                5.006
  51     Config:              0
  52 recommends:
  53     perl:                5.014001
  54 configure_requires:
  55     ExtUtils::MakeMaker: 0
  56 build_requires:
  57     perl:                5.006
  58 test_requires:
  59     Test::More:          0
  60     Test::NoWarnings:    0
  61 resources:
  62     license:             http://dev.perl.org/licenses/
  63     repository:          http://repo.or.cz/w/Config-Perl-V.git
  64 meta-spec:
  65     version:             1.4
  66     url:                 http://module-build.sourceforge.net/META-spec-v1.4.html