use strict;
use warnings;

package MyTest1;
use base 'Class::DBI';

__PACKAGE__->set_db('Main', 'dbi:mysql:test', undef, undef, { RaiseError => 1 }  );
__PACKAGE__->table('test1');
__PACKAGE__->columns( All => qw( id logtext ) );

package main;

    printf "  db_Main is    '%s'\n", MyTest1->db_Main;
    printf "  AutoCommit is '%s'\n", MyTest1->db_Main->{AutoCommit};
    printf "  RaiseError is '%s'\n", MyTest1->db_Main->{RaiseError};

    MyTest1->db_Main->do( 'DROP TABLE IF EXISTS test1' );
    MyTest1->db_Main->do( <<EOSQL );
CREATE TABLE IF NOT EXISTS test1 (
  id              INTEGER       NOT NULL,
  logtext         VARCHAR(255)  NOT NULL,
  PRIMARY KEY (id) 
)
EOSQL

    my  $newentry;
    for( my $i=0 ; $i<10000 ; ++$i ) {
        $newentry = MyTest1->create( { id=>$i, logtext=>'faked' } );
        unless( $newentry ) {
            printf "*Error: Unable to create new entry object\n";
            last;
        }
    }

    my( $count ) = MyTest1->db_Main->selectrow_array( 
                                'SELECT count(*) FROM test1' );
    printf "  Record count  '%d'\n", $count;
    printf "  db_Main is    '%s'\n", MyTest1->db_Main;
    printf "  AutoCommit is '%s'\n", MyTest1->db_Main->{AutoCommit};