如何在单元测试中打印哈希键？

Question

我的一个单元测试给出了这个错误：

#   Failed test at t/test.t line 53.
#                   'HASH(0x55fd82c77b80)value'
#     doesn't match '(?-xism:'value')'

这让我觉得我认为返回字符串的子程序实际上会返回一个哈希。请注意，我对此子句的覆盖是：

sub foo {
    return $self->SUPER::foo($arg1, $arg2, $arg3).'value';
}

由于我不知道为什么会发生这种情况，我想打印哈希的所有键。关于如何在perl中打印哈希键有plenty个问题，但是如何在单元测试中做到这一点（你不能简单地print）？