ブロックを持つPerlモジュールからグローバル変数を初期化しようとしていますがBEGIN
、それを機能させることができません。
これはPerlモジュールです
Package A::B;
our $var;
BEGIN{
$var ||= "/some/default/path";
#create/access files/folders in $var
}
これは私のCGIスクリプトです
use A::B;
$A::B::var = "/correct/path";
しかし#error
、$varが正しいパスではないために返されます
正しいパスがに割り当てられる前に、BEGIN
ブロックが実行されてい$var
ます。BEGIN
ブロックからコードを削除せずにこれを回避する方法はありますか?