我应该在哪里放置两个Perl模块共有的代码？

Question

我正在创建几个Perl模块，它们将使用常用实用程序来打开和关闭文件。

例如，

  

mod1.pm

my $in, $out;

sub openf {
    my $fname = shift;
    open $in, "<",  $fname or die $!;
}

sub one {
    openf($path);
    ...
}

  

mod2.pm

my $in, $out;

sub openf {
    my $fname = shift;
    open $in, "<",  $fname or die $!;
}

sub two {
    openf($path);
    ...
}

现在，我应该在哪里放置openf以便代码不会重复？

Answer 1

我会说最简单的解决方案。

创建第3个模块，Common.pm或Helpers.pm或MyUtils.pm - 存储所有常见的样板辅助子程序。

然后，您将从上面的两个模块以及其他任何模块中导入它。

一种稍微不同的方法 - 而不仅仅是use - Commmon.pm - 实际上从中继承所有模块。这样他们就可以按照OO方式扩展常用的工具。

我们实际上是通过一个大型项目来实现的，从BaseClass.pm或BaseClassPlus.pm这个子类中对几乎100％的模块进行子类化。工作得很好，并且由于极少的样板，因此对于维护良好的代码非常有利。 （我觉得我们可以用Moose完成很大一部分工作，但那是在我知道Moose存在之前）