File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	30	34	88.2

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

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

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

1;