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

Question

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

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

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

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

Answer 1

呸，简单的回答。我完全忽略了MooseX::Aliases这使您可以轻松地做到这一点:

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

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