DBIC::DigestColumns::Lite

Perl

とりあえず決め打ちでDigest::SHA1でいいから簡単に使えるのを作った。
CPANにアップされているDBIC::DigestColumnsは設定項目が大杉。
そんなにいらんし。
昔オイラもDBIx::Class::DigestColumnsを作ってDBICのMLにながしてて
放置してたらだれかが別で作ってアップした。
なので同じ名前空間はつかえねーってことでLite。

使い方は



__PACKAGE__->load_components(qw/DigestColumns::Lite PK::Auto Core/);

とかしておいてやって。
スキーマの方で



package Proj::Schema::User;

....

__PACKAGE__->digest_columns('login_pw');

__PACKAGE__->digest_key('no not yet!!');

とかしてやるだけ。
digest_columnsのところに暗号化したいカラムのカラム名を設定。
digest_keyのところに暗号化する時に使う種を設定。

こうしておいてやれば->create({login_pw => 'anngouka'});
と普通にデータを作成する時に暗号化してくれま。

これだけ。
おてがるぅ。
CPANには気が向いたらアップするかもしないかも。
とりあえず、

http://code.mfac.jp/trac/browser/CPAN/nekokak/DBIx-Class-DigestColumns-Lite/

こちらからどうぞ。