Mega Code Archive

 

Categories / Perl / Language Basics

 

Conditional debug

#!/usr/bin/perl use strict; use warnings; use subs qw(debug); unless (defined &debug) {     if ($ENV{DEBUG_ENABLED}) {         *debug = sub { print STDERR "@_\n" };     } else {         *debug = sub { }; #stub     } } debug "In debug mode";