#!/usr/bin/perl -w
use Test::More 'no_plan';
use File::Find;
find({ no_chdir => 1,
wanted => sub {
return unless /\.pm$/;
(my $mod = $File::Find::name) =~ s{/}{::}g;
$mod =~ s/\.pm$//;
$mod =~ s/lib:://;
use_ok $mod;
}
},
"lib"
);