=cut
-sub can_insert_returning { 1 }
+sub _supports_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(@_);