view release on metacpan or  search on metacpan

t/9070-examples.t  view on Meta::CPAN

    my $tmp  = File::Spec->catfile($ROOT, 't', "_demo_out.$$");

    open(_SAVEOUT, ">&STDOUT") or return '';
    unless (open(STDOUT, "> $tmp")) {
        open(STDOUT, ">&_SAVEOUT");
        close _SAVEOUT;
        return '';
    }

    {
        local @ARGV = ();
        do $path;
    }

    open(STDOUT, ">&_SAVEOUT");
    close _SAVEOUT;

    my $out = _slurp($tmp);
    unlink $tmp;
    $out = '' unless defined $out;
    return $out;