编程性地发现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\::"}
}