Help for this page
my %failed; if (CONDITION) { $failed{"name"} ++; }; # more checks .... return scalar keys %failed ? \%failed : ();
my $what_failed = complex_check { check { CONDITION; } "name"; check { CONDITION; } "name"; # .... };