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


in reply to Best practice or cargo cult?

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...

Replies are listed 'Best First'.
Re^2: Best practice or cargo cult?
by TheDamian (Vicar) on Jun 21, 2006 at 12:49 UTC
      s/ (?<= Regexp:: ) Autof (?= lags) /DefaultF/gxms ? 1 : 0;
        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