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_13';
  10
  11 =head1 NAME
  12
  13 DBIx::Class::Schema::Loader::DBI::ODBC - L<DBD::ODBC> proxy, currently only for
  14 Microsoft SQL Server
  15
  16 =head1 DESCRIPTION
  17
  18 Reblesses into L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
  19 which is a proxy for L<DBIx::Class::Schema::Loader::DBI::MSSQL> when using the
  20 L<DBD::ODBC> driver with Microsoft SQL Server.
  21
  22 Code stolen from the L<DBIx::Class> ODBC storage.
  23
  24 See L<DBIx::Class::Schema::Loader::Base> for usage information.
  25
  26 =cut
  27
  28 sub _rebless {
  29   my $self = shift;
  30   my $dbh  = $self->schema->storage->dbh;
  31
  32 # stolen from DBIC ODBC storage
  33   my $dbtype = eval { $dbh->get_info(17) };
  34   unless ( $@ ) {
  35     # Translate the backend name into a perl identifier
  36     $dbtype =~ s/\W/_/gi;
  37     my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
  38     if ($self->load_optional_class($class) && !$self->isa($class)) {
  39         bless $self, $class;
  40         $self->_rebless;
  41     }
  42   }
  43 }
  44
  45 =head1 SEE ALSO
  46
  47 L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
  48 L<DBIx::Class::Schema::Loader::DBI::MSSQL>,
  49 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
  50 L<DBIx::Class::Schema::Loader::DBI>
  51
  52 =head1 AUTHOR
  53
  54 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
  55
  56 =head1 LICENSE
  57
  58 This library is free software; you can redistribute it and/or modify it under
  59 the same terms as Perl itself.
  60
  61 =cut
  62
  63 1;