use strict;
use warnings;
use base 'DBIx::Class::Schema::Loader::DBI';
+use Carp::Clan qw/^DBIx::Class/;
use Class::C3;
+our $VERSION = '0.03999_01';
+
=head1 NAME
DBIx::Class::Schema::Loader::DBI::DB2 - DBIx::Class::Schema::Loader::DBI DB2 Implementation.
FROM SYSCAT.TABCONST as tc
JOIN SYSCAT.KEYCOLUSE as kcu ON tc.CONSTNAME = kcu.CONSTNAME
WHERE tc.TABSCHEMA = ? and tc.TABNAME = ? and tc.TYPE = 'U'}
- );
+ ) or die $DBI::errstr;
$sth->execute($self->db_schema, $table) or die $DBI::errstr;
@{$keydata{$keyname}};
push(@uniqs, [ $keyname => \@ordered_cols ]);
}
+
$sth->finish;
return \@uniqs;