in reply to How do you use the if pragma?
how to use super search to find code:
search 'use if' with single quote as string separator (click search !!!)
> Since this is a pragma, it's executed before anything in my code, so I can't use variables or constants as a condition:
see this example of defining a constant VERBOSE to control following use statements.
--> Re: Redefining Imported Subs: of scope and no
But TIMTOWTDI, see BEGIN for a dynamic way to define variables at start up.
use strict; use warnings; my $VERBOSE; BEGIN {$VERBOSE=1 } use if $VERBOSE, feature => "say"; say "bla";
or even better define a sub, functions are evaluated at first compilation pass.
The following code will die in one out of two cases!
(just in case if you wanna leave your employer a hard to debug problem =)
use strict; use warnings; sub VERBOSE { int rand 2} use if VERBOSE, feature => "say"; say "bla";
Cheers Rolf
( addicted to the Perl Programming Language)
|
|---|