フレームワークとか O/R マッパーとか使って Web アプリを作ると全体の作業にしめるValidation の割合が相対的に多くなりがちで、どうにか楽出来ないかと考えています。~

で、Data::FormValidatorとかFormValidator::Simpleとかの Validation 条件を定義するタイプのやつもいいかなと思いつつ、中々手が出ません。

というのも、エラー文言の表示や「○○がある場合のみ××が存在しないといけない」みたいな条件がうまく定義出来るのかが心配で。

で、最近は以下のようにしています。

^# $self->r is-a Apache::Request

^my $validator = Project::Validator->new($self->r);

^$validator->not_null('name');

^$validator->not_null('email') && $validator->email('email');

^

^if($validator->has_error) {

^ return FAIL, $validator->errors;

^}

以下のように Validation するメソッドを定義して True or False を返しています。

また、内部にエラーを表現するオブジェクトを保持しています。

^sub not_null {

^ my($self, $key, $error) = @_;

^ $error ||= "error.$key.required";

^ unless (length($self->param($key))){

^ $self->errors->add($error);

^ return FAIL;

^ }

^ return SUCCESS;

^}

errors はエラーをキーと文言で管理するオブジェクトです。Tie::IxHash を利用した順番を保持するハッシュです。

また、エラー文言は Data::Properties を利用して外部ファイルに記述しています。

外部ファイル化してるのはうちの場合エラー文言はエンジニア以外に書いてもらう事も多いので出来るだけ単純な Syntax にしたいという狙いがあります。

^error.name.required = 名前を入力してください。

^error.email.required = メールアドレスを入力してください。

^error.email.invalid = メールアドレスの形式を確認してください。

テンプレートでは以下のようにしてエラー文言を表示しています。

^[% IF errors.size -%]

^以下の項目について確認してください。

^