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