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.07000';
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)) {
45 my ($self, $opts) = @_;
47 return $self->next::method($opts, undef, undef);
52 L<DBIx::Class::Schema::Loader::DBI::ODBC::Microsoft_SQL_Server>,
53 L<DBIx::Class::Schema::Loader::DBI::ODBC::SQL_Anywhere>,
54 L<DBIx::Class::Schema::Loader::DBI::ODBC::Firebird>,
55 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
56 L<DBIx::Class::Schema::Loader::DBI>
60 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
64 This library is free software; you can redistribute it and/or modify it under
65 the same terms as Perl itself.