File Coverage

blib/lib/DBIx/Class/Schema/Loader/DBI/ODBC.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod			n/a
total	16	37	43.2

package DBIx::Class::Schema::Loader::DBI::ODBC;

use strict;
use warnings;
use base 'DBIx::Class::Schema::Loader::DBI';
use mro 'c3';

our $VERSION = '0.07050';

=head1 NAME

DBIx::Class::Schema::Loader::DBI::ODBC - L proxy

=head1 DESCRIPTION

Reblesses into an C<::ODBC::> class when connecting via L.

Code stolen from the L ODBC storage.

See L for usage information.

=cut

sub _rebless {
    my $self = shift;

    return if ref $self ne __PACKAGE__;

    # stolen from DBIC ODBC storage
    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::ODBC::${dbtype}";
        if ($self->load_optional_class($class) && !$self->isa($class)) {
            bless $self, $class;
            $self->_rebless;
        }
    }
}

=head1 SEE ALSO

L,
L,
L,
L, L,
L

=head1 AUTHORS

See L.

=head1 LICENSE

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

=cut

1;