NAME

Class::DBI::Plugin::MultiDatabases - use multiple databases from a snigle class

SYNOPSIS

package Your::App::DBI;

use base qw(Class::DBI);
use Class::DBI::Plugin::MultiDatabases;

Your::App::DBI->set_connections({
	databaseA => ["dbi:SQLite:dbname=databaseA", '', ''],
	databaseB => ["dbi:SQLite:dbname=databaseB", '', ''],
});


package Your::App::CD;

Your::App::CD->table('cds');
Your::App::CD->column(All => qw/cdid title artist/);


package main_script;

my $cd;

Your::App::DBI->change_db('databaseA');

$cd = Your::App::CD->retrieve(123);
print $cd->title, "\n"; # from databaseA

# ....

Your::App::DBI->change_db('databaseB');

$cd = Your::App::CD->retrieve(123);
print $cd->title, "\n"; # from databaseB


$cd->save_db_Main(); # this object saves 'databaseB'

Your::App::DBI->change_db('databaseA');

my @cds = Your::App::CD->retrieve_all();

print $cd->title, "\n"; # from databaseB still

for(@cds){
  #  objects are from databaseA
}

DESCRIPTION

"There are cases when you have the same schema in multiple databases and would like to access two or more databases from the same script without reconnecting every time."

from http://wiki.class-dbi.com/index.cgi?UsingMultipleDatabases

This module helps you for it automatically.

All that you must do is use Class::DBI::Plugin::MultiDatabases in your base CDBI application class.

METHODS

set_connections($key => $arrayref [,$other_key => $other_arrayref])

takes key/arrayref pair. $arrayref is a DSN, username, password and options.

set_connections(
  db1 => ["dbi:Pg:dbname=pgdb", $user, $pass, $opts],
  db2 => ["dbi:SQLite:dbname=sqlitedb", '', ''],
)
change_db($key)

You give a database key which you have set with set_connections.

save_db_Main()

This method is object method. When change_db is called, all existing objects return new database handle from db_Main(). If you called save_db_Main before calling change_db, the object return unchanged dbh.

clear_db_Main()

This method is object method which erases save_db_Main's effect.

BUGS

Maybe, there are a lot of bugs.

SEE ALSO

http://wiki.class-dbi.com/index.cgi?UsingMultipleDatabases

Class::DBI

AUTHOR

Makamaka Hannyaharamitu, <makamaka[at]cpan.org>

COPYRIGHT AND LICENSE

Copyright 2005 by Makamaka Hannyaharamitu

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.