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 1     1   1141 use strict;
  1         2  
  1         24  
3 1     1   4 use warnings;
  1         2  
  1         30  
4 1     1   673 use Mouse;
  1         32702  
  1         9  
5 1     1   477 use DateTime;
  1         3  
  1         29  
6 1     1   7 use DateTime::Format::HTTP;
  1         3  
  1         123  
7              
8             has 'time_zone' => (
9             is => 'ro',
10             isa => 'Str',
11             );
12              
13             sub inflate {
14 2     2 0 2048 my ($self, $val) = @_;
15              
16 2         14 my $dt = DateTime::Format::HTTP->parse_datetime($val);
17 2 100       858 if (my $tz = $self->time_zone) {
18 1         6 $dt->set_time_zone($tz);
19             }
20 2         10888 return $dt;
21             }
22              
23 1     1   4 no Mouse;
  1         2  
  1         8  
24             __PACKAGE__->meta->make_immutable;
25             __END__