8

我目前使用“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
        }

}
4

3 回答 3

13

$self->mech是一个方法调用；您不能真正将其视为 C 结构中的字段。如果要设置它，则需要将新对象传递给它。

        $self->mech( 
            WWW::Mechanize->new(
                agent => 'xyz',
                stack_depth => 1
            )
        );
于 2009-02-24T17:09:00.440 回答
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”）。

于 2009-03-03T15:56:38.887 回答
5

虽然 Perl 多年来一直提供使用属性的能力（通过所谓的 lvalue subs），但它不是第一个 OO Perl 版本中的东西，人们几乎学会了不用它. 特别是因为实施验证有点棘手（而且效率低下）。

您可以使用MooseX::Meta::Attribute::Lvalue，但是（根据文档）以不对某些属性进行类型检查为代价。

我建议坚持使用 $self->attribute( "value" ) 风格。

于 2009-02-24T18:28:08.863 回答