1 package DBIx::Class::Schema::Loader::DBI::ODBC;
5 use base 'DBIx::Class::Schema::Loader::DBI';
8 our $VERSION = '0.07036_02';
12 DBIx::Class::Schema::Loader::DBI::ODBC - L<DBD::ODBC> proxy
16 Reblesses into an C<::ODBC::> class when connecting via L<DBD::ODBC>.
18 Code stolen from the L<DBIx::Class> ODBC storage.
20 See L<DBIx::Class::Schema::Loader::Base> for usage information.
27 return if ref $self ne __PACKAGE__;
29 # stolen from DBIC ODBC storage
30 my $dbh = $self->schema->storage->dbh;
31 my $dbtype = eval { $dbh->get_info(17) };
33 # Translate the backend name into a perl identifier
35 my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
36 if ($self->load_optional_class($class) && !$self->isa($class)) {
44 my ($self, $opts) = @_;
46 return $self->next::method($opts, undef, undef);
51 L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
52 L<DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere>,
53 L<DBIx::Class::Schema::Loader::DBI::ODBC::Firebird>,
54 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
55 L<DBIx::Class::Schema::Loader::DBI>
59 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
63 This library is free software; you can redistribute it and/or modify it under
64 the same terms as Perl itself.