File Coverage

blib/lib/Acme/PrettyCure/Girl/CureBloom.pm
Criterion Covered Total %
statement 16 20 80.0
branch n/a
condition n/a
subroutine 7 11 63.6
pod 0 8 0.0
total 23 39 58.9


line stmt bran cond sub pod time code
1             package Acme::PrettyCure::Girl::CureBloom;
2 3     3   17 use utf8;
  3         5  
  3         23  
3 3     3   78 use Moo;
  3         7  
  3         20  
4              
5             with qw/Acme::PrettyCure::Girl::Role Acme::PrettyCure::Girl::Role::Futari/;
6              
7 3     3 0 799 sub human_name {'日向咲'}
8 1     1 0 42 sub precure_name {'キュアブルーム'}
9 0     0 0 0 sub birthday { Time::Piece->( '1992/08/07', '%Y/%m/%d' ) }
10 0     0 0 0 sub age {14}
11 0     0 0 0 sub blood_type {'O'}
12 0     0 0 0 sub image_url {'http://www.toei-anim.co.jp/tv/precure_SS/character/chara_saki01.gif'}
13             sub challenge {
14 1     1 0 15 "\e[38;5;198m輝く金の花、キュアブルーム!\e[0m",
15             "\e[38;5;250mきらめく銀の翼、キュアイーグレット!\e[0m",
16             "\e[38;5;201mふたりはプリキュア!\e[0m",
17             "\e[38;5;250m聖なる泉を汚す者よ!\e[0m",
18             "\e[38;5;198mアコギな真似はおやめなさい!\e[0m",
19             }
20              
21             before 'transform' => sub {
22             my ($self, $buddy) = @_;
23              
24             die "舞がいないと変身できないラピ!" unless ref($buddy) =~ /Cure(Egret|Windy)/;
25             };
26              
27 3     3   3755 use Acme::PrettyCure::Girl::CureBright;
  3         11  
  3         32  
28             sub powerup {
29 1     1 0 2 my $self = shift;
30 1         40 my $precure = Acme::PrettyCure::Girl::CureBright->new;
31 1         20 $precure->is_precure($self->is_precure);
32 1         10 return $precure;
33             }
34              
35             1;