我目前正在使用“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
}
}
答案 0 :(得分:13)
$self->mech
是方法调用;你不能像C结构中的字段那样对待它。如果要设置它,则需要将新对象传递给它。
$self->mech(
WWW::Mechanize->new(
agent => 'xyz',
stack_depth => 1
)
);
答案 1 :(得分:6)
执行此操作的首选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')。
答案 2 :(得分:5)
虽然Perl已经提供了使用属性的方法,这种方式可以用你多年的方式(通过所谓的lvalue subs),但它并不是第一个OO Perl版本中出现的东西,人们几乎学会了没有它。特别是因为实现验证有点棘手(而且效率低下)。
你可以使用MooseX::Meta::Attribute::Lvalue,但是(根据文档),代价是没有对某些属性进行类型检查。
我建议坚持使用$ self->属性(“值”)样式。