【モダン推奨】Perlについての質問箱 50箱目

[174 営利利用に関するLR審議中＠詳細は自治スレへ 2012/04/07(土) 17:14:55.67]

package _Config;
our $AUTOLOAD;

sub new { bless { name => 'foo' }, shift }

sub AUTOLOAD : lvalue {
my ($self) = @_;

(my $name = $AUTOLOAD) =~ s/.*://;
my $sub = sub : lvalue { shift->{$name} };
{
no strict 'refs';
*{$AUTOLOAD} = $sub;
}
$self->$name();
}

sub DESTROY {}

ここまで来ると普通のハッシュでよくね？
あと、ネタすれなんで、本スレで質問しる。