File Coverage

blib/lib/JSV/Keyword/Draft4/Minimum.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	6	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	37	39	94.8

package JSV::Keyword::Draft4::Minimum;

use strict;
use warnings;
use parent qw(JSV::Keyword);
use JSON;

use JSV::Keyword qw(:constants);

sub instance_type() { INSTANCE_TYPE_NUMERIC(); }
sub keyword() { "minimum" }
sub keyword_priority() { 10; }

sub validate {
    my ($class, $context, $schema, $instance) = @_;

    my $minimum           = $class->keyword_value($schema);
    my $exclusive_minimum = $class->keyword_value($schema, "exclusiveMinimum") || JSON::false;

    if ($exclusive_minimum) {
        if ($instance <= $minimum) {
            $context->log_error("The instance value is less than or equals minimum keyword value");
        }
    }
    else {
        if ($instance < $minimum) {
            $context->log_error("The instance value is less than minimum keyword value");
        }
    }
}

1;