view release on metacpan or  search on metacpan

t/tests.t  view on Meta::CPAN

use Test2::Bundle::Extended;

use App::Inspect;

sub capture(&) {
    my $code = shift;

    my $out = "";

    my ($ok, $e);
    {
        local *STDOUT;

        ($ok, $e) = Test2::Util::try(sub {
            open(STDOUT, '>', \$out) or die "Failed to open a temporary STDOUT: $!";