use strict;
use warnings;
use Test::More tests => 4;
use Module::Find;
use lib qw(./t/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;