Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse,-x,-p -e 'sub verbose() { 0 } print "guggug!\n" if ve
+rbose;'
sub verbose () { 0 }
'???';
-e syntax OK
  2. or download this
    perl -MO=Deparse,-x,-p -e 'sub verbose() { 0 } if(verbose){ print "gug
+gug!\n"};'
sub verbose () { 0 }
'???';
-e syntax OK