File Coverage

blib/lib/Acme/MilkyHolmes/Character/KazumiTokiwa.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Acme::MilkyHolmes::Character::KazumiTokiwa;
2 3     3   12 use Mouse;
  3         3  
  3         11  
3             extends 'Acme::MilkyHolmes::Group::MilkyHolmes';
4              
5 3     3   656 use utf8;
  3         4  
  3         9  
6 3     3   2437 use Time::Piece;
  3         30906  
  3         14  
7              
8 3     3   246 no Mouse;
  3         4  
  3         17  
9              
10             sub voiced_by { #override
11 6     6 1 494 my ($self) = @_;
12 6         18 my $now = localtime();
13 6         383 my $threshold = Time::Piece->strptime('2013-12-25T00:00:00Z', '%Y-%m-%dT%H:%M:%SZ');
14 6 100       209 if ( $now >= $threshold ) {
15 4         179 return $self->_localized_field('voiced_by');
16             }
17 2         89 return $self->_localized_field('voiced_by_before');
18             }
19              
20              
21             1;
22              
23             __DATA__