package Acme::PrettyCure::Girl::MilkyRose;
use utf8;
use Moo;
with 'Acme::PrettyCure::Girl::Role';
has 'is_fairy' => (
is => 'rw',
isa => sub { die "$_[0] is not a boolean" if $_[0] !~ /^[01]$/ },
default => sub {0}
);
sub fairy_name {'ミルク'}
sub human_name {'美々野くるみ'}
sub precure_name {'ミルキィーローズ'}
sub age {14}
sub challenge { '青いバラは秘密の印、ミルキィローズ!' }
sub color { 93 }
sub image_url { '' }
sub name {
my $self = shift;
return
$self->is_fairy ? $self->fairy_name
: $self->is_precure ? $self->precure_name
: $self->human_name;
}
sub powerdown {
my $self = shift;
$self->is_precure(0);
$self->is_fairy(1);
}
before 'transform' => sub {
my $self = shift;
$self->is_fairy(0);
};
1;