http://www.perlmonks.org?node_id=265731


in reply to Re: IYHO, what do you consider good code?
in thread IYHO, what do you consider good code?

Usually when writing debug code, I will use this type of statement (for just the reason above)... 
use constant DEBUG => 1;
...
...
warn "Foo" if DEBUG;

[download]
or 
use constant DEBUG => 1;
...
...
my $debugsub = DEBUG ? { warn @_ } : {}; #need to fix stack trace...
...
...
&$debugsub(foobar);

[download]
Allows turning it off in one location. Just my $0.02.

Replies are listed 'Best First'.
Re: Re: Re: IYHO, what do you consider good code?
by chromatic (Archbishop) on Jun 13, 2003 at 23:51 UTC

    Make it an environment variable and it's even easier:

    BEGIN
{
   $ENV{DEBUG} = $ENV{DEBUG} ? 0 : 1;
}
use constant DEBUG => $ENV{DEBUG};

    [download]

    Update: Good points both responses, though I'm slightly happier with the BEGIN block from a maintenance standpoint.

[reply]
[d/l]

      Make it a more specific environment variable and you're golden. Alzabo respects the ALZABO_DEBUG environment variable, your modules could do something similar.

[reply]

      BEGIN { $ENV{DEBUG} = $ENV{DEBUG} ? 0 : 1; } use constant DEBUG => $ENV{DEBUG};

      Why the BEGIN block? 

      use constant DEBUG => !!$ENV{DEBUG};

      [download]

      Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

[reply]
[d/l]

In Section Seekers of Perl Wisdom