File Coverage

blib/lib/Acme/PrettyCure/Girl/CureRhythm.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::CureRhythm;
2 3     3   18 use utf8;
  3         7  
  3         21  
3 3     3   79 use Moo;
  3         6  
  3         17  
4              
5             with qw/Acme::PrettyCure::Girl::Role Acme::PrettyCure::Girl::Role::Suite/;
6              
7 3     3   992 use List::MoreUtils qw/any/;
  3         8  
  3         1040  
8              
9 3     3 0 80 sub human_name {'南野奏'}
10 1     1 0 40 sub precure_name {'キュアリズム'}
11 0     0 0 0 sub age {14}
12 1     1 0 5 sub challenge { '爪弾くはたおやかな調べ! キュアリズム!' }
13 1     1 0 2 sub color { 225 }
14 0     0 0   sub image_url { 'http://www.toei-anim.co.jp/tv/suite_precure/character/00_02/01.jpg' }
15              
16             before 'transform' => sub {
17             my ($self, @buddies) = @_;
18              
19             die "響がいないと変身できないニャ!" unless any { ref($_) =~ /CureMelody/ } @buddies;
20             };
21              
22             1;