use Test::Exception;
use Test::More;
-use Sub::Name;
use Try::Tiny;
+use DBIx::Class::_Util 'set_subname';
use DBICTest;
no warnings qw/once redefine/;
my $old_connection = DBICTest::Schema->can('connection');
- local *DBICTest::Schema::connection = subname 'DBICTest::Schema::connection' => sub {
+ local *DBICTest::Schema::connection = set_subname 'DBICTest::Schema::connection' => sub {
my $s = shift->$old_connection (@_);
$s->storage->_use_insert_returning ($use_insert_returning);
$s->storage->sql_maker_class('DBIx::Class::SQLMaker::OracleJoins') if $force_ora_joins;