Help for this page

Select Code to Download


  1. or download this
    sub DEBUG {0}
print "blabla" if DEBUG;
  2. or download this
    C:\>perl -MO=Deparse -e "print 'this' if $x"
print 'this' if $x;
-e syntax OK
C:\>perl -MO=Deparse -e "print 'this' if 0"
'???';
-e syntax OK
  3. or download this
    C:\>perl -MO=Deparse -we "sub DEBUG{0}print 'this' if DEBUG;"
sub DEBUG {
    0;
...
}
'???';
-e syntax OK