File Coverage

blib/lib/HTML/Shakan/Inflator/DateTime.pm
Criterion Covered Total %
statement 23 23 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package HTML::Shakan::Inflator::DateTime;
2 2     2   2891 use strict;
  2         4  
  2         68  
3 2     2   10 use warnings;
  2         5  
  2         61  
4 2     2   653 use Mouse;
  2         28949  
  2         14  
5 2     2   763 use DateTime;
  2         4  
  2         46  
6 2     2   10 use DateTime::Format::HTTP;
  2         4  
  2         218  
7              
8             has 'time_zone' => (
9             is => 'ro',
10             isa => 'Str',
11             );
12              
13             sub inflate {
14 3     3 0 1984 my ($self, $val) = @_;
15              
16 3         18 my $dt = DateTime::Format::HTTP->parse_datetime($val);
17 3 100       1255 if (my $tz = $self->time_zone) {
18 1         7 $dt->set_time_zone($tz);
19             }
20 3         31443 return $dt;
21             }
22              
23 2     2   11 no Mouse;
  2         4  
  2         13  
24             __PACKAGE__->meta->make_immutable;
25             __END__