File Coverage

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

Criterion	Covered	Total	%
statement	16	17	94.1
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	22	25	88.0

package JSV::Keyword::Draft4::Ref;

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

use JSV::Keyword qw(:constants);

sub instance_type() { INSTANCE_TYPE_ANY(); }
sub keyword() { '$ref' }
sub keyword_priority() { 5; }

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

    eval {
        $context->reference->resolve(
            $schema,
            +{
                base_uri => $context->original_schema->{id},
                root     => $context->original_schema
            }
        );
    };
    if ( my $e = $@ ) {
        $context->log_error(sprintf("Failed to resolve reference: %s", $e));
    }
}

1;