所以,Perl 的标准命名约定是snake_case,但我正在编写一个模块来与使用camelCase 的REST API 接口(interface),使用Moose 基础设施创建对象。我宁愿让对象适用于任何一种情况,但我似乎无法获得多个 Moose-y 访问器。以下是我能想到的唯一方法。

has 'full_name' => (
    is  => 'rw',
    isa => 'Str',
);

sub fullName {return shift->full_name(@_)};

使用 Moose 的内置插件有什么更好的方法可以做到这一点?

最佳答案

呸,简单的回答。我完全忽略了 MooseX::Aliases ,它可以让你轻松地做到这一点:

has 'full_name' => (
    is  => 'rw',
    isa => 'Str',
    alias => 'fullName', # or alias => [qw(fullName)] for even more
);

不像我想象的那样内置 Moose,但绝对足够了。

关于perl - Perl Moose 可以创建多个访问器吗?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/17035512/

10-10 06:24