| blib/lib/Ado/Plugin/AdoHelpers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 3 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 28 | 1 | 1 | 0 | eval { do { $dbh->begin_work; foreach my $st (split(/;/msx, $SQL, 0)) { $last_statement = $st; $dbh->do($st) if $st =~ /\S+/msx; } ; $dbh->commit } } || do { my $e = "\nError in statement:$last_statement\n$@"; my $e2; $e2 = $/ . 'Additionally we have a rollback error:' . $@ unless eval { do { $dbh->rollback } }; $app->log->error($e . ($e2 ? $e2 : '')); Carp::croak($e . ($e2 ? $e2 : '')) } |