假设我想添加 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;
}
任何人都可以帮助我填补我如何实际实现的空白吗?关于如何编写自己的文档
handles
我真的看不到太多.我真的不需要知道如何修改
String
性状。就像我希望能够拥有一个通用处理程序一样,我不需要知道当前属性的名称就可以使其工作。has foo => (
isa => 'Str',
traits => [ 'PrintString' ],
handles => {
say_foo => 'say',
}
);
has bar => (
isa => 'Str',
traits => [ 'PrintString' ],
handles => {
say_bar => 'say',
}
);
所以
say
这里可能是一个函数的标识符,它不需要调用它的属性的硬编码名称。
最佳答案
你真的要加say
至 String
,或者您会满足于添加 say_foo
至 foo
?
后者很容易:
has foo => (
isa => 'Str',
traits => [ 'String' ],
handles => {
say_foo => sub { say $_[0]->foo; },
}
);
如果您想要更通用的解决方案,您应该查看 Moose::Meta::Attribute::Native::Trait::String并复制/包装/子类化它而不是尝试更改它。
关于perl - 如何为 Moose 类型特征实现新句柄?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7655745/