Perl中能否省略括号调用blessed hash的方法？

针对你遇到的问题——Perl中无法省略括号（或箭头）调用blessed hash对象的方法，同时需要构建更易读的计时包装结构，除了顶层函数包装外，还有以下几种可行方法：

1. 间接对象语法（Indirect Object Syntax） #

Perl原生支持间接对象调用，写法为方法名 对象 参数，等价于对象->方法名(参数)。比如你的Foo模块：

# Foo.pm
package Foo;
sub new { bless {}, shift }
sub say { my ($self, $msg) = @_; print "Foo: $msg\n" }
1;

调用时可以写成：

use Foo;
my $obj = Foo->new;
say $obj "Hello World"; # 等价于 $obj->say("Hello World")

注意：如果方法名与Perl内置函数（比如这里的say）重名，需要确保Perl不会优先识别为内置函数调用——可以通过no strict 'subs'临时禁用子名检查，或者改用非重名的方法名（比如timed_say）。这种方式无需额外模块，语法简洁，适合构建易读的调用结构。

2. 重载&{}操作符，让对象可作为子例程调用 #

通过重载对象的&{}操作符，可以让对象被当作子引用调用，从而简化调用语法，同时把计时逻辑封装在重载逻辑中：

# Foo.pm
package Foo;
use overload '&{}' => sub {
    my $self = shift;
    return sub {
        # 计时逻辑
        my $start = Time::HiRes::time();
        $self->say(@_);
        my $elapsed = Time::HiRes::time() - $start;
        print "耗时: $elapsed 秒\n";
    };
};
sub new { bless {}, shift }
sub say { my ($self, $msg) = @_; print "Foo: $msg\n" }
1;

调用时：

use Foo;
use Time::HiRes;
my $obj = Foo->new;
$obj->("Hello"); # 自动触发计时与say方法调用

这种方式把计时逻辑和对象绑定，调用时只需通过子引用语法调用，无需额外包装函数。

3. 源过滤器（激进方案） #

如果需要彻底自定义语法（比如$obj say "Hello"这种无箭头写法），可以用源过滤器修改Perl源代码的解析逻辑，比如用Filter::Simple：

# MyTimerFilter.pm
package MyTimerFilter;
use Filter::Simple;

FILTER {
    # 把 $obj 方法名 参数 替换为 $obj->方法名(参数)
    s/(\$\w+)\s+(\w+)\s+(.+)/$1->$2($3)/g;
};
1;

调用时：

use MyTimerFilter;
use Foo;
my $obj = Foo->new;
$obj say "Hello"; # 被过滤器替换为 $obj->say("Hello")

注意：源过滤器存在调试困难、易破坏语法兼容性等问题，仅适合实验性场景，不推荐生产环境使用。

优化顶层函数包装方案 #

如果你已经尝试了顶层函数包装，可以通过子例程原型优化调用可读性。比如给计时包装函数添加原型，让Perl正确解析参数：

use Time::HiRes;

# 原型(&@)表示第一个参数是代码块，后续是任意参数
sub timer (&@) {
    my ($code, @args) = @_;
    my $start = Time::HiRes::time();
    my $result = $code->(@args);
    my $elapsed = Time::HiRes::time() - $start;
    print "耗时: $elapsed 秒\n";
    return $result;
}

# 调用时可以省略括号，写法更简洁
timer { $obj->say("Hello") };
# 或者结合curry模块提前绑定方法，进一步简化
use curry;
timer $obj->curry::say, "Hello";

内容的提问来源于stack exchange，提问作者flakes