use Carp::Clan qw/^DBIx::Class/;
use UNIVERSAL::require;
-our $VERSION = '0.04999_01';
+our $VERSION = '0.04999_06';
=head1 NAME
croak "Failed to require $subclass: $@";
}
elsif(!$@) {
- bless $self, "DBIx::Class::Schema::Loader::DBI::${driver}";
+ bless $self, $subclass unless $self->isa($subclass);
}
# Set up the default quoting character and name seperators
my ($self, $table) = @_;
my $dbh = $self->schema->storage->dbh;
- my $sth = $dbh->foreign_key_info( '', '', '', '',
- $self->db_schema, $table );
+ my $sth = $dbh->foreign_key_info( '', $self->db_schema, '',
+ '', $self->db_schema, $table );
return [] if !$sth;
my %rels;
my %result;
eval {
my $sth = $dbh->column_info( undef, $self->db_schema, $table, '%' );
- $sth->execute();
while ( my $info = $sth->fetchrow_hashref() ){
my %column_info;
$column_info{data_type} = $info->{TYPE_NAME};