schemavalidator.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Valiemon;
use Data::Dumper;
use JSON::XS qw(decode_json);

my $content = do {
    local $/;
    open my $fh, '<', './v4-schema.json';
    <$fh>;
};

my $data = decode_json($content);

my $valiemon = Valiemon->new($data);
my ($res, $error) = $valiemon->validate($data);

if (!$res) {
    warn 'FAILED!';
    warn Dumper $error;
} else {
    warn 'SUCCESS!';
}

exit;

__END__
$ carton exec -- perl -Ilib sketch/schemavalidator.pl
This package support only single scope and `#/` referencing at lib/Valiemon/Attributes/Properties.pm line 29.