编程性地发现perl模块的所有子程序的最佳方法是什么？这可能是一个模块，一个类(不是@EXPORT)，或其间的任何东西。
编辑：所有下面的方法看起来像他们将工作。我可能会在生产中使用Class :: Sniff或Class :: Inspector。然而，莱昂的答案被标记为“接受”，因为它回答了提出的问题，即使没有严格的“参考”不被使用。 :-)类::嗅觉可能是一个不错的选择，因为它进步;看起来好像有很多想法已经进入了它。
解决方法
- 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\::"}
- }