CPAN::Groonga

eratePerl;
use Mojo::Base 'Daje::Plugin::Base::Perl::Common', base, -signatures;

use Mojo::JSON qw{from_json};
use Mojo::File;
use Daje::Plugin::Perl::Manager;

# NAME
# ====
#
# Daje::Plugin::Genera

ub process($self) {
    $self->_load_config();
    my $json = $self->_get_json();
    $self->_create_perl($json);
}

sub _create_perl($self, $json) {
    my $template = $self->_load_templates(
       

plate,
        json        => $json,
    )->generate_classes();

    return $manager->success()
}

sub _get_json($self) {
    my $path = $self->config->{PATH}->{schema_dir};
    my $json_txt = Mojo::F

l::Base::Common;
use Mojo::Base -base, -signatures;

our $VERSION = '0.01';

has 'template';
has 'json';

1;
#################### pod generated by Pod::Autopod - keep this line to make pod updates pos

self->fields->select();
    my $p_key = $self->fields->primary_key();
    my $table_name = $self->json->{table_name};

    $tpl =~ s/<<select_fields>>/$select/ig;
    $tpl =~ s/<<primary_key>>/$p_key/

lf) {
    my $tpl = $self->template->get_data_section('update_data');
    my $table_name = $self->json->{table_name};
    $tpl =~ s/<<table_name>>/$table_name/ig;
    return $tpl;
}

sub _insert_metho

lf) {
    my $tpl = $self->template->get_data_section('insert_data');
    my $table_name = $self->json->{table_name};
    $tpl =~ s/<<table_name>>/$table_name/ig;
    return $tpl;
}

sub _get_from_fke

rate($self) {
    $self->_get_fields();
}

sub _get_fields($self) {
    my $column_names = $self->json->{column_names};
    my $length = scalar @{$column_names};
    for (my $i = 0; $i < $length; $i++

te($self) {
    my $tpl = $self->template->get_data_section('class');
    my $table_name = $self->json->{table_name};
    my $name_space = $self->config->{CLASS}->{name_space};
    my $base_name_space

 @{$self->json->{tables}};
    for (my $i = 0; $i < $length; $i++) {
        $self->_generate_table_class(@{$self->json->{tables}}[$i]);
        $self->_generate_interface_class(@{$self->json->{tables

able_name});
    }
    $length = scalar $self->json->{views};
    for (my $i = 0; $i < $length; $i++) {
        $self->_generate_view_class(@{$self->json->{views}}[$i]);
    }
    return 1;
}

sub _ge

 $template = $self->template();
    my $class = Daje::Plugin::Perl::Generate::Class->new(
        json     => $table->{table},
        methods  => $methods,
        template => $template,
        conf