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

发布时间：2020-12-15 21:21:32 所属栏目：大数据来源：网络整理

导读：编程性地发现perl模块的所有子程序的最佳方法是什么？这可能是一个模块，一个类(不是@EXPORT)，或其间的任何东西。编辑：所有下面的方法看起来像他们将工作。我可能会在生产中使用Class :: Sniff或Class :: Inspector。然而，莱昂的答案被标记为“接受”，

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!