line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Acme::PrettyCure::Girl::CureEgret; |
2
|
3
|
|
|
3
|
|
86
|
use utf8; |
|
3
|
|
|
|
|
6
|
|
|
3
|
|
|
|
|
22
|
|
3
|
3
|
|
|
3
|
|
75
|
use Moo; |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
18
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
with qw/Acme::PrettyCure::Girl::Role Acme::PrettyCure::Girl::Role::Futari/; |
6
|
|
|
|
|
|
|
|
7
|
3
|
|
|
3
|
0
|
84
|
sub human_name {'美翔舞'} |
8
|
1
|
|
|
1
|
0
|
39
|
sub precure_name {'キュアイーグレット'} |
9
|
0
|
|
|
0
|
0
|
0
|
sub birthday { Time::Piece->( '1992/11/20', '%Y/%m/%d' ) } |
10
|
0
|
|
|
0
|
0
|
0
|
sub age {14} |
11
|
0
|
|
|
0
|
0
|
0
|
sub blood_type {'AB'} |
12
|
0
|
|
|
0
|
0
|
0
|
sub image_url {'http://www.toei-anim.co.jp/tv/precure_SS/character/chara_mai01.gif'} |
13
|
|
|
|
|
|
|
sub challenge { |
14
|
0
|
|
|
0
|
0
|
0
|
"\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(Bloom|Bright)/; |
25
|
|
|
|
|
|
|
}; |
26
|
|
|
|
|
|
|
|
27
|
3
|
|
|
3
|
|
3850
|
use Acme::PrettyCure::Girl::CureWindy; |
|
3
|
|
|
|
|
8
|
|
|
3
|
|
|
|
|
33
|
|
28
|
|
|
|
|
|
|
sub powerup { |
29
|
1
|
|
|
1
|
0
|
16
|
my $self = shift; |
30
|
1
|
|
|
|
|
31
|
my $precure = Acme::PrettyCure::Girl::CureWindy->new; |
31
|
1
|
|
|
|
|
24
|
$precure->is_precure($self->is_precure); |
32
|
1
|
|
|
|
|
12
|
return $precure; |
33
|
|
|
|
|
|
|
} |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
1; |