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