Hatena::Groupcside

Cside::StudyMemo このページをアンテナに追加 RSSフィード

メインブログに書くまでもない自分用メモを垂れ流す。日々是勉強也。

カテゴリー
 | 

2013-09-19

[]use FindBin qw($Bin); みたいに変数を Export する

use constants した定数は実体は関数だから変数展開とかできなくてだるいので、変数としてExportしたい。

package Foo;
use common::sense;
use Exporter qw(import);

our @EXPORT_OK = qw($Bar);

our $Bar = 'constant variable';

1;
use Foo qw($Bar);

warn $Bar; #=> 'constant variable'

なぜか $Bar はクラス変数にしないと動かない。

 |