File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	10	14	71.4
condition	10	17	58.8
subroutine	4	4	100.0
pod	1	1	100.0
total	47	58	81.0

package Input::Validator::Constraint::Time;

use strict;
use warnings;

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

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

    my %args = @{$self->args};
    my $re = $args{split} || ':';

    my ($h, $m, $s) = split($re, $value);
    return 0 unless defined $h && defined $m && defined $s;

    $h =~ m/^\d+$/ || return 0;
    $h >= 0 && $h <= 23 || return 0;

    $m =~ m/^\d+$/ || return 0;
    $m >= 0 && $m <= 59 || return 0;

    $s =~ m/^\d+$/ || return 0;
    $s >= 0 && $s <= 59 || return 0;

    return 1;
}

1;
__END__