File Coverage

blib/lib/Data/Cleaner/Datetime.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	25	25	100.0

package Data::Cleaner::Datetime;

use strict;
use warnings;

use Date::Parse qw(str2time);
use Date::Format qw(time2str);

our $VERSION = 0.0.1;
our $DEFAULT = '';

sub _validate {
    my $seconds = str2time($_[1]);
    $seconds ? return $seconds : return undef;
}

sub _fix {
    return $_[0]->get_default;
}

sub _format {
    return time2str($_[0]->get_datetime_format(), $_[1], $_[0]->get_timezone());
}

1;

__END__