ふと Class::DBI で、update_from_sql() というメソッドを定義したくなった。 あんま面白くないので、読みたい人だけ読みたまへ。 で、こんな感じのものを、親 class 内に定義してみた。 __PACKAGE__->set_sql(UpdateFromSQL =><<''); UPDATE __TABLE__ SET %s WHERE %s sub update_from_sql { my($class, $values, $sql, @bind_args) = @_; my @update_columns = (); my @update_values = (); while (my($colname, $value) = each %$values) { push @update_columns, $colname; push @update_values, $
![Class::DBI で trigger ポイントのために払う犠牲 : にぽたん研究所](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)