Где я могу поместить код, общий для двух модулей 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); 
    ... 
} 

Теперь, когда Shoul d Я положил openf, чтобы код не дублировался?

Answer 1

Я бы сказал, прошу простейшее решение.

Сделайте 3-й модуль, Common.pm или Helpers.pm или MyUtils.pm - сохраните все общие подпрограммы с помощью шаблона.

Затем вы импортируете его из обоих модулей выше, а также в другое место.

Немного другой подход - вместо просто use -ing Commmon.pm - на самом деле унаследовать все ваши модули из него. Таким образом, они могут распространять общие утилиты по мере необходимости в стиле OO.

Мы на самом деле сделали это с большим проектом, подклассифицируя почти 100% модулей из BaseClass.pm или BaseClassPlus.pm, который был его подклассом. Работала очень хорошо и была очень проводящей к хорошо поддерживаемому коду из-за значительно меньшего количества шаблонов. (У меня есть чувство, что мы могли бы проделать большую часть работы с Moose, но это было до того, как я даже знал, что Moose существует)