1use Test::More tests => 5; 2 3use Module::Find; 4 5use lib qw(./test); 6 7my @l; 8 9@l = useall ModuleFindTest; 10 11ok($#l == 1); 12ok($l[0] eq 'ModuleFindTest::SubMod'); 13ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod'); 14ok($ModuleFindTest::SubMod::loaded); 15ok($ModuleFindTest::SubMod::SubSubMod::loaded); 16 17package ModuleFindTest::SubMod; 18 19$ModuleFindTest::SubMod::loaded = 0; 20 21package ModuleFindTest::SubSubMod; 22 23$ModuleFindTest::SubMod::SubSubMod::loaded = 0; 24 25 26 27 28