The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;
use t::Utils;

use Acme::PrettyCure::Girl::CureEcho;

my $ayumi = Acme::PrettyCure::Girl::CureEcho->new;

is_output sub { $ayumi->transform; }, <<EOS, '変身時の台詞';
想いよ届け! キュアエコー!
EOS

done_testing;