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

Question

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

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

而不是打印像:

MyObject=HASH(0x1fe9a64)

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

Answer 1

看看这个overloadpragma.我不认为你可以重载标量上下文,但尝试重载字符串化(用你的引号表示"",你必须引用傻看'""',使用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