Look what I found!:

use constant FALSE => -99999;
use Exporter;
*import = \&Exporter::import;
use vars qw( @EXPORT );
@EXPORT = qw( FALSE );

For non-Perlies, this defines a constant FALSE to be -99999, and then
forcibly exports it to anybody unwise enough to import the module,
overwriting any previous definition of FALSE. The module doesn't actually
use the symbol FALSE or the constant -99999 anywhere.

Reply via email to