use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/;
use namespace::clean;
-our $VERSION = '0.07037';
+our $VERSION = '0.07039';
=head1 NAME
push @{$constr_names{$constr_name}}, $constr_col;
}
- my @uniqs = map { [ $_ => $constr_names{$_} ] } keys %constr_names;
- return \@uniqs;
+ return [ map { [ $_ => $constr_names{$_} ] } sort keys %constr_names ];
}
sub _table_comment {
$sth->execute($table->name, $table->schema);
while (my ($trigger_body) = $sth->fetchrow_array) {
- if (my ($seq_schema, $seq_name) = $trigger_body =~ /(?:\."?(\w+)"?)?"?(\w+)"?\.nextval/i) {
+ if (my ($seq_schema, $seq_name) = $trigger_body =~ /(?:"?(\w+)"?\.)?"?(\w+)"?\.nextval/i) {
if (my ($col_name) = $trigger_body =~ /:new\.(\w+)/i) {
$col_name = $self->_lc($col_name);