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; |