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

[sedusedan]

Thanks for pointing out about the general term. Although the majority of the general form is for require/use, people do use it for other purposes too:

http://grep.cpan.me/?q=if+%5C%28eval+%22.%2B%3F%3B+1%22

[davido]

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;?["']

[DouglasDD]

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;?["']