有没有办法从 Perl 脚本导入/导出单个子例程。我被要求将测试用例分为正面和负面测试,我不想复制整个子例程。但是,如果我require
或use
从消极的积极测试用例,我会收到redefined
所有通常命名的潜艇的警告。以下是我尝试过的一些替代方案:
require/use "positive_test.pl" qw (useful_sub);
#throws warning: Subroutine run_test redefined at ...
require/use "positive_test.pl::useful_sub";
#throws can't locate in @INC error
并来自 positive_test 脚本:
use base 'Exporter';
our @EXPORT = qw(useful_sub);
我还尝试过在新的子例程命名空间中使用和要求。我错过了什么,或者我必须将每个常见的模块名称包装在无警告“重新定义”包装器中?谢谢你的帮助