File Coverage

blib/lib/Acme/PriPara/MainMembers/DorothyWest.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 20 22 90.9


line stmt bran cond sub pod time code
1             package Acme::PriPara::MainMembers::DorothyWest;
2 3     3   1253 use Mouse;
  3         3  
  3         15  
3             extends 'Acme::PriPara::MainMembers';
4 3     3   827 use utf8;
  3         18  
  3         17  
5              
6 3     3   55 no Mouse;
  3         7  
  3         10  
7              
8             sub name {
9 1     1 0 304 my ($self) = @_;
10 1         8 return $self->firstname . '・' . $self->lastname;
11             }
12              
13             sub pripara_change {
14 2     2 0 6 my ($self, $twin) = @_;
15 2 100       10 $self->{has_pripara_changed} = 1 if ref $twin eq 'Acme::PriPara::MainMembers::ReonaWest';
16             }
17              
18             1;
19              
20             __DATA__