Data::Model::Driver::DBI - storage driver for DBI

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

  my $dbi_connect_options = {};
  my $driver = Data::Model::Driver::DBI->new(
      dsn             => 'dbi:mysql:host=localhost:database=test',
      username        => 'user',
      password        => 'password',
      connect_options => $dbi_connect_options,
      reuse_dbh       => 1, # sharing dbh (experimental option)
                            # When you use by MySQL, please set up
                            # connect_options => { mysql_auto_reconnect => 1 },
                            # simultaneously. but mysql_auto_reconnect is very unsettled.
  );

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

DBD that is working now is only mysql and SQLite.

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.