Re^4: Finding module directory from within module

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]

Comment on Re^4: Finding module directory from within module Download Code

Replies are listed 'Best First'.
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
No they don't. foo and baz are different directories.	[reply]