Re: How do you use the if pragma?


XP is just a number
	PerlMonks

Re: How do you use the if pragma?

by hdb (Monsignor)

on Apr 08, 2013 at 16:25 UTC ( [id://1027555]=note: print w/replies, xml )

Need Help??

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 );
[download]

Just one hit on my machine. "use if" seems to be unpopular.