use base qw/DBIx::Class::Schema::Loader::DBI/;
use mro 'c3';
use Scalar::Util 'looks_like_number';
-use List::MoreUtils 'any';
+use List::Util 'any';
use Try::Tiny;
use namespace::clean;
use DBIx::Class::Schema::Loader::Table::Informix ();
-our $VERSION = '0.07012';
+our $VERSION = '0.07049';
=head1 NAME
}
sub _tables_list {
- my ($self, $opts) = @_;
+ my ($self) = @_;
my @tables;
}
}
- return $self->_filter_tables(\@tables, $opts);
+ return $self->_filter_tables(\@tables);
}
sub _constraints_for {
sub _idx_colnames {
my ($self, $idx_info, $table_cols_by_colno) = @_;
- return [ map $self->_lc($table_cols_by_colno->{$_}), grep $_, map $idx_info->{$_}, map "part$_", (1..16) ];
+ return [ map $table_cols_by_colno->{$_}, grep $_, map $idx_info->{$_}, map "part$_", (1..16) ];
}
sub _colnames_by_colno {
EOF
$sth->execute($table);
my $cols = $sth->fetchall_hashref('colno');
- $cols = { map +($_, $cols->{$_}{colname}), keys %$cols };
+ $cols = { map +($_, $self->_lc($cols->{$_}{colname})), keys %$cols };
return $cols;
}
my $constraints = $self->_constraints_for($table, 'U');
- my @uniqs = map { [ $_ => $constraints->{$_} ] } keys %$constraints;
- return \@uniqs;
+ return [ map { [ $_ => $constraints->{$_} ] } sort keys %$constraints ];
}
sub _table_fk_info {
# if (lc($data_type) eq 'varchar') {
# $result->{$col}{size}[1] = $info->{colmin};
# }
-
+
my ($default_type, $default) = @{$info}{qw/deflt_type deflt/};
next unless $default_type;
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