Higher-Order Parsing

新しいツールNew tools

「結果が特定の条件を満たすときのみAを実行する」ツールならこう
Or "do what A does, but only if the result satisfies some condition":

        sub side_condition {
          my ($A, $condition) = @_;
          my $parser = sub {    
            my $in = shift;
            my ($res, $out) = $A->($in)
                or return;
            $condition->($res) or return;
     
            return ($res, $out);
          };
        }