1 package DBIx::Class::Schema::Loader::DBI::ADO;
5 use base 'DBIx::Class::Schema::Loader::DBI';
8 our $VERSION = '0.07042';
12 DBIx::Class::Schema::Loader::DBI::ADO - L<DBD::ADO> proxy
16 Reblesses into an C<::ADO::> class when connecting via L<DBD::ADO>.
18 See L<DBIx::Class::Schema::Loader::Base> for usage information.
25 return if ref $self ne __PACKAGE__;
27 my $dbh = $self->schema->storage->dbh;
28 my $dbtype = eval { $dbh->get_info(17) };
30 # Translate the backend name into a perl identifier
32 my $class = "DBIx::Class::Schema::Loader::DBI::ADO::${dbtype}";
33 if ($self->load_optional_class($class) && !$self->isa($class)) {
43 local $^W = 0; # turn off exception printing from Win32::OLE
45 $self->next::method(@_);
50 L<DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server>,
51 L<DBIx::Class::Schema::Loader::DBI::ADO::MS_Jet>,
52 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
53 L<DBIx::Class::Schema::Loader::DBI>
57 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
61 This library is free software; you can redistribute it and/or modify it under
62 the same terms as Perl itself.