2006-05-12から1日間の記事一覧

デザインパターン Singleton 補足

調べていたらこんなやり方を発見した package Name; my $singleton; BEGIN { $singleton = { attribute => 'value', another => 'something', }; bless $singleton, "Name"; } sub new { my $class = shift; return $singleton; } BEGINブロック内でオブジェ…