Perl で楽々アクセサ作成について考えてみた - その 3

たくさんの方々にあれこれ教えていただきつつ「antipop2.0: Perl で楽々アクセサ作成について考えてみた - その 2」にて作成した Class::AutoAccess::Linked をちと手直ししたりモジュールとしての体裁を整えたりした後、なんとなく名前を変更してみたりして、CPAN にうｐってみました。僕の着想など跡形もなく消え果てているのですが、まず言い出しっぺより始めよ、ってことで。

• search.cpan.org: Class::AutoAccess::Deep

package MyClass;

# inherit Class::AutoAccess::Deep and that's all
use base qw(Class::AutoAccess::Deep);

sub to_check {
    # write your own processing code...
}

package main;

my $data = {
    foo      => undef,
    bar      => {
        baz  => undef,
    },
    to_check => undef,
};

my $obj = MyClass->new($data);

# now, you can access the fields as described below
$obj->foo('new value');        # set "new value"
my $foo = $obj->foo;           # get "new value"

# you can access the field chain deeply
# by joining field name with '->'
$obj->bar->baz('other value'); # set "other value"
my $bar_baz = $obj->bar->baz;  # get "other value"

# your own method called correctly
my $value = $obj->to_check;

TODO でも述べている通り、現状ではアクセサを呼び出すたびに AUTOLOAD することになるってな非効率的な実装になっているので、一度呼び出したアクセサをなんらかの方法で保存して、再利用できるようにしたい。そのためには、たとえば以下の方法が考えられる。

1. 各 ハッシュリファレンスは Class::AutoAccess::Deep の再帰構造となるのだが、それぞれのすでに生成されたインスタンスに、どうにかして一度呼び出されたアクセサメソッドをぶっこむ
2. ハッシュリファレンスの階層をたどって Class::AutoAccess::Deep オブジェクトを連続的に作成するときに、ISA をいじってたとえば Class::AutoAccess::Deep::SandBox::1, Class::AutoAccess::Deep::SandBox::2 ... というような感じで、一意のパッケージ名をでっちあげ、そのパッケージ内に一度呼ばれたアクセサをぶっこむ

1 点目については、いったいぜんたい、そもそもこんなことできるんでしょうか……。2 点目については、なんとかなりそうな気がするけど、なんかあんまりいい方法じゃぁないような気がするなー、ってんで、いまんとこ保留中。

「Perl で楽々アクセサ作成について考えてみた - その 4」に続く。