use namespace::clean;
__PACKAGE__->sql_limit_dialect ('RowNum');
+__PACKAGE__->sql_quote_char ('"');
=head1 NAME
# disable default bindtype
local $sql_maker->{bindtype} = 'normal';
-
# look up the correct sequence automatically
my ( $schema, $table ) = $source_name =~ /( (?:${ql})? \w+ (?:${qr})? ) \. ( (?:${ql})? \w+ (?:${qr})? )/x;
+
+ # if no explicit schema was requested - use the default schema (which in the case of Oracle is the db user)
+ $schema ||= uc( ($self->_dbi_connect_info||[])->[1] || '');
+
my ($sql, @bind) = $sql_maker->select (
'ALL_TRIGGERS',
[qw/TRIGGER_BODY TABLE_OWNER TRIGGER_NAME/],
return wantarray ? @res : $res[0];
}
+sub _dbh_execute_array {
+ #my ($self, $sth, $tuple_status, @extra) = @_;
+
+ # DBD::Oracle warns loudly on partial execute_array failures
+ local $_[1]->{PrintWarn} = 0;
+
+ shift->next::method(@_);
+}
+
=head2 get_autoinc_seq
Returns the sequence name for an autoincrement column