use warnings;
use base 'DBIx::Class::Schema::Loader::DBI::Component::QuotedDefault';
use mro 'c3';
-use List::MoreUtils 'any';
+use List::Util 'any';
use namespace::clean;
use DBIx::Class::Schema::Loader::Table ();
-our $VERSION = '0.07037';
+our $VERSION = '0.07043';
=head1 NAME
}
sub _tables_list {
- my ($self, $opts) = @_;
+ my ($self) = @_;
my @tables;
}
}
- return $self->_filter_tables(\@tables, $opts);
+ return $self->_filter_tables(\@tables);
}
sub _columns_info_for {
ON fk.foreign_table_id = fkt.table_id
JOIN sysuser fku
ON fkt.creator = fku.user_id
-JOIN sysidx pki
+JOIN sysidx pki
ON fk.primary_table_id = pki.table_id AND fk.primary_index_id = pki.index_id
-JOIN sysidx fki
+JOIN sysidx fki
ON fk.foreign_table_id = fki.table_id AND fk.foreign_index_id = fki.index_id
JOIN sysidxcol fkic
ON fkt.table_id = fkic.table_id AND fki.index_id = fkic.index_id
push @{$constraints->{$constraint_name}}, $self->_lc($column);
}
- my @uniqs = map { [ $_ => $constraints->{$_} ] } keys %$constraints;
- return \@uniqs;
+ return [ map { [ $_ => $constraints->{$_} ] } sort keys %$constraints ];
}
=head1 SEE ALSO
L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
L<DBIx::Class::Schema::Loader::DBI>
-=head1 AUTHOR
+=head1 AUTHORS
-See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
+See L<DBIx::Class::Schema::Loader/AUTHORS>.
=head1 LICENSE