File Coverage

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

Criterion	Covered	Total	%
statement	16	18	88.8
branch	4	4	100.0
condition			n/a
subroutine	9	11	81.8
pod	0	9	0.0
total	29	42	69.0

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;