Perl模块是否知道它的安装位置？

Question

我已经开始创建一个包含默认电子邮件模板的Perl包.

MANIFEST看起来像:

SendMyEmail.pm
SendMyEmail/defualt_email.tt

目前我知道模块(和模板)的位置 - 但模块本身是否知道它在磁盘上的位置？那么模块可以在没有我帮助的情况下找到默认模板吗？

# This is what I would like to do.
package SendMyEmail;
sub new {
    my ($self, $template) = @_;
    $template ||= $dir_of_SendMyEmail .'/SendMyEmail/default_email.tt'; # ??
}

是否有更好的方法来包含模板文本或更好的放置模板的地方？

任何类似CPAN模块的引用都是受欢迎的.

提前致谢.

Answer 1

每个perl文件都可以访问变量__FILE__,该变量告诉它的完整路径.像这样的东西应该做的伎俩:

my $DEFAULT_TEMPLATE;
BEGIN {
    $DEFAULT_TEMPLATE = __FILE__;
    $DEFAULT_TEMPLATE =~ s,\.pm$,/default_email.tt,;
}

尽管如此,如果您只想将"数据"文件与模块捆绑在一起,那么请查看File :: ShareDir,它提供了一种方法.

Answer 2

在文件与包名称不完全匹配的情况下,使用%INC可能会产生误导.(这是一种反模式,但它确实发生了,有时是出于正当理由.)如果你想找到文件,那么方便的__FILE__标记是你最好的选择.可以找到自己的示例模块:

package Foo::Bar;

use Cwd qw(abs_path);
use File::Basename qw(dirname);

sub module_dir { abs_path(dirname(__FILE__)) }

1;

用法:

use Foo::Bar;

print Foo::Bar->module_dir, "\n";

Answer 3

%INC如果已加载模块,则可以使用哈希.例如:

## load the module
use Data::Dumper;

## output full path to Data::Dumper module loaded
print $INC{'Data/Dumper.pm'};

## see which module was loaded (if you have multiple folders with same modules)
print Dumper(\%INC);