view release on metacpan or  search on metacpan

t/20_policies.t  view on Meta::CPAN

            else {
                die $err;
            }
        }
        else {
            my $expected_failures = $subtest->{failures};

            # If any optional modules are NOT installed, then there should be no failures.
            if ($subtest->{optional_modules}) {
              MODULE:
                for my $module (split m/,\s*/, $subtest->{optional_modules}) {
                    eval "require $module"; ## no critic (ProhibitStringyEval)
                    if ($EVAL_ERROR) {
                        $expected_failures = 0;
                        last MODULE;
                    }
                }
            }

            $test_passed = is(scalar @violations, $expected_failures, $desc);
        }