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    => "Peek.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 ([ "examples" ]);
  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:                    Data-Peek
  38 version:                 VERSION
  39 abstract:                Modified and extended debugging facilities
  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     Data::Peek:
  47         file:            Peek.pm
  48         version:         VERSION
  49 requires:
  50     perl:                5.008
  51     DynaLoader:          0
  52     Data::Dumper:        0
  53 configure_requires:
  54     ExtUtils::MakeMaker: 0
  55 build_requires:
  56     perl:                5.008
  57 test_requires:
  58     Test::Harness:       0
  59     Test::More:          0.88
  60     Test::NoWarnings:    0
  61 recommends:
  62     perl:                5.016000
  63     Perl::Tidy:          0
  64     Test::More:          0.98
  65 resources:
  66     license:             http://dev.perl.org/licenses/
  67     repository:          http://repo.or.cz/w/Data-Peek.git
  68 meta-spec:
  69     version:             1.4
  70     url:                 http://module-build.sourceforge.net/META-spec-v1.4.html