packageの中からのrequireがうまくいかない

質問

.pmファイルの中でrequireして別の.plファイルの中の関数を呼びたいのですがうまくいきません。

下記の例でmain.plを実行すると
Undefined subroutine &module1::module2::hyoji　のようになってしまいます。
どのようにしたら動くでしょうか

--main.pl--
use module1;
testprint();

--module1.pm--
package module1;
sub testprint{
　　require "module2.pl"
　　hyoji(); #エラー　
　　module2::hyoji(); #　エラー
　　module1::module2::hyoji(); #エラー
}1;
module2.pl
package module2;
sub hyoji{
　　print "ZZZ";
}1;

--main2.pl--　ちなみにこれは動きます
require "module2.pl";
module2::hyoji();

回答No.1

sakusaker7 · ベストアンサー

もうちょっと環境(バージョンとか)を具体的にしてもらえますか?

今手元で5.8.8(ActivePerl)を使ってやってみましたが、

> 　　require "module2.pl"
この行にセミコロンを付け加えて

> testprint();
これを

module1::testprint();

にして

>　　　module2::hyoji(); #　エラー

これでZZZが出力されました。

use module1;
module1::testprint();

package module2;
sub hyoji
{
print "ZZZ";
}
1;

package module1;
sub testprint
{
require "module2.pl";
#hyoji(); #エラー　
module2::hyoji(); #　エラー
#module1::module2::hyoji(); #エラー

}
1;

お礼

すいません、私の確認ミスでした
私の手元環境Unix Perl5.6でも
module2::hyoji();
で動きました。
ありがとうございました。