File Coverage

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

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

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

rule BETWEEN => sub {
    $_[0] <= $_ && $_ <= $_[1];
};

rule LESS_THAN => sub {
    $_ < $_[0];
};

rule LESS_EQUAL => sub {
    $_ <= $_[0];
};

rule MORE_THAN => sub {
    $_[0] < $_;
};

rule MORE_EQUAL => sub {
    $_[0] <= $_;
};

1;
__END__