perl的：模塊間變量使用

Question

我有一個模塊misc具有可變$verbose：

use strict; 
use diagnostics; 
package misc; 
my $verbose = 1; 

和模塊mymod其使用misc：

use strict; 
use diagnostics; 
use misc; 
package mymod; 
sub mysub ($) { 
    ... 
    ($misc::verbose > 0) and print "verbose!\n"; 
} 

這，反過來，由myprog使用：

use strict; 
use diagnostics; 
use misc; 
use mymod; 
mymod::mysub("foo"); 

當我exe可愛myprog，我得到這樣的警告：

Use of uninitialized value $misc::verbose in numeric gt (>) at mymod.pm line ... 

我究竟做錯了什麼？

Answer 1

在mymod.pm你應該使用：而不是

our $verbose = 1; 

：

my $verbose = 1; 

該警告是因爲$misc::verbose嘗試訪問包變量$verbose在misc包，順便說一句，沒有聲明。

my函數創建一個詞彙範圍變量。在這種情況下，您需要使用our函數創建的包範圍變量。

請關注daxim的comment。