package Acme::PrettyCure::Girl::CureFlower;
use utf8;
use Any::Moose;
use Time::Piece;
with 'Acme::PrettyCure::Girl::Role';
sub human_name {'花咲薫子'}
sub precure_name {'キュアフラワー'}
sub age { 67 }
sub challenge { qw(聖なる光に輝く一輪の花、キュアフラワー!) }
sub image_url { '' }
before 'transform' => sub {
my ($self,) = @_;
my $now = localtime;
unless ( $now->mon == 12 && $now->mday == 24 ) {
die "CureFlower can transform only holy night";
}
};
no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;