#!

use lib '.';
use DBI;
use myDBI;
use strict;
use warnings;

my $sql_s=<<'__EOCreate__';
    CREATE TABLE dbi (JFF integer)
__EOCreate__

    my $Database_s='test.db';
    my (%dbh_h,%sth_h);
    { # Connect to DBI and create a table
        $dbh_h{DBI}=DBI->connect("DBI:SQLite:$Database_s","","",{RaiseError=>1,PrintError=>1,AutoCommit=>1,LongReadLen=>1024*1024})
            or die "Can't connect to 'DBI:SQLite:$Database_s'!";
        ### %dbh_h
        $dbh_h{DBI}->do($sql_s)
            or die $dbh_h{DBI}->errstr;
        { # Disconnect from the database
            $sth_h{$_}->finish() for (keys %sth_h);
            $dbh_h{$_}->commit() for (keys %dbh_h);
            $dbh_h{$_}->disconnect() for (keys %dbh_h);
             };
         };
    %dbh_h=(); %sth_h=();
    { # Connect to myDBI and create a table
        $dbh_h{myDBI}=myDBI->connect("DBI:SQLite:$Database_s","","",{RaiseError=>1,PrintError=>1,AutoCommit=>1,LongReadLen=>1024*1024})
            or die "Can't connect to 'DBI:SQLite:$Database_s'!";
        ### %dbh_h
        $dbh_h{myDBI}->do($sql_s)
            or die $dbh_h{myDBI}->errstr;
        { # Disconnect from the database
            $sth_h{$_}->finish() for (keys %sth_h);
            $dbh_h{$_}->commit() for (keys %dbh_h);
            $dbh_h{$_}->disconnect() for (keys %dbh_h);
             };
         };