perl - 如何确定运行时是否存在 Perl 函数？

Question

我正在使用 Perl 开发一个测试框架。作为测试的一部分，我可能需要为任何给定的测试添加前置条件或后置条件检查，但不一定适用于所有测试。到目前为止，我所拥有的是：

eval "&verify_precondition_TEST$n";
print $@ if $@;

不幸的是，如果该函数不存在，则会输出“未定义的子例程 &verify_precondition_TEST1 调用于 ...”。

在尝试调用它之前，如何提前确定该函数是否存在？

Answer 1

Package::Name->can('function')

或者

*Package::Name::function{CODE}

# or no strict; *{ "Package::Name::$function" }{CODE}

或者只是接受例外。如果您在 eval 中调用该函数并且设置了 $@，那么您将无法调用该函数。

最后，听起来您可能想要 Test::Class 而不是自己编写。

编辑：（ defined &function_name或no strict; defined &{ $function_name }变体），如其他答案中所述，看起来是最好的方法。UNIVERSAL::can 最适合作为方法调用的东西（风格上），当 Perl 为您提供语法来做您想做的事情时，为什么还要麻烦弄乱符号表。

学习++ :)

Answer 2

sub function_exists {    
    no strict 'refs';
    my $funcname = shift;
    return \&{$funcname} if defined &{$funcname};
    return;
}

if (my $subref = function_exists("verify_precondition_TEST$n") {
    ...
}

Answer 3

定义：

if (eval "defined(&verify_precondition_TEST$n)") {
    eval "&verify_precondition_TEST$n";
    print $@ if $@;
}
else {
    print "verify_precondition_TEST$n does not exist\n";
}

编辑：嗯，我只想到了问题中的 eval，但是用 Leon Timmermans 提出的符号引用，你不能这样做

if (defined(&{"verify_precondition_TEST$n"}) {
    &{"verify_precondition_TEST$n"};
    print $@ if $@;
}
else {
    print "verify_precondition_TEST$n does not exist\n";
}

即使严格？

Answer 4

我曾经使用过 Leon 的方法，但是当我有多个包时，它失败了。我不确定确切的原因；我认为这与名称空间之间的范围传播有关。这是我想出的解决方案。

my %symbols = ();
my $package =__PACKAGE__; #bring it in at run-time
{
    no strict;
    %symbols = %{$package . "::"}; #See Symbol Tables on perlmod
}
print "$funcname not defined\n" if (! defined($symbols{$funcname});

参考：
perlmod页面上的 __PACKAGE__ 参考。

澳大利亚 Perl 培训上的Packages/__PACKAGE__参考。