The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;
use File::Find;

my %skip = map {($_, 1)} qw{};

my @modules = ();
File::Find::find(sub {
    return unless -f $_ and $_ =~ /\.pm$/;
    my $module = $File::Find::name;
    $module =~ s!lib[\/\\](.*)\.pm$!$1!;
    $module =~ s!/+!::!g;
    return if $skip{$module};
    push @modules, $module;
}, 'lib');

plan tests => scalar(@modules);

for my $module (sort @modules) {
    use_ok $module;
}