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