Data::Model::Driver::DBI::MasterSlave - master-slave composition for mysql

  package MyDB;
  use base 'Data::Model';
  use Data::Model::Schema;
  use Data::Model::Driver::DBI::MasterSlave;

  my $dbi_connect_options = {};
  my $driver = Data::Model::Driver::DBI::MasterSlave->new(
      master => {
          dsn => 'dbi:mysql:host=master.server:database=test',
          username => 'master',
          password => 'master',
          connect_options => $dbi_connect_options,
      },
      slave  => {
          dsn => 'dbi:mysql:host=slave.server:database=test',
          username => 'slave',
          password => 'slave',
          connect_options => $dbi_connect_options,
      },
  );

  base_driver $driver;
  install_model model_name => schema {
    ....
  };

It can use with standard master-slave composition.

DBI, Data::Model::Driver::DBI, Data::Model

Kazuhiro Osawa <yappo <at> shibuya <döt> pl>

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