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 <princepawn@yahoo.com>

COPYRIGHT

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.