DBIx::Class::Schema::Loader::DBI
/;
use Carp::Clan qw/^DBIx::Class/;
-use Class::C3;
+use mro 'c3';
-our $VERSION = '0.07001';
+our $VERSION = '0.07002';
=head1 NAME
if $table =~ /\A(\w+)\z/;
}
- return $self->_filter_tables(\@tables, $opts);
+ {
+ # silence a warning from older DBD::Oracles in tests
+ my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
+ local $SIG{__WARN__} = sub {
+ $warn_handler->(@_)
+ unless $_[0] =~ /^Field \d+ has an Oracle type \(\d+\) which is not explicitly supported/;
+ };
+
+ return $self->_filter_tables(\@tables, $opts);
+ }
}
sub _table_columns {
$result->{$col_name}{is_auto_increment} = 1;
if (my ($seq_schema, $seq_name) = $trigger_body =~ /(?:\."?(\w+)"?)?"?(\w+)"?\.nextval/i) {
- $seq_schema = $self->_lc($seq_schema) || $self->db_schema;
+ $seq_schema = $self->_lc($seq_schema || $self->db_schema);
$seq_name = $self->_lc($seq_name);
$result->{$col_name}{sequence} = ($self->qualify_objects ? ($seq_schema . '.') : '') . $seq_name;