perl - Perl Moose 可以创建多个访问器吗？

Question

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

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

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

使用 Moose 的内置插件有更好的方法吗？

score 3 · Accepted Answer

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

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

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

1 回答 1