3-usesub.t   [plain text]

use Test::More tests => 4;

use Module::Find;

use lib qw(./test);

my @l;

@l = usesub ModuleFindTest;

ok($#l == 0);
ok($l[0] eq 'ModuleFindTest::SubMod');
ok($ModuleFindTest::SubMod::loaded);
ok(!$ModuleFindTest::SubMod::SubSubMod::loaded);

package ModuleFindTest::SubMod;

$ModuleFindTest::SubMod::loaded = 0;

package ModuleFindTest::SubSubMod;

$ModuleFindTest::SubMod::SubSubMod::loaded = 0;