File Coverage

blib/lib/Acme/PrettyCure/Girl/CureFlower.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch			n/a
condition			n/a
subroutine	3	8	37.5
pod	0	5	0.0
total	12	27	44.4

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;