Help for this page

Select Code to Download


  1. or download this
     > perl -MO=Deparse tst.pl
    sub BEGIN {
        sub MyPackg::DBG {
    ...
    print 'DEBUGGING' if DBG();  # <-- oops
    print 'huhu';
    tst.pl syntax OK
    
  2. or download this
    BEGIN {
      sub MyPackg::Debug {!!0};
    ...
    print "DEBUGGING" if DBG; # won't be compiled
     
    print "huhu";
    
  3. or download this
     > perl -MO=Deparse tst.pl
    sub BEGIN {
        sub MyPackg::Debug {
    ...
    '???';
    print 'huhu';
    tst.pl syntax OK