发现Perl模块所有子程序的最佳方式是什么？

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

原文地址：https://www.jb51.cc/Perl/173184.html