# cat const_fast_optimization.pl #!/usr/bin/env perlusestrict;usewarnings;usev5.10;useConst::Fast;constmy$DEBUG=>1;if($DEBUG){printSTDERR"Hello Happy World of Debugging\n";}exit0;# perl -MO=Terse const_fast_optimization.pl LISTOP(0x9313d0)leave[1]OP(0x79eb20)enterCOP(0x931070)nextstateUNOP(0x931530)entersub[3]UNOP(0x923d90)null[148]OP(0x8baba0)pushmarkUNOP(0x931390)srefgenUNOP(0x931440)null[148]OP(0x8bab00)padsv[2]SVOP(0x8ba9e0)const[7]IV(0x921cb0)1UNOP(0x99fb80)null[17]PADOP(0x92b6d0)gvGV(0x92fbe8)*constCOP(0x923c60)nextstateUNOP(0x931120)nullLOGOP(0x931290)andOP(0x930f60)padsv[2]LISTOP(0x931310)scopeOP(0x923b50)null[183]LISTOP(0x931180)printOP(0x9314b0)pushmarkUNOP(0x9311e0)rv2gvPADOP(0x9312d0)gvGV(0x7a4768)*STDERRSVOP(0x931220)const[8]PV(0x921c80)"Hello Happy World of Debugging\n"COP(0x923d00)nextstateUNOP(0x930fc0)exitSVOP(0x931000)const[9]IV(0x921bf0)0const_fast_optimization.plsyntaxOK
Nice post. Here is Const::Fast
Thanks for the example :-)
Any conclusions on your behalf?