代码之家 › 专栏 › 技术社区 › Brian Johnson

如何在Moose中处理可选参数?

moose parameters perl

Brian Johnson · 技术社区 · 16 年前

编译器抱怨它“无法修改Parser.pm第16行的非左值子例程调用。”

    #!/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
        }

}

3 回复 | 直到 16 年前

friedo 16 年前

$self->mech

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

perigrin 16 年前

也许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')。

ysth 16 年前

虽然Perl多年来一直提供了以您尝试的方式使用属性的能力(通过所谓的左值subs),但这在最初的OO Perl版本中并不存在,人们几乎学会了不使用它。特别是因为实现验证有点棘手(而且效率不高)。

你可以使用 MooseX::Meta::Attribute::Lvalue

我建议只使用$self。>属性(“值”)样式。

推荐文章

KiraHoneybee · 具有构造函数参数的模板化类

3 年前

Jiji · 将简单对象强制转换为简单的通用接口

7 年前

Wojciech Nowakowski · React路由器多个参数不工作

7 年前

user8874475 · python使用len函数和list作为参数[关闭]

7 年前

Ashish K · 在Groovy中将字符串参数传递给对象方法参数

7 年前

snuff · c语法的问题-const*const*定义

7 年前

Val · 将整个结构指针数组传递给函数的语法是什么?[已关闭]

7 年前

dragi · 将参数传递到void方法(整数或对象)

7 年前

msinghm · 参数仅与其他参数一起工作,但我希望它们独立工作

7 年前

user3251349 · SSRS:参数未过滤MySQL查询

7 年前