[dbsrgits/DBIx-Class-Schema-Loader.git] / lib / DBIx / Class / Schema / Loader / DBI / ODBC.pm

package DBIx::Class::Schema::Loader::DBI::ODBC;

use strict;
use warnings;
use base 'DBIx::Class::Schema::Loader::DBI';
use Carp::Clan qw/^DBIx::Class/;
use Class::C3;

our $VERSION = '0.04999_06';

sub _rebless {
  my $self = shift;
  my $dbh  = $self->schema->storage->dbh;

# stolen from DBIC ODBC driver for MSSQL
  my $dbtype = eval { $dbh->get_info(17) };
  unless ( $@ ) {
    # Translate the backend name into a perl identifier
    $dbtype =~ s/\W/_/gi;
    my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
    eval "require $class";
    bless $self, $class unless $@;
  }
}

1;
Commit	Line	Data
995edf3f	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;