SYNOPSIS use Data::Sah::From::JSONSchema qw(convert_json_schema_to_sah); my $jsonsch = { description => "a representation of a person, company, organization, or place", type => "object", required => [qw/familyName givenName/], properties => { fn => { description => "formatted name", type => "string", }, familyName => {type => "string"}, givenName => {type => "string"}, }, }; my $sahsch = convert_json_schema_to_sah($jsonsch); # $sahsch will contain something like: # [hash => { # description => "a representation of a person, company, organization, or place", # req_keys => ['familyName', 'givenName'], # keys => { # fn => [str => { # description => "formatted name", # req => 1, # }], # familyName => ['str', {req=>1}], # givenName => ['str', {req=>1}], # }, # }] DESCRIPTION EARLY DEVELOPMENT, EXPERIMENTAL. Some features are not yet supported: $ref, $schema, id, array's uniqueItems, and so on. FUNCTIONS convert_json_schema_to_sah($jsonsch) => ARRAY Convert JSON schema in $jsonsch (which must be a hash), to a Sah schema. Dies on failure. SEE ALSO http://json-schema.org/ Sah, Data::Sah Implementation of JSON Schema in Perl: JSON::Schema