comment on

You can't hide a use like that.

if (0) {
    print "This block is happening!\n";
    use Win32;
} 
print "$_\n" for keys %INC;

__DATA__
Exporter.pm
Carp.pm
strict.pm
vars.pm
Config.pm
warnings/register.pm
warnings.pm
DynaLoader.pm
AutoLoader.pm
Win32.pm           <------- Perl sees all uses (almost)
[download]

And on a system where the module is not available......

[root@devel3 root]# cat test.pl
#!/usr/bin/perl -wT
BEGIN{print "We are on $^O\n"}
if ($^O eq 'MSWin32') {
    use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 );
    # load $config from registry
} else {
    # else load $config from flat files
}
[root@devel3 root]# ./test.pl
We are on linux
Can't locate Win32/TieRegistry.pm in @INC (@INC contains: /usr/local/l
+ib/perl5/5.6.2/i686-linux /usr/local/lib/perl5/5.6.2 /usr/local/lib/p
+erl5/site_perl/5.6.2/i686-linux /usr/local/lib/perl5/site_perl/5.6.2 
+/usr/local/lib/perl5/site_perl) at ./test.pl line 4.
BEGIN failed--compilation aborted at ./test.pl line 4.
[root@devel3 root]#
[download]

cheers

tachyon

In reply to Re^3: use and require inside subs by tachyon
in thread use and require inside subs by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or or How to display code and escape characters are good places to start.


Think about Loose Coupling
	PerlMonks