给出对 Perl 中另一个模块中函数的引用

Question

我想在 Perl 中使用 Tk 制作一个小型 GUI，它有 2 个按钮：Race 和 Quit。

我希望 Race 按钮运行位于模块 Car 中且名为 Race 的函数。

我编写了以下代码：

#!/usr/bin/perl -w

use strict;
use warnings;
use Car;
use Tk;

my $mw = MainWindow->new;
$mw->Label(-text => "The Amazing Race")->pack;
$mw->Button(
        -text    => 'Race',
        -command => sub {Car->Race()},
)->pack;
$mw->Button(
        -text    => 'Quit',
        -command => sub { exit },
)->pack;
MainLoop;

它可以工作，但对我来说，创建一个仅调用另一个子例程的未命名子例程似乎很愚蠢。但是当我尝试使用 -command => sub Car->Race(), 或 -command =>; sub \&Car->Race()， 它不起作用。

我知道这是因为我没有传递对该函数的引用。如何传递对位于另一个命名空间（模块）中的函数的引用？

Answer 1

Car->Race()

与您所看到的相同*

Car->can('Race')->('Car');
^^^^^^^^^^^^^^^^   ^^^^^
sub ref            args

，参数被传递给 sub。如果您不想使用 anon sub，则必须指示 Tk 传递该参数。 Tk 确实有办法做到这一点。

-command => [ Car->can('Race'), 'Car' ],

这可能会快一点，也可能不会快一点，但它绝对不如

-command => sub { Car->Race() },

其他包中的子例程那么清晰？如果你有一个叫做 using 的东西，

Car::Race();

它就会被称为 using

-command => \&Car::Race,

但这不是你这里所拥有的。

* — 使用 AUTOLOAD 的模块除外。这就是自动加载器应该覆盖 can 的原因。

Answer 2

这种语法很简单：

$mw->Button(
        -text    => 'Race',
        -command => \&Car::Race,
)->pack;

但是如果您需要将任何特殊参数传递给该函数或将其作为方法调用，您仍然需要一个匿名子：

$mw->Button(
        -text    => 'Race',
        -command => sub { Car->Race(@_) },
)->pack;

这个调用 Race 作为包 Car 的方法并将所有参数传递给它。