Catalyst で DB への commit / rollback のためにこんなコードを書いていて…… package MyWebApp; # 略 sub finalize { my $c = shift; my $r = $c->NEXT::finalize(@_); if (正常終了) { $dbh->commit; } else { $dbh->rollback; } return $r; } 他の finali…