use base qw/DBIx::Class::Storage::DBI/;
use mro 'c3';
use List::Util();
+use Try::Tiny;
=head1 NAME
=cut
-sub can_insert_returning { 1 }
+sub _supports_insert_returning { 1 }
sub _sequence_fetch {
my ($self, $nextval, $sequence) = @_;
local $dbh->{RaiseError} = 1;
local $dbh->{PrintError} = 0;
- eval {
+ my $rc = 1;
+ try {
$dbh->do('select 1 from rdb$database');
+ } catch {
+ $rc = 0;
};
- return $@ ? 0 : 1;
+ return $rc;
}
# We want dialect 3 for new features and quoting to work, DBD::InterBase uses
}
}
-sub _populate_server_info {
+sub _get_server_version {
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(@_);