use strict;
use warnings;
-use base qw/DBIx::Class::Storage::DBI::InsertReturning/;
+use base qw/DBIx::Class::Storage::DBI/;
use mro 'c3';
use List::Util();
=cut
+sub can_insert_returning { 1 }
+
sub _sequence_fetch {
my ($self, $nextval, $sequence) = @_;
}
}
+sub _populate_server_info {
+ my $self = shift;
+
+ return $self->next::method(@_) if ref $self ne __PACKAGE__;
+
+ local $SIG{__WARN__} = sub {}; # silence warning due to bug in DBD::InterBase
+
+ return $self->next::method(@_);
+}
+
=head2 connect_call_use_softcommit
Used as: