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