The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Acme::PrettyCure::Girl::CureFlower;
use utf8;
use Moo;
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";
    }
};

1;