定義済みの規則を使用してリダクションコードリーダを作成するライブラリ

Question

渡されたデータ構造を真偽値に減らす基本テストの構造化入力からコード参照を作成できる既存のCPANライブラリはありますか？コンストラクタから渡された属性を渡されたデータ構造体の属性にマップする必要があります（例：[attribute => 'something']は、渡されたスカラーの$_->{something}にマップされます）。

私は何かを書くことができましたが、私はそれを処理するためにCPANで何も見つけられません。本当に驚いています。誰かがこの種のことをするライブラリを知っていますか？

my @def = ([ [ attribute => 'something' ], '>', 50 ], 
      'and', 
      [ [ attribute => 'something_else' ], 'eq', 'match' ], 
     ); 

my $coderef = Reducer->new(@def); 

my @items = ({ something => 75, 
       something_else => 'match', 
       }, 
       { something => 20, 
       something_else => 'match', 
       }, 
       { something => 75, 
       something_else => 'no match', 
       }, 
       { something => 90, 
       something_else => 'match', 
       }, 
      ); 

for my $item (@items) { 
    $coderef->($item) ? say 'true' : say 'false'; 
}; 

出力：この問題または約

true 
false 
false 
true 

Answer 1

何も実際にあなたの例のコードは、私にはコードリファレンスが解決しようとする叫びます。定義と項目の両方をパラメータとして検証するサブルーチンを見つける可能性が高くなります。

私はそれらのいくつかがあることを知っています。最初に気になるものはParams::Validate::validateです。

定義構造はあなたのもの（属性のハッシュ、配列の代わりに検証仕様など）とは異なりますが、その周りにあなたの望むインタフェースをラップするのは簡単です。

package Params::Validate::Reducer; 
use strict; 
use warnings; 
use Params::Validate(); 
sub new { 
    my ($class, $def) = @_; 
    sub { 
     !! eval { 
      Params::Validate::validate(@_, $def); 
      1; 
     } 
    } 
}