#!perl -w use strict; sub run { for my $source( qw(sqlite anydata)){ Schema->db_connect( $source ); Schema->db_drop_table; Schema->db_make_table; Schema->create({c1=>9,c2=>'Hi From'}); printf "%s %s!\n", Schema->retrieve(9)->c2 , Schema->db_Main->{Driver}->{Name}; } } package My::DBI; use base 'Class::DBI'; my $source_name; Ima::DBI->set_db ( 'anydata','DBI:AnyData(AutoCommit=1):','','' ); Ima::DBI->set_db ( 'sqlite' ,'DBI:SQLite:dbname=cdbi' ,'','' ); sub db_Main { my $db = 'db_'.$source_name; __PACKAGE__->$db } sub db_connect { $source_name = lc $_[1] } sub db_drop_table{ eval{ $_[0]->db_Main->do('DROP TABLE '.$_[0]->table)} } sub db_make_table{ $_[0]->db_drop_table; $_[0]->sql_create->execute } package Schema; use base 'My::DBI'; __PACKAGE__->table ( 't1' ); __PACKAGE__->columns( All=>qw(c1 c2) ); __PACKAGE__->columns( Primary => qw(c1) ); __PACKAGE__->set_sql( 'create' => "CREATE TABLE t1 (c1 INT, c2 CHAR(9))"); package main; run(); __END__