NAME Data::Constraint - Trying to bring definitional succintness to Perl SYNOPSIS if (nonzero ($value,$value2,$value3)) { ; } if (zero ($value,$value2,$value3)) { ; } # do something when pagemode is one in the list. if (any(map { $PAGEMODE eq $_ } ('CONFIRM_OFFER', 'VIEW_DETAILS', 'Purchase Item', 'Confirm Counter Offer')) { handle_these_pagemodes() } Possibly more time-consuming, but certainly more succint! DESCRIPTION This module is to make constraint checking of lists of values more concise. KNOWN BUGS AND LIMITATIONS none SEE ALSO REBOL (http://www.rebol.com) AUTHOR Terrence Brannon COPYRIGHT This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.