Model::Cowrapper: add integrety check to use_transaction()

diff --git a/src/newslash_web/lib/Newslash/Model/Cowrapper.pm b/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
index 298f519..bac2e11 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
+++ b/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
@@ -179,6 +179,10 @@ sub use_transaction {
     my $self = shift;
     my $dbh = shift;
 
+    if ($self->transaction_mode) {
+        die "already transaction started";
+    }
+
     if ($dbh) {
         $self->{_transactions} = 2;
         $self->{_tr_dbh} = $dbh;