Perlについての質問箱 11箱目
■ このスレッドは過去ログ倉庫に格納されています
0507デフォルトの名無しさん
NGNG>>489のアクセスメソッド
sub hashref{
my $self =shift;
%{$self->{hashref}} = ( @_ ) if ($_[0]);
return $self->{hashref};
}
を
sub hashref{
my $self =shift;
%{$self->{hashref}} = ( @_ ) if ($_[0]);
my $value = {%{$self->{hashref}};
return $value;
}
って書き換えてオブジェクトメンバだけ壊さなければいいんじゃん？
■ このスレッドは過去ログ倉庫に格納されています