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

Question

我目前正在使用"Moose"软件包开始使用Perl OOP.

编译器抱怨它"无法在Parser.pm第16行修改非左值子程序调用".

我不太明白为什么我不能只分配一个新对象.我想用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
        }

}

Answer 1

$self->mech方法调用; 你不能像C结构中的字段那样对待它.如果要设置它,则需要将新对象传递给它.

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

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').

Answer 3

虽然Perl提供了使用属性的能力,但是你已经尝试了多年(通过所谓的左值),这不是第一个OO Perl版本中出现的东西,并且人们在没有它的情况下几乎学会了.特别是因为实现验证有点棘手(并且效率低下).

你可以使用MooseX :: Meta :: Attribute :: Lvalue,但是(根据文档)代价是没有对某些属性进行类型检查.

我建议只坚持$ self-> attribute("value")样式.