package DBIx::RetryOverDisconnects::Immortal; use DBIx::RetryOverDisconnects; sub DBIx::RetryOverDisconnects::Immortal::txn_do { my ($self, $coderef) = @_; my $success = 0; eval( $success = $self ->DBIx::RetryOverDisconnects::txn_do($coderef) ); $success; }