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');
11 unless ((my $dbh = $class->_dbh) && $dbh->FETCH('Active') && $dbh->ping) {
12 $class->_populate_dbh;
19 my @info = @{$class->_dbi_connect_info || []};
20 my $pkg = $class->_dbi_connect_package || $class;
21 $pkg->_dbh($class->_dbi_connect(@info));
25 my ($class, @info) = @_;
26 return DBI->connect_cached(@info);