lib/DBIx/Class/Storage/DBI/ODBC.pm

   1 package DBIx::Class::Storage::DBI::ODBC;
   2 use strict;
   3 use warnings;
   4 use base qw/DBIx::Class::Storage::DBI/;
   5 use mro 'c3';
   6
   7 sub _rebless {
   8   my ($self) = @_;
   9
  10   if (my $dbtype = $self->_dbh_get_info(17)) {
  11     # Translate the backend name into a perl identifier
  12     $dbtype =~ s/\W/_/gi;
  13     my $subclass = "DBIx::Class::Storage::DBI::ODBC::${dbtype}";
  14
  15     return if $self->isa($subclass);
  16
  17     if ($self->load_optional_class($subclass)) {
  18       bless $self, $subclass;
  19       $self->_rebless;
  20     }
  21     else {
  22       warn "Expected driver '$subclass' not found, using generic support. " .
  23            "Please file an RT.\n";
  24     }
  25   }
  26   else {
  27     warn "Could not determine your database type, using generic support.\n";
  28   }
  29 }
  30
  31 1;
  32
  33 =head1 NAME
  34
  35 DBIx::Class::Storage::DBI::ODBC - Base class for ODBC drivers
  36
  37 =head1 DESCRIPTION
  38
  39 This class simply provides a mechanism for discovering and loading a sub-class
  40 for a specific ODBC backend.  It should be transparent to the user.
  41
  42 =head1 AUTHOR
  43
  44 See L<DBIx::Class/AUTHOR> and L<DBIx::Class/CONTRIBUTORS>.
  45
  46 =head1 LICENSE
  47
  48 You may distribute this code under the same terms as Perl itself.
  49
  50 =cut
  51 # vim:sts=2 sw=2: