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

Question

是否有可能(并且明智)将 Moose 对象计算的值更改为标量上下文。例如，如果我这样做

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

而不是打印类似的东西:

MyObject=HASH(0x1fe9a64)

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

Answer 1

查看 overload 语用。我不认为您可以重载标量上下文，但可以尝试重载字符串化(由 "" 表示，您必须引用它变成看起来很傻的 '""' ，使用 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