perl – 在标量上下文中使用时,我可以控制Moose对象的值吗？

发布时间：2020-12-15 23:22:07 所属栏目：大数据来源：网络整理

导读：是否有可能(并且明智地)将Moose对象评估的值更改为标量上下文.例如,如果我这样做 my $object = MyObject-new();print $object; 而不是打印像： MyObject=HASH(0x1fe9a64) 我可以让它打印一些其他自定义字符串吗？解决方法看看 overload pragma.我不认为你

是否有可能(并且明智地)将Moose对象评估的值更改为标量上下文.例如,如果我这样做

my $object = MyObject->new();
print $object;

而不是打印像：

MyObject=HASH(0x1fe9a64)

我可以让它打印一些其他自定义字符串吗？

解决方法

看看 overload pragma.我不认为你可以重载标量上下文,但尝试重载字符串化(用“”表示,你必须引用它变成看起来很傻””,使用q运算符引用使其更具可读性).

#!/usr/bin/env perl

use strict;
use warnings;

package MyObject;

use Moose;

use overload 
  q("") => sub { return shift->val() };

has 'val' => ( isa => 'Str',is => 'rw',required => 1);

package main;

my $obj = MyObject->new( val => 'Hello' );

print $obj; # Hello

（编辑：李大同）

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