File Coverage

blib/lib/JSV/Keyword/Draft4/Maximum.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::Maximum;

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

use JSV::Keyword qw(:constants);

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

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

    my $maximum           = $class->keyword_value($schema);
    my $exclusive_maximum = $class->keyword_value($schema, "exclusiveMaximum") || JSON::false;

    if ($exclusive_maximum) {
        if ($instance >= $maximum) {
            $context->log_error("The instance value is greater than or equals maximum keyword value");
        }
    }
    else {
        if ($instance > $maximum) {
            $context->log_error("The instance value is greater than maximum keyword value");
        }
    }
}

1;