view release on metacpan or  search on metacpan

t/lib/App/Critique/Tester.pm  view on Meta::CPAN

        Test::More::BAIL_OUT('Unable to find a usable `git` binary, because: ' . $e);
    };

    return $test_repo;
}

sub run {
    my ($cmd, @args) = @_;

    my ($in, $out, $err);
    my @not_used_but_needed = IPC::Run::run(
        [ $^X, "$FindBin::Bin/../bin/critique", $cmd, @args ],
        \$in, \$out, \$err,
        init => sub {
            $ENV{CRITIQUE_HOME} = $PSUEDO_HOME->stringify;
        }
    ) or die "critique: $err";

    return ($out, $err);
}