File Coverage

blib/lib/DBIx/MoCo/Column/UTCDateTime.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	32	36	88.8

package DBIx::MoCo::Column::UTCDateTime;
use strict;
use warnings;
use DateTime;
use DateTime::Format::MySQL;

sub UTCDateTime {
    my $self = shift;
    return if not $$self;
    return if $$self =~ /0000/o;
    my $dt = DateTime::Format::MySQL->parse_datetime($$self);
    $dt->set_time_zone('UTC');
    return $dt;
}

sub UTCDateTime_as_string {
    my $class = shift;
    my $dt = shift or return;
    $dt->set_time_zone('UTC');
    return DateTime::Format::MySQL->format_datetime($dt);
}

1;