Yet Another CPAN Grep

Data-Sah-From-JSONSchema ( P/PE/PERLANCAR/Data-Sah-From-JSONSchema-0.02.tar.gz, PERLANCAR, 2015; MetaCPAN )

Data-Sah-From-JSONSchema/lib/Data/Sah/From/JSONSchema.pm ( view source; MetaCPAN )

package Data::Sah::From::JSONSchema;

our $DATE = '2015-09-06'; # DATE
our $VERSION = '0.02'; # VERSION

use 5.010001;
use strict;
use warnings;

require Exporter;
our @ISA       = qw(Exporter);
our @

         convert_json_schema_to_sah
               );

sub _clauses_common {
    my ($jsonsch, $sahsch) = @_;
    if (exists $jsonsch->{title}) {
        $sahsch->[1]{summary} = $jsonsch->{title};

    if (exists $jsonsch->{description}) {
        $sahsch->[1]{description} = $jsonsch->{description};
    }
    if (exists $jsonsch->{default}) {
        $sahsch->[1]{default} = $jsonsch->{default};