Yet Another CPAN Grep

MySQL-Sandbox ( G/GM/GMAX/MySQL-Sandbox-3.2.18.tar.gz, GMAX, 2018; MetaCPAN )

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


                    sbinstr
                    get_json_from_dirs
                    get_option_file_contents 
                    validate_json_object
                    fix_server_uuid

uid\n" if $DEBUG;
}

sub validate_json_object {
    my ($json_filename, $json_text) = @_;

    my $JSON_module = undef;
    for my $module ( 'JSON', 'JSON::PP', 'JSON::XS')
    {
        eval "use $mo

t "# Using $module\n" if $DEBUG;
            $JSON_module=$module;
           last; 
        }
    }
    unless ($JSON_module)
    {
        print "# JSON modules not installed - skipped evaluation\n"

MySQL-Sandbox ( G/GM/GMAX/MySQL-Sandbox-3.2.18.tar.gz, GMAX, 2018; MetaCPAN )

MySQL-Sandbox/lib/MySQL/Sandbox/Scripts.pm ( view source; MetaCPAN )

_paths.sh',
'change_ports.sh',
'USING',
'README',
'connection.json',
'default_connection.json',
'grants.mysql',
'grants_5_7_6.mysql',
'json_in_db.sh',
'show_binlog.sh',
'show_relaylog.sh',
'add_option

fi
fi

KILL_SCRIPT

'json_in_db.sh' => <<'JSON_IN_DB_SCRIPT',

#!_BINBASH_
__LICENSE__
SBDIR="_HOME_DIR_/_SANDBOXDIR_"
cd $SBDIR
./use -e 'drop table if exists test.connection_json'
./use -e 'create t

st.connection_json(t longtext)'
./use -e '/*!50708 alter table test.connection_json modify t json */'
#./use -e "insert into test.connection_json values (load_file('$SBDIR/connection.json'))"
./use -e