Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
In my main script I set up the debug constant like so:
Then I instantiate a object from a different package:my $debug; BEGIN { GetOptions('debug|d' => \$debug) or die } use constant DEBUG => $ENV{DEBUG} || $debug;
I want the $obj to know when it should be in debug mode (the debug value won't change during the script run), but don't want to pass it in as a variable, because then the compiler can't optimize away the debug code. The only way I see to do this is to do this in the Thing package:use Thing; my $obj = Thing->new;
This doesn't seem very clean. Is there a better way to deal with this, or is it a case of having your optimization and eating it too?use constant DEBUG => &main::DEBUG;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Accessing DEBUG constant from sub-package
by BrowserUk (Patriarch) on Aug 09, 2013 at 23:49 UTC | |
Re: Accessing DEBUG constant from sub-package
by tobyink (Canon) on Aug 10, 2013 at 07:06 UTC |
Back to
Seekers of Perl Wisdom