perl – 如何处理Moose中的可选参数?

我目前正在使用“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
            )
        );

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...