perl - 在 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

如您所见，一个参数被传递给子程序。如果您不想使用匿名子，则必须指示 Tk 传递该参数。 Tk 确实有办法做到这一点。

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

这样可能会快一点，也可能不会快一点，但绝对没有

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

至于其他包中的子程序？如果你有一个叫做 using 的东西

Car::Race();

它将被调用为

-command => \&Car::Race,

但这不是你这里的。

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