Perl-DBIC/SELECT詳細/トランザクションのバックアップ(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIC/SELECT詳細/トランザクションへ行く。
- 1 (2008-09-06 (土) 03:24:30)

トランザクション

Catalystで

  my $rs = $c->model('DBIC::Member');
  my $coderef = sub {
      foreach my $login_id (@login_ids) {
          $rs->create(
              {
                  login_id   => $login_id,
                  status_flg => 1,
              }
          );
      }
  };
  eval {
      $rs->schema->txn_do($coderef);
  };
  if ($@) {
      $c->stash->{error_mesgs} = ['DBエラーが発生しました。',$@];
      return;
  }