The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Acme::PrettyCure::Girl::Role::Smile;
use utf8;
use Moo::Role;


after 'transform' => sub {
    my ($self, @buddies) = @_;

    for my $buddy (@buddies) {
        $buddy->transform;
    }

    if (scalar(@buddies) == 4) {
        $self->say("五つの心が導く未来!");
        $self->say("輝け! スマイルプリキュア!");
    }
};


1;