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