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

Question

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

清单如下所示：

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);