- 追加された行はこの色です。
- 削除された行はこの色です。
* トランザクション [#v8746993]
** Catalystで [#g92d08e0]
my $rs = $c->model('DBIC::Member');
my $m_rs = $schema->model('Member');
my $coderef = sub {
foreach my $login_id (@login_ids) {
$rs->create(
$m_rs->create(
{
login_id => $login_id,
status_flg => 1,
}
);
}
};
my $rs;
eval {
$rs->schema->txn_do($coderef);
$rs = $schema->txn_do($coderef);
};
if ($@) {
$c->stash->{error_mesgs} = ['DBエラーが発生しました。',$@];
return;
die "DBエラー" if ($@ =~ /Rollback failed/);
}
** 参考 [#pd74f98d]
http://search.cpan.org/perldoc?DBIx::Class::Storage