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);
また、新しいサブルーチン名前空間内から use と require を試みました。何が欠けていますか、またはすべての共通モジュール名を警告なしの「再定義」ラッパー内にラップする必要がありますか? ご協力いただきありがとうございます