in reply to It *is* a feature: mod_perl and 'my $x if 0'
The resulting bug is that if the test failed on 2 calls in a row, you had data from the first call of the function that polluted your output results. This bug was quite subtle and mysterious, and it turned out had been reported to the module author several times over the course of a year, but he was unable to figure out where the bug was.my $foo = $some_init unless test();
Since then whenever I have looked at a large body of code for either of the patterns:
and found a match, it has usually resulted in also finding a bug. In short, this is a "feature" that is due to a broken optimization of Perl which, when it is hit in code, is almost always the cause of a bug in that code./my .* if/ /my .* unless/
Now if you want static lexical variables without the usual "create a private scope" trick, that is doable in a fairly straightforward manner. In fact I just wrote and tested an implementation, which I just uploaded to CPAN. Hopefully Tie::Static will be accepted and become available shortly. (I intend to post the module to PerlMonks in a short while as well.)