在 Moose 属性访问器上进行字符串重载的最佳方法是什么？

Question

我有一个类，我想在其 id 属性上应用字符串重载。但是，Moose 不允许属性访问器上的字符串重载。例如：

package Foo;
use Moose;
use overload '""' => \&id, fallback => 1;
has 'id' => (
    is => 'ro',
    isa => 'Int',
    default => 5,
);

package main;
my $foo = Foo->new;
print "$foo\n";

上面的代码会报错：

You are overwriting a locally defined method (id) with an accessor at C:/perl/site/lib/Moose/Meta/Attribute.pm line 927

我尝试了几个选项来解决这个问题：

1. Marking id is => bare，并将其替换为我自己的访问器：sub id {$_[0]->{id}}。但这只是一个 hack。

2. 让字符串重载器使用另一种仅委托回 id 的方法：sub to_string {$_[0]->id}。

我只是想知道是否有人有更好的方法来做到这一点？

Answer 1

use overload '""' => sub {shift->id}, fallback => 1;

对我来说效果很好。

Answer 2

我相信您收到错误是因为 \&id 为稍后定义的 sub 创建了一个占位符，因为 Perl 需要知道 sub 在定义时将具有的地址以创建引用到它。 Moose 有自己的检查来尝试避免覆盖您定义的方法并向您报告。

因为我认为你真正想做的是当对象用作刺时调用 id 方法，如下所示：

use overload '""' => 'id', fallback => 1;

来自 重载文档

指定为字符串的值将被解释为方法名称。