1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use File::Find::Rule;
use Module::Info;
use Test::More qw( no_plan );
my %versions;
for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in('lib' ) ) {
my $mod = Module::Info->new_from_file($pm_file);
( my $stripped_file = $pm_file ) =~ s{^lib/}{};
$versions{$stripped_file} = $mod->version;
}
my $moose_ver = $versions{'Moose.pm'};
for my $module ( grep { $_ ne 'Moose.pm' } sort keys %versions ) {
is( $versions{$module}, $moose_ver,
"version for $module is the same as in Moose.pm" );
}
|
