因此,Perl的标准命名约定是snake_case,但我正在编写一个模块来与使用camelCase的REST API进行交互,使用Moose基础结构创建对象.我宁愿让对象适用于任何一种情况,但我似乎无法获得多个Moose-y访问器.以下是我能想到的唯一方法.
has 'full_name' => (
is => 'rw',isa => 'Str',);
sub fullName {return shift->full_name(@_)};
解决方法
呸,答案很简单.我完全忽略了MooseX :: Aliases,它可以让你轻松地做到这一点：
has 'full_name' => (
is => 'rw',alias => 'fullName',# or alias => [qw(fullName)] for even more
);
不像我想的那样内置Moose,但绝对足够.