CPAN::Groonga

use Mojo::Base 'Daje::Workflow::Common::Activity::Base', -base, -signatures;

use Mojo::JSON qw{to_json from_json};

#
# NAME
# ====
#
# Daje::Workflow::GeneratePerl::Activity - It creates perl code
#

ew;
use Daje::Workflow::Templates;

our $VERSION = '0.12';

has 'success' ;
has 'templates';
has 'json';

sub generate_classes($self) {

    @{$self->context->{context}->{perlfiles}} = ();
    $self->

 @{$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

#
#   use Mojo::Base
#
#
#
# METHODS
# =======
#
#   has 'templates' ;
#   has 'json' ;
#


has 'templates' ;
has 'json' ;
has 'context';


1;



#################### pod generated by Pod::Autopod - 

::Workflow::GeneratePerl::Base::Common - Base class




=head1 DESCRIPTION


Simple base class




=head1 REQUIRES


  use Mojo::Base





=head1 METHODS


  has 'templates' ;
  has 'json' ;



=cut

mplates->get_data_section('select_from_index');
    my $table_name = $self->json->{table_name};
    my $indexes = $self->json->{indexes};
    my $length = scalar @{$indexes};
    if($length > 0 and re

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/

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

sub _insert_metho

t' ;
has 'primary_key' ;
has 'foreign_keys';

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

e($self) {
    my $tpl = $self->templates->get_data_section('class');
    my $table_name = $self->json->{table_name};
    my $name_space = $self->context->{context}->{perl}->{name_space};
    my $base

    my $tpl = $self->templates->get_data_section('view_list_class');
    my $table_name = $self->json->{view}->{table_name};
    my $name_space = $self->context->{context}->{perl}->{view_name_space};

elf->_methods();
    my $methods = $self->methods();

    my $fields = $self->_has_methods($self->json->{view}->{table_name});

    $tpl =~ s/<<date>>/$date/ig;
    $tpl =~ s/<<fields>>/$fields/ig;
  

    $self->foreign_keys($p_keys);
    }
}

sub _get_fields($self) {
    my $column_names = $self->json->{view}->{column_names};
    my $length = scalar @{$column_names};
    my @keys;
    my @pkeys;