Select Code to Download

#!/usr/bin/perl

...
    'ParamsValidateAssert' => sub { eval { ParamsValidateAssert($_) } 
+for (@nums) },    
    'OrAssert'             => sub { eval { OrAssert($_)             } 
+for (@nums) },   
});

Benchmark: timing 10000 iterations of OrAssert, ParamsValidateAssert..
+.
  OrAssert:  8 wallclock secs ( 7.02 usr +  0.01 sys =  7.03 CPU) @ 14
+22.48/s (n=10000)
...
                       Rate ParamsValidateAssert             OrAssert
ParamsValidateAssert  113/s                   --                 -92%
OrAssert             1422/s                1155%                   --