Data::RuledValidator 0.07

テストを結構書きましたが、まだ足りない気がします。
0.06からフィルターの機能を追加しました。

こんなルールを書きます。

 ;;GLOBAL
 
 ID_KEY page
 
 filter * with trim
 page is word
 
 ;;hoge
 
 i    is num
 n    is num
 w    is word

コードはこんなの。

 use Data::RuledValidator;

 my $q = CGI->new;
 my $v = Data::RuledValidator->new
  (
   obj    => $q              ,
   method => 'param'         ,
   rule   => "validator.rule",
   filter_replace => 1       ,
  );
 
  if($v->by_rule()){
     # ok
     ...

  }else{
     # ng
     ...

  }