perl - 如何获取类(class)成员的值(value)？

Question

有一个类:

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();
}

但是我得到以下错误:

Can't locate object method "_class_member" via package "MyClass" ...

我在这里做错了什么？

Answer 1

$self 是一个 blessed 哈希。除非你或原作者提供方法_class_member，否则没有这样的方法。

但是，您可以“进入”哈希以访问它:

 $self->{'_class_member'} = shift;

对于实例值，这不是推荐的做法，因为它很容易输入:

$self->{'_vlass_member'} = shift;

毫无怨言。因此 accessors 的值.