File Coverage

blib/lib/FormValidator/Lite/Constraint/Time.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	5	6	83.3
condition	14	23	60.8
subroutine	4	4	100.0
pod			n/a
total	39	49	79.5

package  FormValidator::Lite::Constraint::Time;
use strict;
use warnings;
use FormValidator::Lite::Constraint;

rule 'TIME' => sub {
    if ( ref $_) {
        # query: h=12&m=00&d=60
        # rule:  {time => [qw/h m s/]} => ['TIME']
        _v(@{$_});
    } else {
        # query: time=12:00:30
        # rule:  time => ['time']
        _v(split /:/, $_);
    }
};

sub _v {
    my ($h, $m, $s) = @_;

    return 0 if (!defined($h) or !defined($m));
    return 0 if ("$h" eq "" or "$m" eq "");
    $s ||= 0; # optional

    if ( $h > 23 or $h < 0 or $m > 59 or $m < 0 or $s > 59 or $s < 0 ) {
        return 0;
    }

    return 1;
}

1;
__END__