Re^3: The 'eval "require $module; 1"' idiom

in reply to Re^2: The 'eval "require $module; 1"' idiom
in thread The 'eval "require $module; 1"' idiom

I wish the grep.cpan.me supported lookaheads and lookbehinds, which would allow me to search a little more specifically for situations where the idiom is used outside of the "require" and "use" use case. If it did, I might try something like:

if \(eval ["'](?!require|use).+?;\s*1;?["']
[download]

Dave

Comment on Re^3: The 'eval "require $module; 1"' idiom Download Code

Replies are listed 'Best First'.
Re^4: The 'eval "require $module; 1"' idiom by DouglasDD (Beadle) on Aug 09, 2019 at 12:45 UTC
I wish the grep.cpan.me supported lookaheads and lookbehinds We can use `[^ur]` as a cheap trick to grep for cases other than `use` or `require`: `(if\|unless) \(eval +["'][^ru].+?; 1;?["']`	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom