http://www.perlmonks.org?node_id=991748


in reply to Validating a JSON structure

Maybe this will work.

my $json_model ={ type => 'object', properties => { year => {type=>'number', minimum=>0, maximum=>9999, required=>1 +}, month => {type=>'number', minimum=>1, maximum=>12, required=>1}, }, additionalProperties =>0 };
The author of this module is around here, Mr.Tobyink.