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

use Time::Piece;

with 'Acme::PrettyCure::Girl::Role';

sub human_name   {'雪城ほのか'}
sub precure_name {'キュアホワイト'}
sub birthday     { Time::Piece->new( '1990/04/04', '%Y/%m/%d' ) }
sub age          { 14 }
sub blood_type   {'B'}
sub challenge {
    qw(
       光の使者、キュアブラック! 
       光の使者、キュアホワイト! 
       ふたりはプリキュア! 
       闇の力の僕たちよ! 
       とっととおうちに帰りなさい!
    )
}

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

    die "なぎさがいないと変身できないミポ!" unless ref($buddy) =~ /CureBlack/;
};

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

    unless ($buddy->is_precure) {
        $buddy->transform($self);
    }
};

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

1;