lib/DBIx/Class/CDBICompat/ImaDBI.pm

   1 package DBIx::Class::CDBICompat::ImaDBI;
   2
   3 use strict;
   4 use warnings;
   5
   6 use NEXT;
   7
   8 sub db_Main {
   9   return $_[0]->_get_dbh;
  10 }
  11
  12 sub _dbi_connect {
  13   my ($class, @info) = @_;
  14   $info[3] = { %{ $info[3] || {}} };
  15   $info[3]->{RootClass} = 'DBIx::ContextualFetch';
  16   return $class->NEXT::_dbi_connect(@info);
  17 }
  18
  19 sub __driver {
  20   return $_[0]->_get_dbh->{Driver}->{Name};
  21 }
  22
  23 1;