Yanor.net/
Wiki
Blog
GitHub
Sandbox
開始行:
* トランザクション [#v8746993]
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/);
}
** 参考 [#pd74f98d]
http://search.cpan.org/perldoc?DBIx::Class::Storage
終了行:
* トランザクション [#v8746993]
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/);
}
** 参考 [#pd74f98d]
http://search.cpan.org/perldoc?DBIx::Class::Storage
ページ名: