#!/usr/bin/perl
use strict;
use IO::All;
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) {
print "Module '$module' changed version to '$version'.\n";
$module->print($new);
}
}