use constant TRUE => 1;
use constant FALSE => 0;
Declaring such constants in Perl is generally agreed to be a Bad Idea. The return value of many "true" values in Perl
will generally not be equal to your "TRUE". And the return values of some "false" values is undef
, which will only noisily be equal to your "FALSE" (when warnings are enabled).
Just use the truth and falsehood tests within Perl as designed. Don't invent a data type or constant that doesn't exist.
-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.