Perl OOP属性操作最佳实践

package Thing;
sub new {
    my $this=shift;
    bless {@_},$this;
}
sub name {
    my $this=shift;
    if (@_) {
        $this->{_name}=shift;
    }
    return $this->{_name};
}

现在假设我们已经实例化了一个对象：

my $o=Thing->new();
$o->name('Harold');

够好了.我们还可以使用以下任一方法更快地实例化相同的事情：

my $o=Thing->new(_name=>'Harold');  # poor form
my $o=Thing->new()->name('Harold');

可以肯定的是,我允许在构造函数中传递属性,以允许“友好”类更完整地创建对象.它还可以允许克隆类型运算符使用以下代码：

my $o=Thing->new(%$otherthing);  # will clone attrs if not deeper than 1 level

这一切都很好.我理解需要隐藏方法后面的属性以允许验证等.

$o->name;  # returns 'Harold'
$o->name('Fred'); # sets name to 'Fred' and returns 'Fred'

但是这不允许基于自身轻松操纵属性,例如：

$o->{_name}=~s/old/ry/;  # name is now 'Harry',but this "exposes" the attribute

一种替代方法是执行以下操作：

# Cumbersome,not syntactically sweet
my $n=$o->name;
$n=~s/old/ry/;
$o->name($n);

另一个潜力是以下方法：

sub Name :lvalue {  # note the capital 'N',not the same as name
    my $this=shift;
    return $this->{_name};
}

现在我可以做以下事情：

$o->Name=~s/old/ry/;

所以我的问题是……这是上面的“犹太洁食”吗？或者以这种方式公开属性是不好的形式？我的意思是,这样做会消除“名称”方法中可能发现的任何验证.例如,如果’name’方法强制执行大写第一个字母和小写字母,那么’Name'(大写’N’)会绕过该名称并强制该类用户在使用它时自行警告.

那么,如果’名称’左值方法不完全是“犹太教”,那么有没有确定的方法来做这些事情？

我考虑过(但是考虑到晕眩)像绑定标量这样的东西.可以肯定的是,它可能是要走的路.

此外,是否有可能有帮助的重载？

或者我应该创建替代方法(如果它甚至可以工作)：

sub replace_name {
    my $this=shift;
    my $repl=shift;
    my $new=shift;
    $this->{_name}=~s/$repl/$new/;
}
...
$o->replace_name(qr/old/,'ry');

在此先感谢…并注意,我对Perl的OOP品牌不是很有经验,尽管我对OOP本身非常熟悉.

附加信息：
我想我的界面可以变得非常有创意……这是我修改过的一个想法,但我想这表明它确实没有界限：

sub name {
    my $this=shift;
    if (@_) {
        my $first=shift;
        if (ref($first) eq 'Regexp') {
            my $second=shift;
            $this->{_name}=~s/$first/$second/;
        }
        else {
            $this->{_name}=$first;
        }
    }
    return $this->{_name};
}

现在,我可以设置name属性

$o->name('Fred');

或者我可以操纵它

$o->name(qr/old/,'ry');  # name is now Harry

这仍然不允许像$o-> name.=’Jr.’这样的东西.但这并不难添加.哎呀,我可以让calllback函数传入,不是吗？