Re: Best practice or cargo cult?

[tphyahoo]

How hard would it be to write a pragma to do this? Or does one already exist? I'm thinking something like...

use warnings;
use strict;
use PBP::xsm;

=~ /xsm is on/;
=~ /(?-x)(?-s)m is on, x and s if off/; #or whatever the appropriate s
+yntax for switching off regex options... ??

Could be a nifty way of anticipating the Coming of Perl 6. Whenever that'll be...

[TheDamian]

It's called Regexp::DefaultFlags

[Jim]

s/ (?<= Regexp:: ) Autof (?= lags) /DefaultF/gxms ? 1 : 0;

[Jim]

That would be a yes (1). I just found this on the PBP errata page:

[242]  1st paragraph;
Regexp::Autoflags does not exist in CPAN.  
Regexp::Autoflags
should be:
Regexp::DefaultFlags