Commit | Line | Data |
---|---|---|
dbd7896f | 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; |