in reply to How to capture and verify STDOUT of a Perl Module

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Capture::Tiny 'capture';

BEGIN {
   use_ok('Module') || print "Bail out!\n";
}

my $obj = 'Module'->new;
my $out = capture { $obj->run };

like($out, qr/^Awesome/);

done_testing;

[download]
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

In Section Seekers of Perl Wisdom