perl： `use`ステートメントのパス要素でエクスポータが動作しません

Question

@INCとuseステートメントのパス要素に応じて、シンボルをインポートする際に問題が発生します。

フルパスを@INCに入れると、インポートが機能します。パスの一部がuse文である場合は、インポートするモジュールが実行されますが、インポートは明示的に設定する必要があります。

######################################## 
# @INC has: "D:/plu/lib/" 

#------------------------------------------------ 
# Exporting file is here: "D:/plu/lib/impex/ex.pm" 
# 
use strict; 
use warnings; 
package ex; 

use Exporter; 
our @ISA = 'Exporter'; 
our @EXPORT = qw(fnQuark); 

sub fnQuark { print "functional quark\n"; } 

print "Executing module 'ex'\n"; 
1; 

#------------------------------------------------ 
# Importing file, example 1, is here: "D:/plu/lib/impex/imp.pl" 
# 
use strict; 
use warnings; 
package imp; 

use impex::ex; 

ex->import(@ex::EXPORT); # removing this line makes fnQuark unavailable! 
           # Why is this necessary, 'ex.pm' being an Exporter? 
fnQuark(); 

#------------------------------------------------ 
# Importing file, example 2, is here: "D:/plu/lib/impex/imp2.pl" 
# 
use strict; 
use warnings; 
package imp2; 

use lib 'D:/plu/lib/impex'; 
use ex; 

fnQuark();     # works without explicit import 
#------------------------------------------------- 

は私のミスは何ですか？

Answer 1

あなたは

use Foo; 

を言うとき、これは同等です：ときuse impex::exので、Perlは暗黙のimpex::ex->importを行い、あなたがex命名するためにあなたのex.pmでパッケージを定義した

BEGIN { 
    require 'Foo.pm'; 
    Foo->import; 
}; 

。しかし、impex::exというパッケージはありませんので、記号を取得するにはexから手作業でインポートする必要があります。

これを行う正しい方法は、モジュールを既存のディレクトリの下に@INCとし、@INCディレクトリを基準にした絶対パス名の後にパッケージ名を付けます。したがって、impex/ex.pmはpackage impex::ex;で始まり、それはuseとなります。

パッケージ名が長く扱いにくくなることが心配な場合は、aliasedをご覧ください。