lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm

   1 package DBIx::Class::Schema::Loader::DBI::ODBC;
   2
   3 use strict;
   4 use warnings;
   5 use base 'DBIx::Class::Schema::Loader::DBI';
   6 use Carp::Clan qw/^DBIx::Class/;
   7 use Class::C3;
   8
   9 our $VERSION = '0.04999_06';
  10
  11 sub _rebless {
  12   my $self = shift;
  13   my $dbh  = $self->schema->storage->dbh;
  14
  15 # stolen from DBIC ODBC driver for MSSQL
  16   my $dbtype = eval { $dbh->get_info(17) };
  17   unless ( $@ ) {
  18     # Translate the backend name into a perl identifier
  19     $dbtype =~ s/\W/_/gi;
  20     my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
  21     eval "require $class";
  22     bless $self, $class unless $@;
  23   }
  24 }
  25
  26 1;