1 package DBIx::Class::Schema::Loader::DBI::ODBC;
5 use base 'DBIx::Class::Schema::Loader::DBI';
6 use Carp::Clan qw/^DBIx::Class/;
9 our $VERSION = '0.05003';
13 DBIx::Class::Schema::Loader::DBI::ODBC - L<DBD::ODBC> proxy
17 Reblesses into an C<::ODBC::> class when connecting via L<DBD::ODBC>.
19 Code stolen from the L<DBIx::Class> ODBC storage.
21 See L<DBIx::Class::Schema::Loader::Base> for usage information.
28 return if ref $self ne __PACKAGE__;
30 # stolen from DBIC ODBC storage
31 my $dbh = $self->schema->storage->dbh;
32 my $dbtype = eval { $dbh->get_info(17) };
34 # Translate the backend name into a perl identifier
36 my $class = "DBIx::Class::Schema::Loader::DBI::ODBC::${dbtype}";
37 if ($self->load_optional_class($class) && !$self->isa($class)) {
47 return $self->next::method(undef, undef);
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>
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.