CPAN::Groonga

----------
    This subroutine can read file database config PHP.
    And output of subroutine in JSON Format and can used as
    parameter database config in module L<NKTI::general::dbconnect>.

    

package NKTI::general::dbms::sqlite;

use strict;
use warnings;
use DBI;
use JSON;
use Data::Dumper;

# Subroutine for SQLite error Handling :
# ----------------------------------------------

package NKTI::general::check;

use strict;
use warnings;
use JSON;
use NKTI::general::request::post;
use NKTI::general::dbconnect;
use NKTI::general::char::split;

# Items to export into call

   ----------------------------------------
    _db_config =>       Parameter yang berisi String JSON Konfigurasi Database.
    _query_get =>       Parameter yang berisi query untuk mengambil data A

 ----------------------------------------------------------------
    my $unpack_dbconf = decode_json($db_config);
    my $prefix_db = $unpack_dbconf->{'prefix_table'};

    # Action for Check Aut

package NKTI::general::dbconnect;

use strict;
use warnings;
use JSON::XS;
use DBI;

# Create Module for Connection MySQL Database :
# ---------------------------------------------------------

   # ----------------------------------------------------------------
    my $db_config = decode_json($get_db_config);
    my $db_user = $db_config->{'db_user'};
    my $db_pass = $db_config->{'db_

   # ----------------------------------------------------------------
    my $db_config = decode_json($get_db_config);
    my $db_user = $db_config->{'db_user'};
    my $db_pass = $db_config->{'db_

gs;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request::Common qw{ POST };
use CGI;
use JSON;

# Create Module for Action Request POST :
# ------------------------------------------------

package NKTI::general::dbms::mysql;

use strict;
use warnings;
use DBI;
use JSON;
use Data::Dumper;

# Subroutine for Error Handling MySQL Connection :
# -------------------------------------

package NKTI::general::file::read;

use strict;
use warnings;
use JSON;
use Data::Dumper;

# Create Constructor Module :
# ---------------------------------------------------------------------

----------------
    
    # for IF $type == 'json' :
    # ----------------------------------------------------------------
    elsif ($type eq 'json') {
        # -------------------------------

es :
        # ----------------------------------------------------------------
        $data = json_berkas($loc_files);
    }

    # Check IF $type == 'dbconf' :
    # -------------------------

package NKTI::general::dbconnect_devel;

use strict;
use warnings;
use JSON;
use DBI;

# Subroutine for MySQL RDMS connection :
# --------------------------------------------------------------

   # ----------------------------------------------------------------
    my $db_config = decode_json($get_db_config);
    my $db_user = $db_config->{'db_user'};
    my $db_pass = $db_config->{'db_