1use vars qw( @modules );
2
3BEGIN {
4 use File::Find;
5 use vars qw( @modules );
6
7 find( sub { push @modules, $File::Find::name if /\.pm$/ }, 'blib/lib' );
8}
9
10use Test::More tests => scalar @modules;
11
12use_ok($_) for sort map { s!/!::!g; s/\.pm$//; s/^blib::lib:://; $_ } @modules;
13
14