view release on metacpan or  search on metacpan

t/10_prereq_computed.t  view on Meta::CPAN

use CPAN::Reporter::PrereqCheck ();

{
    my($tmpfh,$tmpfile) = tempfile(UNLINK => 1);
    print $tmpfh <<EOF;
Bogus::ComputedVersion 0 1.00
EOF
    close $tmpfh or die $!;

    local @ARGV = $tmpfile;
    local @INC = (@INC, "$FindBin::RealBin/perl5lib");

    ## open stdout to a variable
    open OLDOUT, ">&", \*STDOUT;
    close STDOUT;
    my $output = '';
    open STDOUT, ">", \$output;

    CPAN::Reporter::PrereqCheck::_run();