SchemaValidator following $ref

list-schema.json

{
  "$schema": "http://json-schema.org/draft-04/schema#",
  "type": "object",
  "properties": {
    "published": {
      "type": "boolean"
    },
    "embeded": {
      "$ref": "#/definitions/embeded"
    }
  },
  "additionalProperties": false,
  "required": [
    "published",
    "embeded"
  ],
  "definitions": {
    "embeded": {
      "type": "object",
      "properties": {
        "prop1": {
          "type": "string"
        },
        "prop2": {
          "type": "integer"
        }
      },
      "required": [
        "prop1",
        "prop2"
      ]
    }
  }
}

list.json

{
  "published": false,
  "embeded": {
    "prop1": "string",
    "prop2": 2
  }
}

SchemaValidator.plx

#!/usr/bin/env perl                                                                                                                                                                                                                                                                        

use strict;                                                                                                                                                                                                                                                                                
use warnings;                 

use FindBin;                                                                                                                                                                                                                                                                               
BEGIN { unshift @INC, "$FindBin::Bin/../lib" }                                                                                                                                                                                                                                             

use Data::Printer colored => 1;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        

use JSON;                                                                                                                                                                                                                                                                                  
use Swagger2::SchemaValidator;                                                                                                                                                                                                                                                             

use File::Slurp;                                                                                                                                                                                                                                                                           

my $validator = Swagger2::SchemaValidator->new;                                                                                                                                                                                                                                            

my $schema = read_file( "list-schema.json" ) or die "cannot open < list-schema.json: $!";                                                                                                                                                                                                  
my $schema_ref = from_json( $schema );                                                                                                                                                                                                                                                     

my $list = read_file( "list.json") or die "cannot open < list.json: $!";                                                                                                                                                                                                                   
my $list_json = from_json($list);                                                                                                                                                                                                                                                          

my @errors = $validator->validate($list_json, $schema_ref);                                                                                                                                                                                                                                

print "Error: " . p( @errors );

exit;