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   2353 use strict;
  2         5  
  2         49  
3 2     2   8 use warnings;
  2         5  
  2         43  
4 2     2   316 use Mouse;
  2         18515  
  2         14  
5 2     2   869 use DateTime;
  2         5  
  2         39  
6 2     2   11 use DateTime::Format::HTTP;
  2         4  
  2         163  
7              
8             has 'time_zone' => (
9             is => 'ro',
10             isa => 'Str',
11             );
12              
13             sub inflate {
14 3     3 0 1859 my ($self, $val) = @_;
15              
16 3         19 my $dt = DateTime::Format::HTTP->parse_datetime($val);
17 3 100       1961 if (my $tz = $self->time_zone) {
18 1         6 $dt->set_time_zone($tz);
19             }
20 3         10368 return $dt;
21             }
22              
23 2     2   11 no Mouse;
  2         4  
  2         11  
24             __PACKAGE__->meta->make_immutable;
25             __END__
26              
27             =head1 NAME
28              
29             HTML::Shakan::Inflator::DateTime - inflate field value to DateTime instance
30              
31             =head1 AUTHOR
32              
33             Tokuhiro Matsuno
34              
35             =head1 SEE ALSO
36              
37             L<DateTime>
38