use mro 'c3';
use Scope::Guard ();
-use Scalar::Util 'weaken';
use Context::Preserve 'preserve_context';
use namespace::clean;
$self->_do_query('SET CONSTRAINTS ALL DEFERRED');
- weaken($self);
- return preserve_context {
- my $sg = Scope::Guard->new(sub {
- $self->_do_query('SET CONSTRAINTS ALL IMMEDIATE');
- });
- $sub->()
- } after => sub { $txn_scope_guard->commit };
+ my $sg = Scope::Guard->new(sub {
+ $self->_do_query('SET CONSTRAINTS ALL IMMEDIATE');
+ });
+
+ return preserve_context { $sub->() } after => sub { $txn_scope_guard->commit };
}
=head2 connect_call_datetime_setup