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