トランザクションmy $m_rs = $schema->model('Member'); my $coderef = sub { foreach my $login_id (@login_ids) { $m_rs->create( { login_id => $login_id, status_flg => 1, } ); } }; my $rs; eval { $rs = $schema->txn_do($coderef); }; if ($@) { die "DBエラー" if ($@ =~ /Rollback failed/); } 参考 |
|