Class::Accessor

programming

うわー何ですかこの便利具合は(笑)
Perlのモジュールなんですがアクセサを超簡単に作成できます。
たとえばこんなモジュールがあったとしようじゃないですか。

package hoge;

use strict;
new
{
    HOGE => 1,
    FUGA => 2
}

で、これにアクセサを作ろうとすると普通はAUTOLOADを使うわけですが。
strictが入ってるので途中でno strictするか、諦めてアクセサコピペになるわけですね。
ところがこのClass::Accessorを使うとその悩みが一発で解決します。

package hoge;

use strict;
use base qw(Class::Accessor);
hoge->mk_accessors(qw(HOGE FUGA));

new
{
    HOGE => 1,
    FUGA => 2
}

で、後は普通に以下のようにプログラム側から呼び出せばOK=]

my $hoge = hoge->new;
print $hoge->HOGE;

便利すぎー。
もう手放せないわぁ(笑)