Select Code to Download

use constant DEBUG => 0;

use strict;
use warnings;
...
print "Hello World\n";
print "This is a debug Statement\n" if DEBUG;
print "Goodbye Cruel Word\n";

use constant ('DEBUG', 0);
use warnings;
...
print "Hello World\n";
'???';
print "Goodbye Cruel Word\n";

use strict;
use warnings;
...
    noconstant => sub { my $a = 10 * $b; },
};

                Rate   constant noconstant
constant   1498536/s         --       -17%
noconstant 1796946/s        20%         --