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

with qw/Acme::PrettyCure::Girl::Role Acme::PrettyCure::Girl::Role::Suite/;

use List::MoreUtils qw/any/;

sub human_name   {'南野奏'}
sub precure_name {'キュアリズム'}
sub age          {14}
sub challenge { '爪弾くはたおやかな調べ! キュアリズム!' }
sub color { 225 }
sub image_url { 'http://www.toei-anim.co.jp/tv/suite_precure/character/00_02/01.jpg' }

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

    die "響がいないと変身できないニャ!" unless any { ref($_) =~ /CureMelody/ } @buddies;
};

no Any::Moose;
__PACKAGE__->meta->make_immutable;

1;