Perl-DBIC/INSERT-DELETE-UPDATE のバックアップ(No.4) - yanor.net/wiki

INSERT / DELETE / UPDATE

INSERT

 $person_rs->create({
    name  => "Some Person",
    email => "somebody@someplace.com"
 });

シリアル型のキーを取得（last_insert_id()）

 $person = $person_rs->create({
    name  => "Some Person",
    email => "somebody@someplace.com"
 });
 $person_id =  $person->person_id;

http://search.cpan.org/~ash/DBIx-Class-0.08010/lib/DBIx/Class/ResultSet.pm#create

条件にマッチした行をすべて削除する

 $rs->search({name =>'taro'})->delete_all;