How to find path for current module?

ganeshk has asked for the wisdom of the Perl Monks concerning the following question:

Hi All,
I have a very basic question.
I have module Mod. I need to determine the path of
this module inside the module.

I tried something like this.
Mod.pm
======


package Mod;
use File::Spec::Functions qw(splitpath);
print( (splitpath(__FILE__))[1], "\n");
[download]

This worked in some cases, but when I ran this command
from the same directory as Mod.pm, it didn't work.

perl -e 'use Mod;'
So I thought this approach was wrong. Could anyone
please tell me how to do it? And what was wrong
with my way?

Thanks very much in advance.

Edit g0n: replaced b tags with code tags

Comment on How to find path for current module? Download Code

Replies are listed 'Best First'.
Re: How to find path for current module? by davidrw (Prior) on Jul 22, 2005 at 12:40 UTC
You can use the `%INC` hash (note it will be a relative path if it's in the current directory): `print $INC{ __FILE__ }; use Data::Dumper; print Dumper \%INC;` [download]	[reply] [d/l] [select]
Re: How to find path for current module? by japhy (Canon) on Jul 22, 2005 at 12:52 UTC
From the commandline, just use perldoc -l ModuleName. That's a lowercase "L" there. Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart	[reply]
Re: How to find path for current module? by blazar (Canon) on Jul 22, 2005 at 12:38 UTC
~~FindBin may be your friend. I'm not sure how it will work in modules though. A rapid peek into the documentation revealed a caveat in this sense... HTH anyway!~~ Update: Nope! Wrong advice at all effects...	[reply]
Re: How to find path for current module? by ganeshk (Monk) on Jul 22, 2005 at 12:54 UTC
Hi All, Thank you very much for those replies. But I want to get the absolute path of the module in the module's code. Thanks again.	[reply]
Re^2: How to find path for current module? by davidrw (Prior) on Jul 22, 2005 at 13:06 UTC
Why don't the replies work? What's an exact example of what you're looking for? Using my reply (`$INC{__FILE__}`) as an example, why doesn't that work? If it's still the relative vs asbsolute paths, that's a simple issue to resolve -- see rel2abs doesnot work in unix and Absolute pathnames from relative? (which both point to File::Spec)	[reply] [d/l]
Re^3: How to find path for current module? by ganeshk (Monk) on Jul 22, 2005 at 13:33 UTC
Hi All, Thanks so much. rel2abs(__FILE__) did the trick. Thanks	[reply]
Re^2: How to find path for current module? by tlm (Prior) on Jul 22, 2005 at 13:00 UTC
Look into module Cwd. the lowliest monk	[reply]
Re: How to find path for current module? by tlm (Prior) on Jul 22, 2005 at 12:41 UTC
I've never tried this before, but my first guess would be to look for the value in ~~`$INC{ 'Mod' }`~~. Update: Not quite. `%INC` is the right place to look, but one needs filenames not package names for keys. I.e. what davidrw wrote. the lowliest monk	[reply]


The stupid question is the question not asked
	PerlMonks