File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	32	33	96.9

package JSV::Keyword::Draft4::Not;

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

use JSV::Keyword qw(:constants);

sub instance_type() { INSTANCE_TYPE_ANY(); }
sub keyword() { "not" }
sub keyword_priority() { 10; }

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

    my $not_schema = $class->keyword_value($schema);
    my $is_valid = 0;

    {
        local $context->{current_schema_pointer} = $context->{current_schema_pointer} . "/" . $class->keyword;
        local $context->{errors} = [];
        $context->validate($not_schema, $instance);
        $is_valid = 1 if scalar @{ $context->{errors} } == 0;
    }

    if ($is_valid) {
        $context->log_error("The instance is matched to schema of not keyword value");
    }
}

1;