File Coverage

blib/lib/FormValidator/LazyWay/Rule/DateTime.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	12	12	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	55	58	94.8

package FormValidator::LazyWay::Rule::DateTime;

use strict;
use warnings;
use utf8;

use DateTime::Format::Strptime;

sub datetime {
    my ( $datetime, $args ) = @_;
    unless ( $args->{pattern} ) {
        $args->{pattern} = '%Y-%m-%d %H:%M:%S';
    }

    my $strp = DateTime::Format::Strptime->new( %{$args}  );
    my $dt = eval { $strp->parse_datetime($datetime) };
    return $dt ? 1 : 0;
}

sub date {
    my ( $date, $args ) = @_;
    unless ( $args->{pattern} ) {
        $args->{pattern} = '%Y-%m-%d';
    }

    my $strp = DateTime::Format::Strptime->new( %{$args}  );
    my $dt = eval { $strp->parse_datetime($date) };
    return $dt ? 1 : 0;
}

sub time {
    my ( $time, $args ) = @_;
    unless ( $args->{pattern} ) {
        $args->{pattern} = '%H:%M:%S';
    }

    my $strp = DateTime::Format::Strptime->new( %{$args}  );
    my $dt = eval { $strp->parse_datetime($time) };
    return $dt ? 1 : 0;
}

1;

__END__