1 package DBIx::Class::Schema::Loader::DBI::DB2;
5 use base 'DBIx::Class::Schema::Loader::DBI';
6 use Carp::Clan qw/^DBIx::Class/;
9 our $VERSION = '0.04999_04';
13 DBIx::Class::Schema::Loader::DBI::DB2 - DBIx::Class::Schema::Loader::DBI DB2 Implementation.
18 use base qw/DBIx::Class::Schema::Loader/;
20 __PACKAGE__->loader_options( db_schema => "MYSCHEMA" );
26 See L<DBIx::Class::Schema::Loader::Base>.
30 sub _table_uniq_info {
31 my ($self, $table) = @_;
35 my $dbh = $self->schema->storage->dbh;
37 my $sth = $self->{_cache}->{db2_uniq} ||= $dbh->prepare(
38 q{SELECT kcu.COLNAME, kcu.CONSTNAME, kcu.COLSEQ
39 FROM SYSCAT.TABCONST as tc
40 JOIN SYSCAT.KEYCOLUSE as kcu ON tc.CONSTNAME = kcu.CONSTNAME
41 WHERE tc.TABSCHEMA = ? and tc.TABNAME = ? and tc.TYPE = 'U'}
42 ) or die $DBI::errstr;
44 $sth->execute($self->db_schema, uc $table) or die $DBI::errstr;
47 while(my $row = $sth->fetchrow_arrayref) {
48 my ($col, $constname, $seq) = @$row;
49 push(@{$keydata{$constname}}, [ $seq, lc $col ]);
51 foreach my $keyname (keys %keydata) {
52 my @ordered_cols = map { $_->[1] } sort { $a->[0] <=> $b->[0] }
53 @{$keydata{$keyname}};
54 push(@uniqs, [ $keyname => \@ordered_cols ]);
62 # DBD::DB2 doesn't follow the DBI API for ->tables
66 my $dbh = $self->schema->storage->dbh;
67 my @tables = map { lc } $dbh->tables(
68 $self->db_schema ? { TABLE_SCHEM => $self->db_schema } : undef
70 s/\Q$self->{_quoter}\E//g for @tables;
71 s/^.*\Q$self->{_namesep}\E// for @tables;
77 my ($self, $table) = @_;
78 return $self->next::method(uc $table);
82 my ($self, $table) = @_;
84 my $rels = $self->next::method(uc $table);
86 foreach my $rel (@$rels) {
87 $rel->{remote_table} = lc $rel->{remote_table};
93 sub _columns_info_for {
94 my ($self, $table) = @_;
95 return $self->next::method(uc $table);
98 sub _extra_column_info {
99 my ($self, $info) = @_;
102 my ($table, $column) = @$info{qw/TABLE_NAME COLUMN_NAME/};
104 my $dbh = $self->schema->storage->dbh;
105 my $sth = $dbh->prepare_cached(
109 WHERE tabschema = ? AND tabname = ? AND colname = ?
110 AND identity = 'Y' AND generated != ''
113 $sth->execute($self->db_schema, $table, $column);
114 if ($sth->fetchrow_array) {
115 $extra_info{is_auto_increment} = 1;
123 L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
124 L<DBIx::Class::Schema::Loader::DBI>