The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use Mojo::Base -base, -signatures;
has 'json' ;
has 'templates' ;
has 'sql' ;
has 'index' => 0;
has 'version' ;
has 'error';
sub shift_section ($self, $array) {
my $result = {};
my $test = ref $array;
if (ref $array eq 'ARRAY') {
$result = shift(@{$array});
}
return $result;
}
sub set_sql($self, $sqlin) {
$self->sql($sqlin);
}
1;
#################### pod generated by Pod::Autopod - keep this line to make pod updates possible ####################
=head1 NAME
Daje::Workflow::GenerateSQL::Base::Common
=head1 DESCRIPTION
pod generated by Pod::Autopod - keep this line to make pod updates possible ####################
=head1 REQUIRES
L<Mojo::Base>
=head1 METHODS
=head2 set_sql($self,
set_sql($self,();
=head2 shift_section
shift_section();
=cut