模塊間如何共享常量？

s5unty

變量可以用 Exporter ，但是常量呢？

我目前只知道在多個模塊中分別定義相同的內(nèi)容，如：
use constant {
    HOW  => 1 << 30,
    TO   => 1 << 29,
};

有沒有干凈一點的辦法？謝謝！

nkcsx

_Const.pm

1. 
   
2. package _Const;
   
3. 
   
4. use constant HOW_TO => 1;
   
5. 
   
6. 1;
   

復(fù)制代碼

program:

1. 
   
2. use _Const;
   
3. 
   
4. $sth = _Const::HOW_TO;
   

復(fù)制代碼

[ 本帖最后由 nkcsx 于 2007-9-7 10:44 編輯 ]

s5unty

謝謝！
不過每次用常量前面都要加前綴，有點不爽

[ 本帖最后由 s5unty 于 2007-9-6 18:43 編輯 ]