perl - 为什么 Dumper 模块在其设置哈希的分配周围放置括号？

Question

已阅读 this question和 this question关于 my $var 之间的差异和 my ($var) ，我仍然无法理解为什么 Data::Dumper 模块在其代码的以下摘录中使用括号。这些问题的答案中描述的差异似乎都不适用于这里。

  my($s) = {
        level      => 0,           # current recursive depth
        indent     => $Indent,     # various styles of indenting
        # a bunch of other settings removed for brevity's sake
        deparse    => $Deparse,    # use B::Deparse for coderefs
        noseen     => $Sparseseen, # do not populate the seen hash unless necessary
       };

我在一个小脚本中对其进行了测试，我看不出将其声明为 my ($s) 之间有什么区别或作为 my $s .据我所知，在这两种情况下，它都是对哈希的标量引用。

我错过了什么吗？

Answer 1

我同意，这很奇怪。一般来说，赋值左侧的括号会强制右侧在列表上下文而不是标量上下文中进行评估。但这在上面的示例中没有任何作用。

然而，它似乎与 my(...) = ... 的许多其他不必要的用途一致。在 Data::Dumper 中，比如这个:

sub Reset {
  my($s) = shift;
  $s->{seen} = {};
  return $s;
}

尽管如此，它并不一致，因为您还会发现很多未使用它的示例，例如:

my $ref = \$_[1];
my $v;

也许这是作者偶尔的个人偏好，或者他们计划进行多次分配并且之后从未清理过他们的代码......或者可能是多个具有不同偏好的作者，他们犹豫着踩到彼此的脚趾，或者修复他们认为的问题没坏。但这只是猜测...