让我们说我想为String添加say功能(注意：这是一个比现实更简单的例子).所以我可以
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',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并复制/包装/子类化而不是尝试更改它.