如何为 Moose 类型特征实现新句柄？

Question

假设我想将 say 功能添加到 String （注意：这是一个比现实更简单的示例）。所以我可以拥有

has foo => (
   isa => 'Str',
   traits => [ 'String' ],
   handles => {
     say_foo => 'say',
   }
);

我当然可以用来做的事情。

$self->foo( 'bar' );

$self->say_foo;

这会从字面上打印

'bar\n'

我想象子例程会是这样的

sub _say_attr {
   my ( $self, $attr ) = @_;
   say $attr;
}

任何人都可以帮助我填补我如何实际实现这个的空白吗？我并没有真正看到太多关于如何编写自己的句柄的文档。

我真的不需要知道如何修改 String 特征。尽管我希望能够拥有一个通用处理程序，但我不需要知道当前属性的名称即可使其工作。

has foo => (
    isa => 'Str',
    traits => [ 'PrintString' ],
     handles => {
         say_foo => 'say',
     }
);
has bar => (
    isa => 'Str',
    traits => [ 'PrintString' ],
     handles => {
         say_bar => 'say',
     }
);

所以 say 这里可能是一个函数的标识符，该函数不需要调用它的属性的硬编码名称。

Answer 1

您真的想将 say 添加到 String 中，还是满足于将 say_foo 添加到 foo 中？

后者很简单：

has foo => (
   isa => 'Str',
   traits => [ 'String' ],
   handles => {
     say_foo => sub { say $_[0]->foo; },
   }
);

如果您想要更通用的解决方案，您应该查看 Moose::Meta::Attribute::Native::Trait::String 并复制/包装/子类化它而不是试图改变它。