captureiranai.pl

use strict;
use warnings;
use Test::More;

open my $fh, '>', \(my $output_buffer = '');
Test::More->builder->output($fh);
Test::More->builder->failure_output($fh);
Test::More->builder->todo_output($fh);

note "hoge";
print "$output_buffer\n";

__END__

# hoge

umakuikanai.pl

use strict;
use warnings;
use Capture::Tiny qw/capture/;
use Test::More;

my ($stdout, $stderr) = capture { note "hoge" };
print "stdout: $stdout\n";
print "stderr: $stderr\n";

__END__

# hoge
stdout: 
stderr:

umakuitta.pl

use strict;
use warnings;
use Capture::Tiny qw/capture/;
use Test::More;

Test::More->builder->output(*STDOUT);

my ($stdout, $stderr) = capture { note "hoge" };
print "stdout: $stdout\n";
print "stderr: $stderr\n"

__END__

stdout: # hoge

stderr: