1 package DBIx::Class::DB;
3 use base qw/Class::Data::Inheritable/;
5 __PACKAGE__->mk_classdata('_dbi_connect_info');
6 __PACKAGE__->mk_classdata('_dbi_connect_package');
7 __PACKAGE__->mk_classdata('_dbh');
12 unless (($dbh = $class->_dbh) && $dbh->FETCH('Active') && $dbh->ping) {
13 $class->_populate_dbh;
20 my @info = @{$class->_dbi_connect_info || []};
21 my $pkg = $class->_dbi_connect_package || $class;
22 $pkg->_dbh($class->_dbi_connect(@info));
26 my ($class, @info) = @_;
27 return DBI->connect(@info);
31 my ($class, @info) = @_;
32 $class->_dbi_connect_package($class);
33 $class->_dbi_connect_info(\@info);