frei

旧「anney's room」からブログ「frei」だけ引っ越し&残しました

lvalue。

あら、いやだ。

attribute なんてあったんだね、perl

package Test;

use strict;

sub new {

my $me = shift;

bless {}, $me;

}

sub name : lvalue {

shift->{'name'};

}

1;

ほへー。 : lvalue だってよ。

#!/usr/bin/perl -w

use strict;

use lib '/home/anigon/attribute';

use Test;

my $objTest = Test->new();

$objTest->name = 'anigon';

print $objTest->name ."\n"; # anigon と表示される

exit;

ははー、便利なような、そうでもないような。

もっと MODIFY_CODE_ATTRIBUTES とか使いこなせば面白いんだろうなぁ。

参考:「Perlでプラガブルモジュールを作ろう!