Re^2: Finding module directory from within module

->absolute doesn't handle links, but Cwd's abs_path aka realpath does.

use Cwd qw(abs_path);
use Path::Class;
my $THIS_DIR = file(abs_path(__FILE__))->dir;
print $THIS_DIR,"\n";
[download]

It's not very likely for module (.pm) files, but it's entirely possible for script (.pl) files.

Comment on Re^2: Finding module directory from within module Select or Download Code

Replies are listed 'Best First'.
Re^3: Finding module directory from within module by Anonymous Monk on Jul 30, 2009 at 07:46 UTC
Interesting, but i'm not understanding how it makes a difference	[reply]
Re^4: Finding module directory from within module by ikegami (Patriarch) on Jul 30, 2009 at 07:47 UTC
Example: $ mkdir foo $ cat > foo/Module.pm package Module; use Cwd qw( realpath ); use Path::Class qw( file ); print( "absolute: ", file(__FILE__)->absolute->dir, "\n"); print( "realpath: ", file(realpath(__FILE__))->dir, "\n"); 1; $ perl -Mlib=foo -e'use Module' absolute: /tmp/ikegami/foo realpath: /tmp/ikegami/foo $ ln -s foo bar $ perl -Mlib=bar -e'use Module' absolute: /tmp/ikegami/bar realpath: /tmp/ikegami/foo $ mkdir baz $ ln -s ../foo/Module.pm baz/Module.pm $ perl -Mlib=baz -e'use Module' absolute: /tmp/ikegami/baz realpath: /tmp/ikegami/foo [download]	[reply] [d/l]
Re^5: Finding module directory from within module by Anonymous Monk on Jul 30, 2009 at 07:50 UTC
So how does it make a difference? They both take you to the same directory	[reply]
Re^6: Finding module directory from within module by ikegami (Patriarch) on Jul 30, 2009 at 14:51 UTC