+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use List::Util 'shuffle';
use DBIx::Class::_Util 'sigwarn_silencer';
-use lib qw(t/lib);
+
use DBICTest;
# Test txn_scope_guard
}
};
+
+ # we are driving manually here, do not allow interference
+ local $SIG{__DIE__} if $SIG{__DIE__};
+
+
no warnings 'redefine';
local *DBIx::Class::Storage::DBI::txn_rollback = sub { die 'die die my darling' };
Class::C3->reinitialize() if DBIx::Class::_ENV_::OLD_MRO;