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   11 use Mouse;
  3         4  
  3         12  
3             extends 'Acme::MilkyHolmes::Group::MilkyHolmes';
4              
5 3     3   660 use utf8;
  3         3  
  3         10  
6 3     3   1584 use Time::Piece;
  3         29112  
  3         10  
7              
8 3     3   177 no Mouse;
  3         4  
  3         13  
9              
10             sub voiced_by { #override
11 6     6 1 555 my ($self) = @_;
12 6         21 my $now = localtime();
13 6         380 my $threshold = Time::Piece->strptime('2013-12-25T00:00:00Z', '%Y-%m-%dT%H:%M:%SZ');
14 6 100       207 if ( $now >= $threshold ) {
15 4         202 return $self->_localized_field('voiced_by');
16             }
17 2         86 return $self->_localized_field('voiced_by_before');
18             }
19              
20              
21             1;
22              
23             __DATA__