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