#!/usr/bin/perl
use
strict;
use
IO::All;
use
Zilla::Dist;
my
$meta
= Zilla::Dist->get_meta;
my
$version
=
$meta
->{
'=zild'
}{version} ||
$meta
->{version} ||
die
"Can't determine 'version' from 'Meta' file"
;
for
my
$module
(io->dir(
'lib'
)->All_Files) {
next
unless
"$module"
=~ /\.pm$/;
my
$code
=
$module
->all;
my
$new
=
$code
;
my
$s
=
'[\ \t]'
;
$new
=~ s/^((?:
our
$s
)?
$s
*\$[\w\:]
*VERSION
$s
*=
$s
*)([
'"]).*?(['
"])(.*);/$1$2
$version
$3$4;/gm;
if
(
$new
ne
$code
) {
"Module '$module' changed version to '$version'.\n"
;
$module
->
(
$new
);
}
}