File Coverage

blib/lib/Input/Validator/Constraint/Date.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	4	100.0
condition	5	8	62.5
subroutine	4	4	100.0
pod	1	1	100.0
total	32	35	91.4

package Input::Validator::Constraint::Date;

use strict;
use warnings;

use base 'Input::Validator::Constraint';

require Time::Local;

sub is_valid {
    my ($self, $value) = @_;

    my %args = @{$self->args};

    my $re = $args{split} || '/';
    my ($year, $month, $day) = split($re, $value);

    return 0 unless $year && $month && $day;

    eval { Time::Local::timegm(0, 0, 0, $day, $month - 1, $year); };

    return $@ ? 0 : 1;
}

1;
__END__