Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Package name overlap

by manorhce (Beadle)
on Feb 19, 2013 at 14:33 UTC ( #1019579=note: print w/ replies, xml ) Need Help??


in reply to Package name overlap

Yes use lib will work and it will load the module from the library which is provided by use lib but better go with include the directory to @INC at the beginning with unshift operator and call that through BEGIN block

For example

use FindBin qw($RealBin); use File::Spec::Functions qw(catdir); BEGIN { my @dirs = splitdir(canonpath($RealBin)); my($path) = grep { -e $_ } ( map { $_ = catdir(@dirs[0 .. $#dirs - + $_]).'pathtoModule' } (0 .. $#dirs) ); unshift(@INC, $RealBin, $path); }

Please let me know if you have anything unclear and you


Comment on Re: Package name overlap
Download Code
Re^2: Package name overlap
by Anonymous Monk on Feb 19, 2013 at 14:43 UTC
    Why not use?
    use FindBin qw( $RealBin ); use lib "$RealBin/../pathToModule";

    What do you think you're avoiding with your extra code block?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019579]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2014-11-27 13:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (184 votes), past polls