12 for my $pm_file ( File::Find::Rule->file->name( qr/\.pm$/ )->in(File::Spec->catdir($Bin, '..', '..', 'lib') ) ) {
13 my $mod = Module::Info->new_from_file($pm_file);
15 ( my $stripped_file = $pm_file ) =~ s{.*lib/}{};
17 $versions{$stripped_file} = $mod->version;
20 my $ver = delete $versions{'Catalyst/Devel.pm'};
22 ok scalar(keys %versions);
24 for my $module ( sort keys %versions ) {
25 next unless $versions{$module};
27 is( $versions{$module}, $ver,
28 "version for $module is the same as in Catalyst/Devel.pm" );