ぼへーっとCPANのRSS眺めてたらselfとかいうのが目に付いた。 selfというネーミングから想像するに、なにやら面白いことしてくれそうな匂いがぷんぷん香ってきたので触ってみたわけです。 するとまさしくほぼ想像通りのことをやってくれるモジュールだったのですよ。 以下概要まんまだけども例をば。 package Hoge; use strict; use warnings; use self; sub new { my $class = shift; return bless {} , $class || ref $class; } sub hoge { if ( args ) { self->{hoge} = args; } return self->{hoge}; } my $obj = Hoge->new; $obj->hoge(100); print $obj->hoge; # 1