6 use Test::More tests => 3;
9 local $ENV{PERL_INDIRECT_PM_DISABLE} = 1;
11 my $res = eval <<' TEST_ENV_VARIABLE';
13 no indirect hook => sub { ++$err };
16 is $@, '', 'PERL_INDIRECT_PM_DISABLE test doesn\'t croak';
17 is $res, 1, 'PERL_INDIRECT_PM_DISABLE test returns the correct value';
18 is $err, 0, 'PERL_INDIRECT_PM_DISABLE test didn\'t generate any error';