Select Code to Download

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

D:\>perl -MO=Deparse -e "sub MY_CONST(){'bla-bla'};$a=MY_CONST;print M
+Y_CONST;"
sub MY_CONST () {
...
$a = 'bla-bla';
print 'bla-bla';
-e syntax OK

D:\>perl -MO=Deparse -e "sub MY_CONST{'bla-bla'};$a=MY_CONST;print MY_
+CONST;"
sub MY_CONST {
...
$a = MY_CONST();
print MY_CONST();
-e syntax OK

C:\>perl -MO=Deparse -we "sub DEBUG{0}print 'this' if DEBUG;"
sub DEBUG {
...
}
'???';
-e syntax OK