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

发布时间：2020-12-16 06:14:30 所属栏目：大数据来源：网络整理

导读：让我们说我想为String添加say功能(注意：这是一个比现实更简单的例子).所以我可以 has foo = ( isa = 'Str',traits = [ 'String' ],handles = { say_foo = 'say',}); 我当然可以用来做. $self-foo( 'bar' );$self-say_foo; 从字面上打印 'barn' 我想这个子

让我们说我想为String添加say功能(注意：这是一个比现实更简单的例子).所以我可以

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

我当然可以用来做.

$self->foo( 'bar' );

$self->say_foo;

从字面上打印

'barn'

我想这个子程序会是这样的

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

任何人都可以帮助我填补我实际实现这一点的空白吗？关于如何编写自己的句柄,我并没有太多关于文档的看法.

我真的不需要知道如何修改String特征.我希望能够拥有一个通用的处理程序,我不需要知道当前属性的名称,以使其工作.

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

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

解决方法

你真的想在String中添加say,还是满足于将say_foo添加到foo？

后者很简单：

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

如果你想要一个更通用的解决方案,你应该查看Moose::Meta::Attribute::Native::Trait::String并复制/包装/子类化而不是尝试更改它.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!