* トランザクション [#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

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS