Perl 5 マスター Wiki

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

my ($stdout , $stderror ) = capture {
    print "hi stdout";
    warn "hi stderror";
};

is( $stdout , 'hi stdout' , 'stdout test' );
like( $stderror , qr/^hi stderror/ , 'error test' );

$ prove sample.t 
sample.t .. ok   
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.01 sys +  0.05 cusr  0.00 csys =  0.08 CPU)
Result: PASS