>>507
いいのかそれは？それじゃあオブジェクトメソッドのhashrefのローカル変数である
$valueの参照先が安全でないし、それならいっそ
sub hashref{
my $self =shift;
%{$self->{hashref}} = ( @_ ) if ($_[0]);
return %{$self->{hashref}};
}
でいいだろ。なんかリファレンス自体使うなって気がするが、DBIとかは普通にリファレンスで返して来るんだよな。