- or download this
use Debug (1);
print "This is the program\n";
DEBUG { print "Debugging mode is ON\n"; };
print "Program continues...\n";
- or download this
use Debug (1);
use Debug (0, DBG_SPECIAL);
DEBUG { warn "First type\n"; };
DBG_SPECIAL { warn "Second type\n"; }
- or download this
# This goes in Debug.pm...
package Debug;
...
1;