view release on metacpan or  search on metacpan

scripts/jsonvalidate  view on Meta::CPAN

                my $data = _decode_json_or_die( $raw, $json, "$inst_file: " );
                _run_data_maybe_array( $js, $data, \$total_ok, \$total_fail, \$run_idx, $json );
            }
        }
    }

    if( $opts->{emit_js} )
    {
        my $js_code = $js->compile_js( $opts->{ecma} ? ( ecma => $opts->{ecma} ) : () );
        my $source = join( ', ', map{ $_->basename } @{$opts->{schema}} );
        require DateTime;
        my $now    = DateTime->now->iso8601;
        $out->print( <<HEADER );
// =============================================================================
// JSON Schema Validator — Client-Side (Compiled from Perl)
// =============================================================================
// Schema   : $source
// Generated: $now
// Validator: JSON::Schema::Validate $JSON::Schema::Validate::VERSION (Perl)
// Module   : $INC{'JSON/Schema/Validate.pm'}
// Compiler : jsonvalidate --emit-js
// =============================================================================