package JSON::Schema::Generate;
use 5.006; use strict; use warnings; our $VERSION = '0.15';
use Tie::IxHash; use Types::Standard qw/Str HashRef Bool/;
use Compiled::Params::OO qw/cpo/; use JSON; use B
lessed::Merge;
our ($validate, $JSON);
BEGIN {
$validate = cpo(
new => {
id => {
type => Str,
default => sub {
'http://example.com/root.json'
}
},
title => {
type =>
oot schema is the schema that comprises the entire JSON document.'
}
},
schema => {
type => Str,
default => sub {
'http://json-schema.org/draft-07/schema#'
}
},
spec =