"include" -esque function for Perl

Question

У меня есть функция, которую я хотел бы определить в двух разных сценариях Perl, но не нравится редактировать их. Есть ли способ, которым я могу include его (как в PHP) из внешнего файла?

FUNC ФАЙЛ:

sub test { 

} 

ФАЙЛ 1:

include func_file; 
foo(); 
bar(); 
test(); 

ФАЙЛ 2:

include func_file; 
blah(); 
test(); 

Answer 1

Func.pm:

package Func; 

use Exporter qw(import); 
our @EXPORT = qw(test); 

sub test { 
} 

1; 

File1.pl:

use Func; 

test(); 

Answer 2

Чтобы ответить на этот вопрос узко:

Да, вы можете включить файл с помощью функции require('filename').

Чтобы ответить на вопрос, как правило:

Perl имеет полный механизм для определения и экспорта функций через механизм пакета. Это described in perlmod. Вы действительно должны использовать этот механизм, поскольку вы можете в конечном итоге упаковать модуль в модуль CPAN и сделать его доступным для других или просто легко установить на другие системы самостоятельно.