load $DBI_CLASS

kazeburo · Apr 7, 2011 · 243f186 · 243f186
1 parent 67c95d1
commit 243f186
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Scope::Container::DBI
 
+0.03    Thu Apr 7 18:09:41 2011
+        -  fixed loading DBI_CLASS
+
 0.02    Thu Apr 7 17:55:03 2011
         - support DBI's subclass
 

diff --git a/Makefile.PL b/Makefile.PL
@@ -7,7 +7,7 @@ requires 'Log::Minimal';
 requires 'List::Util';
 requires 'Data::Dumper';
 requires 'DBI';
-
+requires 'Class::Load';
 
 tests 't/*.t';
 author_tests 'xt';

diff --git a/lib/Scope/Container/DBI.pm b/lib/Scope/Container/DBI.pm
@@ -6,10 +6,11 @@ use Scope::Container;
 use Log::Minimal;
 use List::Util qw/shuffle/;
 use Data::Dumper;
+use Class::Load qw/load_class/;
 use Carp;
 use DBI;
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 our $DBI_CLASS = 'DBI';
 
 sub connect {
@@ -47,6 +48,8 @@ sub connect {
     my ($dsn, $user, $pass, $attr) = @dsn;
     $attr->{AutoInactiveDestroy} = 1;
 
+    load_class $DBI_CLASS;
+
     my $dbh = do {
         if ($INC{'Apache/DBI.pm'} && $ENV{MOD_PERL}) {
             local $DBI::connect_via = 'connect'; # Disable Apache::DBI.