1use vars qw( @modules ); 2 3BEGIN { 4 use Config; 5 use File::Find; 6 use vars qw( @modules ); 7 8 find( sub { push @modules, $File::Find::name if /\.pm$/ }, 'blib/lib' ); 9} 10 11use Test::More tests => scalar @modules; 12 13for ( sort map { s!/!::!g; s/\.pm$//; s/^blib::lib:://; $_ } @modules ) { 14SKIP: 15 { 16 skip "$^X is not a threaded Perl", 1 17 if /Thread/ && !$Config{usethreads}; 18 use_ok($_); 19 } 20} 21 22