我有一个类,我想在其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
我已经尝试了几个选项来解决这个问题:
>标记id为=>裸机,并用我自己的访问器替换:sub id {$_ [0] – > {id}}.但这只是一个黑客.
>使用字符串重载器使用另一种方法,它只是委托回到id:sub to_string {$_ [0] – > id}.
我只是想知道有没有人有更好的做法?
解决方法
use overload '""' => sub {shift->id},fallback => 1;
对我来说很好.
原文地址:https://www.jb51.cc/Perl/171592.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。