Suppose I have a set of named conditions which should hold true for each element in a set of data. The conditions may be reasonably complex, like $x->foo < $x->bar * 2; etc. And I'd like to see which of the conditions were not met, for each data element.

Now, there is an obvious although a bit verbose way:

my %failed;
if (CONDITION) {
    $failed{"name"} ++;
};
# more checks ....
return scalar keys %failed ? \%failed : ();
[download]

I believe the same can be done via dispatch tables.

However, I'd like to have a more, um, DWIM-ish way:

my $what_failed = complex_check {
    check { CONDITION; } "name";
    check { CONDITION; } "name";
    # ....
};
[download]

I believe this is reasonably simple to write from scratch, but is there a module that does something similar already?