在驼鹿默认值中使用当地时间

Question

下面的代码有什么问题？运行时，我得到：“在连接 (.) 或 ./main.pl 第 14 行的字符串中使用未初始化的值”

#!/usr/bin/perl

package Test;

use Moose;

has 'message'     => (isa => 'HashRef', is => 'ro', default => sub{{(localtime)[2] => {(localtime)[3] => "hello"}}});

# the one below works fine
#has 'message'     => (isa => 'HashRef', is => 'ro', default => sub{{"18" => {"16" => "hello"}}});

sub show {
    my $self = shift;
    print("Test: " . $self->message->{(localtime)[2]}->{(localtime)[3]} . "\n");
}

my $o = Test->new();
$o->show();

如果我不使用 localtime() 那么它工作正常。而且 localtime[2] 和 [3] 不会经常改变（2 是小时，3 是月日），所以问题不是这样的。如果我使用调试器运行脚本，我会得到：

x $self
0  Test=HASH(0x3597300)
   'message' => HASH(0x3597618)
      16 => 'hello'

所以看起来我“失去”了一级间接性，不太确定为什么......知道吗？

Answer 1

外部 {} 不会解析为哈希引用。添加显式的 return：

has 'message'     => (isa => 'HashRef', is => 'ro', default => sub{ return {(localtime)[2] => {(localtime)[3] => "hello"}} });

---

+ 来强制执行此操作。

has 'message'     => (isa => 'HashRef', is => 'ro', default => sub{ +{(localtime)[2] => {(localtime)[3] => "hello"}} });