use strict;
use warnings;
use Test::More tests => 1;
use File::Find qw(find);
my @files;
find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');
for my $m (sort @files) {
$m =~ s|[\\/]|::|g;
$m =~ s|^lib::||;
$m =~ s|\.pm$||;
eval "use $m; 1;" or die "ERROR: 'use $m' failed";
}
ok 1, 'all done';