次のクラスがあります。
package MyClass;
use strict;
use warnings;
sub new
{
my $class = shift();
my $self = {
_class_member => "default"
};
bless ($self, $class);
return $self;
}
の値を設定/取得するにはどうすればよい_class_member
ですか?
次のコードを試しました:
sub set_name
{
my $self = shift();
$self->_class_member = shift();
}
しかし、次のエラーが表示されます。
パッケージ「MyClass」を介してオブジェクトメソッド「_class_member」が見つかりません...
ここで何が間違っていますか?