line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Acme::PrettyCure::Girl::CureMelody; |
2
|
3
|
|
|
3
|
|
16
|
use utf8; |
|
3
|
|
|
|
|
5
|
|
|
3
|
|
|
|
|
22
|
|
3
|
3
|
|
|
3
|
|
81
|
use Moo; |
|
3
|
|
|
|
|
7
|
|
|
3
|
|
|
|
|
18
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
with qw/Acme::PrettyCure::Girl::Role Acme::PrettyCure::Girl::Role::Suite/; |
6
|
|
|
|
|
|
|
|
7
|
3
|
|
|
3
|
|
2025
|
use List::MoreUtils qw/any/; |
|
3
|
|
|
|
|
1377
|
|
|
3
|
|
|
|
|
1027
|
|
8
|
|
|
|
|
|
|
|
9
|
3
|
|
|
3
|
0
|
678
|
sub human_name {'北条響'} |
10
|
1
|
|
|
1
|
0
|
42
|
sub precure_name {'キュアメロディ'} |
11
|
0
|
|
|
0
|
0
|
0
|
sub age {14} |
12
|
1
|
|
|
1
|
0
|
6
|
sub challenge { '爪弾くは荒ぶる調べ! キュアメロディ!' } |
13
|
4
|
|
|
4
|
0
|
13
|
sub color { 199 } |
14
|
0
|
|
|
0
|
0
|
|
sub image_url { 'http://www.toei-anim.co.jp/tv/suite_precure/character/00_01/01.jpg' } |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
before 'transform' => sub { |
17
|
|
|
|
|
|
|
my ($self, @buddies) = @_; |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
die "奏がいないと変身できないニャ!" unless any {ref($_) =~ /CureRhythm/} @buddies; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
unless ($buddies[0] && $buddies[0]->is_precure) { |
22
|
|
|
|
|
|
|
$self->say('絶対に許さない' . ('!' x (scalar(@buddies)+1)) ); |
23
|
|
|
|
|
|
|
} |
24
|
|
|
|
|
|
|
}; |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
1; |