1 package DBIx::Class::Schema::Loader::DBI::ADO;
5 use base 'DBIx::Class::Schema::Loader::DBI';
8 our $VERSION = '0.07036_04';
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)) {
41 my ($self, $opts) = @_;
43 return $self->next::method($opts, undef, undef);
49 local $^W = 0; # turn off exception printing from Win32::OLE
51 $self->next::method(@_);
56 L<DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server>,
57 L<DBIx::Class::Schema::Loader::DBI::ADO::MS_Jet>,
58 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
59 L<DBIx::Class::Schema::Loader::DBI>
63 See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
67 This library is free software; you can redistribute it and/or modify it under
68 the same terms as Perl itself.