File Coverage

blib/lib/Acme/PrettyCure/Girl/Role/Five.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Acme::PrettyCure::Girl::Role::Five;
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("華麗に羽ばたく五つの心!");
        $self->say("Yes! プリキュア5!");
    }
};


1;