File Coverage

blib/lib/DBIx/Class/InflateColumn/DateTimeX/Immutable.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             package DBIx::Class::InflateColumn::DateTimeX::Immutable;
2              
3             # ABSTRACT: Inflate/deflate DBIx::Class columns to DateTimeX::Immutable objects
4              
5 2     2   161538 use strict;
  2         3  
  2         62  
6 2     2   9 use warnings;
  2         3  
  2         50  
7 2     2   9 use base qw/DBIx::Class::InflateColumn::DateTime/;
  2         5  
  2         999  
8 2     2   64284 use DBIx::Class::Carp;
  2         5  
  2         10  
9 2     2   601 use DateTimeX::Immutable;
  0            
  0            
10             use Try::Tiny;
11             use namespace::autoclean;
12              
13             our $VERSION = '0.31';
14              
15             sub _inflate_to_datetime {
16             my $self = shift;
17             my $rv = $self->next::method(@_);
18              
19             ## warn "\$rv isa " . ref $rv . "\n";
20             bless $rv, 'DateTimeX::Immutable';
21             return $rv;
22             }
23              
24             1;
25              
26             __END__