Yet Another CPAN Grep

MySQL-Workbench-DBIC ( P/PE/PERLSRVDE/MySQL-Workbench-DBIC-1.21.tar.gz, PERLSRVDE, 2021; MetaCPAN )

MySQL-Workbench-DBIC/lib/MySQL/Workbench/DBIC.pm ( view source; MetaCPAN )

nings;
use strict;

use Carp;
use Data::Dumper;
use File::Path qw(make_path);
use File::Spec;
use JSON;
use List::Util qw(first);
use Moo;
use MySQL::Workbench::Parser;

# ABSTRACT: create DBIC scheme

::upgrade( $comment );

    my $data;
    my $table_comment_perl = '';
    eval {
        $data = JSON->new->decode( $comment );
    };

    if ( !ref $data || 'HASH' ne ref $data ) {
        $data

8::upgrade( $comment );

    my $data;
    my $view_comment_perl = '';
    eval {
        $data = JSON->new->decode( $comment );
    };

    if ( !ref $data || 'HASH' ne ref $data ) {
        $data