use strict; use Test; my @packages = map { s/\.pm$//; s/^.+?\///; "Statistics::Basic::$_" } ; plan tests => int @packages; for my $p (@packages) { eval "use $p"; ok($@, ""); }