2006-05-12から1日間の記事一覧
調べていたらこんなやり方を発見した package Name; my $singleton; BEGIN { $singleton = { attribute => 'value', another => 'something', }; bless $singleton, "Name"; } sub new { my $class = shift; return $singleton; } BEGINブロック内でオブジェ…
調べていたらこんなやり方を発見した package Name; my $singleton; BEGIN { $singleton = { attribute => 'value', another => 'something', }; bless $singleton, "Name"; } sub new { my $class = shift; return $singleton; } BEGINブロック内でオブジェ…