The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Effects;

plan tests => 1;

effects_ok {
    print 'stdout';
    say {*STDERR} 'stderr';
    sleep 1;
    warn  'warning';
    die   'died';
}
TIME {
    stdout => "stdout",
    stderr => qr{stderr\nwarning \s+ at}x,
    warn   => [qr{\A warning \s+ at}x],
    die    => qr{\A died \s+ at}x,
}
=> 'TIME works';