发现 Perl 模块拥有的所有子例程的最佳方法是什么？

Question

以编程方式发现 Perl 模块具有的所有子例程的最佳方法是什么？ 这可以是一个模块、一个类（无 @EXPORT）或介于两者之间的任何内容。

编辑：下面的所有方法看起来都有效。 我可能会在生产中使用 Class::Sniff 或 Class::Inspector 。 然而，Leon 的答案被标记为“已接受”，因为它回答了所提出的问题，尽管不需要使用严格的“refs”。 :-) Class::Sniff 随着它的进展可能是一个不错的选择； 看来是花了很多心思的。

Answer 1

sub list_module {
    my $module = shift;
    no strict 'refs';
    return grep { defined &{"$module\::$_"} } keys %{"$module\::"}
}

ETA：如果你想过滤掉导入的子程序，你可以这样做

use B qw/svref_2object/;

sub in_package {
    my ($coderef, $package) = @_;
    my $cv = svref_2object($coderef);
    return if not $cv->isa('B::CV') or $cv->GV->isa('B::SPECIAL');
    return $cv->GV->STASH->NAME eq $package;
}

sub list_module {
    my $module = shift;
    no strict 'refs';
    return grep { defined &{"$module\::$_"} and in_package(\&{*$_}, $module) } keys %{"$module\::"}
}

Answer 2

Class::Inspector：

Class::Inspector 允许您获取有关已加载类的信息。 大多数或全部这些信息可以通过其他方式找到，但它们并不总是非常友好，并且通常涉及相对较高水平的 Perl 魔法，或者看起来奇怪和不寻常的代码。 Class::Inspector 试图为这些信息提供一个更简单、更友好的界面...

Answer 3

看看这个：
Class::Sniff

该界面目前相当临时，并且可能会发生变化。 创建新实例后，调用report方法是最好的选择。 然后，您可以目视检查它以查找潜在的问题：

my $sniff = Class::Sniff->new({class => 'Some::Class'}); 
  打印 $sniff->报告; 
  

该模块试图帮助程序员发现面向对象代码中的“代码味道”。 如果它报告某些内容，并不意味着您的代码是错误的。 这只是意味着您可能需要更仔细地查看代码以查看是否有任何问题。

目前，我们假设 Perl 默认的最左侧、深度优先搜索顺序。 我们将来可能会改变这一点（并且有一个使用 paths 方法的解决方法。稍后会详细介绍）...