以编程方式发现 perl 模块的所有子例程的最佳方法是什么？这可能是一个模块、一个类（没有@EXPORT）或任何介于两者之间的东西。
编辑：下面的所有方法看起来都可以工作。我可能会在生产中使用 Class::Sniff 或 Class::Inspector。然而，Leon 的回答被标记为“接受”，因为它回答了所提出的问题，即使必须使用no strict 'refs'。 :-) Class::Sniff 可能是一个不错的选择。看来是经过深思熟虑的。
【问题讨论】：
标签： perl reflection perl-module subroutine
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\::"}
}
【讨论】：
Class::Inspector 允许您获取有关已加载类的信息。大多数或所有这些信息都可以通过其他方式找到，但它们并不总是非常友好，并且通常涉及相对较高水平的 Perl 魔法，或者看起来很奇怪和不寻常的代码。 Class::Inspector 试图为这些信息提供一个更简单、更友好的界面...
【讨论】：
看看这个： Class::Sniff
该界面目前相当临时，并且可能会发生变化。创建新实例后，调用报告方法是您的最佳选择。然后，您可以直观地检查它以寻找潜在的问题：
my $sniff = Class::Sniff->new({class => 'Some::Class'}); print $sniff->report;该模块试图帮助程序员在面向对象的代码中发现“代码异味”。如果它报告了什么，这并不意味着你的代码是错误的。这只是意味着您可能想更仔细地查看您的代码，看看您是否有任何问题。
目前，我们假设 Perl 的默认最左、深度优先搜索顺序。我们将来可能会改变它（并且有一个解决方法是使用 paths 方法。稍后会详细介绍）...
【讨论】：