我该如何处理Moose中的可选参数？

Question

我目前正在使用"Moose"包开始学习Perl面向对象编程。

编译器抱怨说在Parser.pm的第16行"无法修改非lvalue子例程调用"。

我不太明白为什么我不能只分配一个新对象。我猜想在Moose中有更好或更有效的方法来处理可选参数？

    #!/usr/bin/perl -w

package Parser;

use Moose;

require URLSpan;

require WWW::Mechanize;

has 'urlspan' => (is => 'rw', isa => 'URLSpan', required => 1);
has 'mech' => (is => 'rw', isa => 'WWW::Mechanize');

sub BUILD {
    my $self = shift;
    if(!$self->mech) {
        warn("no Mech set for " . $self->urlspan->name);
        $self->mech = WWW::Mechanize->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.0.6) Gecko/2009011913 Firefox/3.0.4',
                                         stack_depth => 1
                                         ); #line 16
        }

}

- Brian Johnson

---

我没有看到与可选参数的任何关联。你能详细说明一下吗？ - ysth

Answer 1

$self->mech是一个方法调用；你不能像C结构体的字段那样对待它。如果你想设置它，你需要将新对象传递给它。

        $self->mech( 
            WWW::Mechanize->new(
                agent => 'xyz',
                stack_depth => 1
            )
        );

- friedo

Answer 2

在 Moose 中，最好的方法是在属性上设置 lazy_build：

has 'mech' => (is => 'rw', isa => 'WWW::Mechanize', lazy_build => 1);
sub _build_mech {
     warn("no Mech set for " . $self->urlspan->name);
     WWW::Mechanize->new(
           agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.0.6)'.
                    ' Gecko/2009011913 Firefox/3.0.4',
           stack_depth => 1
     );
}

这将允许属性“mech”在第一次调用时自动填充，除非已被构造函数或访问器（因为它仍然是“rw”）设置。

- perigrin

---

感谢您回来回答这个问题并解释！ - Brian Johnson

Answer 3

尽管Perl多年来一直提供使用属性的能力（通过所谓的lvalue subs），但这并不是最初的OO Perl版本中的功能，人们几乎学会了没有它。特别是由于实施验证有些棘手（而且效率低下）。您可以使用MooseX :: Meta :: Attribute :: Lvalue，但（根据文档）代价是某些属性上没有类型检查。我建议只使用 $self->attribute("value")样式。

- ysth

---

不要使用那个模块，它的设计有问题。 - Dave Rolsky

@Dave Rolsky：按照我提到的方式，还是其他方式？ - ysth