1 package DBIx::Class::Schema::Loader::DBI::DB2;
5 use base 'DBIx::Class::Schema::Loader::DBI';
6 use Carp::Clan qw/^DBIx::Class::Schema::Loader/;
11 DBIx::Class::Schema::Loader::DBI::DB2 - DBIx::Class::Schema::Loader::DBI DB2 Implementation.
16 use base qw/DBIx::Class::Schema::Loader/;
18 __PACKAGE__->loader_options(
20 db_schema => "MYSCHEMA",
27 See L<DBIx::Class::Schema::Loader::Base>.
31 sub _table_uniq_info {
32 my ($self, $table) = @_;
36 my $dbh = $self->schema->storage->dbh;
38 my $sth = $self->{_cache}->{db2_uniq} ||= $dbh->prepare(
39 q{SELECT kcu.COLNAME, kcu.CONSTNAME, kcu.COLSEQ
40 FROM SYSCAT.TABCONST as tc
41 JOIN SYSCAT.KEYCOLUSE as kcu ON tc.CONSTNAME = kcu.CONSTNAME
42 WHERE tc.TABSCHEMA = ? and tc.TABNAME = ? and tc.TYPE = 'U'}
43 ) or die $DBI::errstr;
45 $sth->execute($self->db_schema, $table) or die $DBI::errstr;
48 while(my $row = $sth->fetchrow_arrayref) {
49 my ($col, $constname, $seq) = @$row;
50 push(@{$keydata{$constname}}, [ $seq, lc $col ]);
52 foreach my $keyname (keys %keydata) {
53 my @ordered_cols = map { $_->[1] } sort { $a->[0] <=> $b->[0] }
54 @{$keydata{$keyname}};
55 push(@uniqs, [ $keyname => \@ordered_cols ]);
65 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
66 L<DBIx::Class::Schema::Loader::DBI>