$self->preserve_case(0);
}
elsif ($self->preserve_case) {
- $self->schema->storage->quote_char('"');
- $self->schema->storage->name_sep('.');
+ $self->schema->storage->sql_maker->quote_char('"');
+ $self->schema->storage->sql_maker->name_sep('.');
}
}
my $sth = $dbh->column_info(undef, $self->db_schema, $self->_uc($table), '%');
- return [ map lc($_->{COLUMN_NAME}), @{ $sth->fetchall_arrayref({ COLUMN_NAME => 1 }) || [] } ];
+ return [ map $self->_lc($_->{COLUMN_NAME}), @{ $sth->fetchall_arrayref({ COLUMN_NAME => 1 }) || [] } ];
}
sub _table_uniq_info {
my $dbh = $self->schema->storage->dbh;
+ local $dbh->{LongReadLen} = 100000;
+ local $dbh->{LongTruncOk} = 1;
+
my $sth = $dbh->prepare_cached(q{
-SELECT atc.column_name
+SELECT atc.column_name, ut.trigger_body
FROM all_triggers ut
JOIN all_trigger_cols atc USING (trigger_name)
WHERE atc.table_name = ?
$sth->execute($self->_uc($table));
- while (my ($col_name) = $sth->fetchrow_array) {
- $result->{$self->_lc($col_name)}{is_auto_increment} = 1;
+ while (my ($col_name, $trigger_body) = $sth->fetchrow_array) {
+ $col_name = $self->_lc($col_name);
+
+ $result->{$col_name}{is_auto_increment} = 1;
+
+ if (my ($seq_name) = $trigger_body =~ /"?(\w+)"?\.nextval/i) {
+ $seq_name = $self->_lc($seq_name);
+
+ $result->{$col_name}{sequence} = $seq_name;
+ }
}
while (my ($col, $info) = each %$result) {