DBIx::Class::Schema::Loader::DBI::ADO - L<DBD::ADO> proxy

DBIx-Class-Schema-Loader documentation Contained in the DBIx-Class-Schema-Loader distribution.

Index

Code Index:

NAME

Top

DBIx::Class::Schema::Loader::DBI::ADO - DBD::ADO proxy

DESCRIPTION

Top

Reblesses into an ::ADO:: class when connecting via DBD::ADO.

See DBIx::Class::Schema::Loader::Base for usage information.

SEE ALSO

Top

DBIx::Class::Schema::Loader::DBI::ADO::Microsoft_SQL_Server, DBIx::Class::Schema::Loader::DBI::ADO::MS_Jet, DBIx::Class::Schema::Loader, DBIx::Class::Schema::Loader::Base, DBIx::Class::Schema::Loader::DBI

AUTHOR

Top

See AUTHOR in DBIx::Class::Schema::Loader and CONTRIBUTORS in DBIx::Class::Schema::Loader.

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

DBIx-Class-Schema-Loader documentation Contained in the DBIx-Class-Schema-Loader distribution. 
package DBIx::Class::Schema::Loader::DBI::ADO;

use strict;
use warnings;
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';
use Carp::Clan qw/^DBIx::Class/;
use namespace::clean;

our $VERSION = '0.07010';


sub _rebless {
  my $self = shift;

  return if ref $self ne __PACKAGE__;

  my $dbh  = $self->schema->storage->dbh;
  my $dbtype = eval { $dbh->get_info(17) };
  unless ( $@ ) {
    # Translate the backend name into a perl identifier
    $dbtype =~ s/\W/_/gi;
    my $class = "DBIx::Class::Schema::Loader::DBI::ADO::${dbtype}";
    if ($self->load_optional_class($class) && !$self->isa($class)) {
        bless $self, $class;
        $self->_rebless;
    }
  }
}

sub _tables_list {
    my ($self, $opts) = @_;

    return $self->next::method($opts, undef, undef);
}

sub _filter_tables {
    my $self = shift;

    local $^W = 0; # turn off exception printing from Win32::OLE

    $self->next::method(@_);
}


1;