File Coverage

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