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