1 package DBIx::Class::Schema::Loader::DBI::ODBC;
5 use base 'DBIx::Class::Schema::Loader::DBI';
7 use Carp::Clan qw/^DBIx::Class/;
10 our $VERSION = '0.07010';
14 DBIx::Class::Schema::Loader::DBI::ODBC - L<DBD::ODBC> proxy
18 Reblesses into an C<::ODBC::> class when connecting via L<DBD::ODBC>.
20 Code stolen from the L<DBIx::Class> ODBC storage.
22 See L<DBIx::Class::Schema::Loader::Base> for usage information.
29 return if ref $self ne __PACKAGE__;
31 # stolen from DBIC ODBC storage
32 my $dbh = $self->schema->storage->dbh;
33 my $dbtype = eval { $dbh->get_info(17) };
35 # Translate the backend name into a perl identifier
37 my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
38 if ($self->load_optional_class($class) && !$self->isa($class)) {
46 my ($self, $opts) = @_;
48 return $self->next::method($opts, undef, undef);
53 L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
54 L<DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere>,
55 L<DBIx::Class::Schema::Loader::DBI::ODBC::Firebird>,
56 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
57 L<DBIx::Class::Schema::Loader::DBI>
61 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
65 This library is free software; you can redistribute it and/or modify it under
66 the same terms as Perl itself.