Help for this page

Select Code to Download


  1. or download this
    BEGIN {
    sub MyPackg::DBG() {
...
package MyPackg;
print 'DEBUGGING' if DBG();  # <-- oops
print 'huhu';
  2. or download this
    F:\>perl -MO=Deparse tmp.pl
sub MyPackg::DBG () { 0 }
...
'???';
print 'huhu';
tmp.pl syntax OK