我目前正在使用“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
}
}
$self->mech
是一个方法调用;您不能真正将其视为 C 结构中的字段。如果要设置它,则需要将新对象传递给它。
$self->mech(
WWW::Mechanize->new(
agent => 'xyz',
stack_depth => 1
)
);
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)