在Perl模块上初始化全局变量（带有BEGIN块）包括

Question

我正在尝试从具有BEGIN块的Perl模块初始化全局变量，但是我无法使其正常工作。

这是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不是正确的路径

在将正确的路径分配给$var之前，正在执行BEGIN块。 有没有一种解决方法，而不必从BEGIN块中删除代码？

Answer 1

BEGIN { $A::B::var = "/correct/path" }
use A::B;

这个答案令我不满意，但是考虑到您的A :: B是如何设计的，我想不出任何其他方式。 理想情况下，一个模块不取决于使用它的人或使用频率，但实际上该模块只能使用一次。