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

Question

我想从一个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为不正确的路径

前正在执行BEGIN块正确的路径被分配到$var。有没有办法解决这个问题，而不必从BEGIN块中删除代码？

Answer 1

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

这个答案对我来说并不令人满意，但我想不出任何其他方式，因为你的A :: B是如何设计的。理想情况下，模块不依赖于谁在使用它或多久，但该模块只能使用一次。