Yet Another CPAN Grep

SQL-Translator-Parser-OpenAPI ( E/ET/ETJ/SQL-Translator-Parser-OpenAPI-0.08.tar.gz, ETJ, 2021; MetaCPAN )

SQL-Translator-Parser-OpenAPI/lib/SQL/Translator/Parser/OpenAPI.pm ( view source; MetaCPAN )

package SQL::Translator::Parser::OpenAPI;
use strict;
use warnings;
use JSON::Validator::OpenAPI::Mojolicious;

our $VERSION = "0.08";
use constant DEBUG => $ENV{SQLTP_OPENAPI_DEBUG};
use String::Came

 });
}

sub parse {
  my ($tr, $data) = @_;
  my $args = $tr->parser_args;
  my $openapi_schema = JSON::Validator::OpenAPI::Mojolicious->new->schema($data)->schema;
  my %defs = %{ $openapi_schema->ge

-openapi.json >my-mysqlschema.sql

  # or, applying an overlay:
  $ perl -MHash::Merge=merge -Mojo \
    -e 'print j merge map j(f($_)->slurp), @ARGV' \
      t/06-corpus.json t/06-corpus.json.overlay