X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FODBC%2FACCESS.pm;h=1b1909ab0022a48124a6ef4394724bb4d044f68a;hb=8c4b6c50e873a2b5993d1bfe0f40763d994b7da4;hp=c0df4b100016971eb5139b4724dc5df7aeaf14ba;hpb=65c2b042016f9bd215b8159586da02f9457ebf96;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm b/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm index c0df4b1..1b1909a 100644 --- a/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm +++ b/lib/DBIx/Class/Storage/DBI/ODBC/ACCESS.pm @@ -2,8 +2,10 @@ package DBIx::Class::Storage::DBI::ODBC::ACCESS; use strict; use warnings; -use DBI; use base qw/DBIx::Class::Storage::DBI/; +use mro 'c3'; + +use DBI; my $ERR_MSG_START = __PACKAGE__ . ' failed: '; @@ -38,11 +40,11 @@ sub last_insert_id { sub bind_attribute_by_data_type { my $self = shift; - + my ( $data_type ) = @_; - + return { TYPE => $data_type } if $data_type == DBI::SQL_LONGVARCHAR; - + return; }