1 package DBIx::Class::Schema::Loader::DBI::ADO;
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::ADO - L<DBD::ADO> proxy
18 Reblesses into an C<::ADO::> class when connecting via L<DBD::ADO>.
20 See L<DBIx::Class::Schema::Loader::Base> for usage information.
27 return if ref $self ne __PACKAGE__;
29 my $dbh = $self->schema->storage->dbh;
30 my $dbtype = eval { $dbh->get_info(17) };
32 # Translate the backend name into a perl identifier
34 my $class = "DBIx::Class::Schema::Loader::DBI::ADO::${dbtype}";
35 if ($self->load_optional_class($class) && !$self->isa($class)) {
43 my ($self, $opts) = @_;
45 return $self->next::method($opts, undef, undef);
51 local $^W = 0; # turn off exception printing from Win32::OLE
53 $self->next::method(@_);
58 L<DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server>,
59 L<DBIx::Class::Schema::Loader::DBI::ADO::MS_Jet>,
60 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
61 L<DBIx::Class::Schema::Loader::DBI>
65 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
69 This library is free software; you can redistribute it and/or modify it under
70 the same terms as Perl itself.