6 use Getopt
::Long
qw(:config bundling nopermute);
11 "v|verbose:1" => \
$opt_v,
12 ) or die "usage: $0 [--check]\n";
15 open my $pm, "<", "V.pm" or die "Cannot read V.pm";
17 m/^our .VERSION\s*=\s*"?([-0-9._]+)"?\s*;\s*$/ or next;
31 use Test
::YAML
::Meta
::Version
;
33 my $yml = join "", @yml;
34 eval { $h = Load
($yml) };
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, "";
40 use Parse
::CPAN
::Meta
;
41 eval { Parse
::CPAN
::Meta
::Load
($yml) };
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");
53 my @my = glob <*/META
.yml
>;
54 @my == 1 && open my $my, ">", $my[0] or die "Cannot update META.yml|n";
57 chmod 0644, glob <*/META
.yml
>;
64 abstract
: Structured data retreival of perl
-V output
67 - H
.Merijn Brand
<h
.m
.brand
@xs4all.nl
>
69 distribution_type
: module
77 ExtUtils
::MakeMaker
: 0
84 license
: http
://dev
.perl
.org
/licenses/
85 repository
: http
://repo
.or.cz
/w/Config
-Perl
-V
.git
88 url
: http
://module
-build
.sourceforge
.net
/META
-spec
-v1
.4
.html