トランザクション

 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/); 
 }

参考

http://search.cpan.org/perldoc?DBIx::Class::Storage


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

Last-modified: 2009-06-17 (水) 04:26:56 (3382d)