in reply to How do you use the if pragma?
Proposal to find an answer: write a script using File::Find to iterate over @INC to see whether "use if" is used anywhere and to what purpose. ;)
UPDATE: Here is the script.
use strict; use warnings; use File::Find; find( sub { my $f = $File::Find::name; return unless $f =~ /\.p(l|m)$/; return unless open my $fh, "<", $f; while(<$fh>){ print "$f: $_" if /^\s*use if/; } close $fh; }, @INC );
Just one hit on my machine. "use if" seems to be unpopular.
In Section
Seekers of Perl Wisdom