File Coverage

blib/lib/Acme/PrettyCure/Girl/CureMelody.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 7 9 77.7
pod 0 6 0.0
total 20 30 66.6


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;