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   1514 use Mouse;
  3         17  
  3         16  
3             extends 'Acme::PriPara::MainMembers';
4 3     3   1156 use utf8;
  3         8  
  3         15  
5              
6 3     3   79 no Mouse;
  3         16  
  3         14  
7              
8             sub name {
9 1     1 0 439 my ($self) = @_;
10 1         10 return $self->firstname . '・' . $self->lastname;
11             }
12              
13             sub pripara_change {
14 2     2 0 19 my ($self, $twin) = @_;
15 2 100       12 $self->{has_pripara_changed} = 1 if ref $twin eq 'Acme::PriPara::MainMembers::ReonaWest';
16             }
17              
18             1;
19              
20             __DATA__