frei

旧「anney's room」からブログ「frei」だけ引っ越し&残しました

まとめて定数[2]。

何かを不満に思ったら、何かに怒りを感じたら。

その対象物の欠点とも取れる特徴をも柔軟に受け入れ、

自分の望む・期待する方向に展開出来ない

自分の器の小ささや、力のなさを嘆くべき。

嫌だ嫌だって言うのは、子供だって出来る。

だから、自分は自分を磨かないと。

もっと強くならないと、大事な人を守れないよね。

知識と経験を蓄えなくっちゃー。

って訳で、日々勉強。

ふにゃ。定数にはハッシュも指定出来るのでメモ。

ってーか、Readonly でもいいっちゃー、いいんだけどさー。

・Constanst.pm

package Constants;

use strict;

use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);

require Exporter;

@ISA = qw(Exporter);

%EXPORT_TAGS = (

common => [qw(BASE_URL BOOLEAN)]

);

@{$EXPORT_TAGS{'all'}} = map {@$_} values %EXPORT_TAGS;

@EXPORT_OK = map {@$_} values %EXPORT_TAGS;

use constant BASE_URL => 'http://anigon.net/';

use constant BOOLEAN => {

'TRUE' => 1,

'FALSE' => 0

};

1;

・test.pl

#!/usr/bin/perl -w

use strict;

use Constants qw(:common);

print BASE_URL."\n";

print BOOLEAN->{'TRUE'}."\n";

print BOOLEAN->{'FALSE'}."\n";

exit;