use warnings;
use base 'DBIx::Class::Schema::Loader::DBI::Sybase::Common';
use mro 'c3';
-use List::MoreUtils 'any';
+use List::Util 'any';
use namespace::clean;
use DBIx::Class::Schema::Loader::Table::Sybase ();
-our $VERSION = '0.07022';
+our $VERSION = '0.07045';
=head1 NAME
if ($self->load_optional_class($subclass) && !$self->isa($subclass)) {
bless $self, $subclass;
$self->_rebless;
- }
+ }
}
}
}
sub _tables_list {
- my ($self, $opts) = @_;
+ my ($self) = @_;
my @tables;
}
}
- return $self->_filter_tables(\@tables, $opts);
+ return $self->_filter_tables(\@tables);
}
sub _uid {
local $self->dbh->{FetchHashKeyName} = 'NAME_lc';
my $sth = $self->dbh->prepare(<<"EOF");
-sp_pkeys @{[ $self->dbh->quote($table->name) ]},
+sp_pkeys @{[ $self->dbh->quote($table->name) ]},
@{[ $self->dbh->quote($table->schema) ]},
@{[ $self->dbh->quote($db) ]}
EOF
}
}
- my @uniqs = map { [ $_ => $uniqs{$_} ] } keys %uniqs;
-
$self->dbh->do("USE [$current_db]");
- return \@uniqs;
+ return [ map { [ $_ => $uniqs{$_} ] } sort keys %uniqs ];
}
sub _columns_info_for {
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