perl - 为什么将这个匿名子例程声明在Perl中解析为间接对象方法？

Question

在下面的匿名子例程声明中，Perl似乎将其解析为间接方法调用，而不是子例程:

use 5.010;
use strict;
use warnings;

sub proxy {
    my $new = shift;
    say "creating proxy: $new";
    sub :lvalue {
        say "running proxy: $new";
        tie my $ret, 'Some::Package', shift, $new;
        $ret
    }
}

say "before";
my $p1 = proxy '_value';
say "p1 declared: $p1";
my $p2 = proxy 'value';
say "p2 declared: $p2";

打印:

前
创建代理:_value
正在运行的代理:_value
通过包“Some::Package”无法找到对象方法“TIESCALAR” ...

如果在 return之前添加了 my $sub =或 sub :lvalue {...，那么一切正常，并且将输出:

前
创建代理:_value
p1声明:CODE(0x4c7e6c)
创建代理:值
p2声明:CODE(0x1ea85e4)

如果从子例程中删除了 :lvalue属性，它也可以工作(但当然会更改功能)。

所以我的问题是为什么会这样？这是Perl中的错误与匿名子例程中的属性有关吗？由于某种原因，这是预期的行为吗？如果是错误，是否已注册？

Answer 1

由于语句的开头是查找goto标签的有效位置，因此，将裸字sub后跟冒号标记解析为标签sub:，然后将其解析为lvalue BLOCK，然后将其解析为间接对象语法。

如果强制解析器通过执行return sub : lvalue { ... }或my $foo = sub : lvalue { ... }查找术语，则会按预期进行解析。