如何使用B :: Concise转储所有函数的ops

Question

现在我可以按如下方式命名子程序printargs来获取转储.

perl -MO=Concise,printargs,-main,-terse Hello.pl

假设我有几个子程序,我如何构建一个通用模块来转储所有子程序的细节？

Answer 1

要转储单个子例程，您可以使用

B::Concise::compile($sub)->()

其中 $sub 是对 sub 的引用。

如果您事先知道替补名单，那么您就完成了，只需对每个替补执行上述操作即可。

否则，要获取特定包中现有子例程名称的列表，您始终可以遍历该包的符号表：

no strict 'refs';
for my $k (keys %{"$pkgname\::"}) {
    if (*{${"$pkgname\::"}{$k}}{CODE}) {
        print "$k\n"; # sub name
    }
}

更新：我的第一行包含一个错误，现已修复。这是完整的示例脚本：

package Blah;

sub x { return "x"; }
sub hehe { print 2*2, "\n"; }
sub meme { die "ouch" }

our $varvar; # to illustrate the {CODE} thingy

package main;
use warnings;
use strict;
use B::Concise;

my $pkgname = "Blah";
no strict 'refs';
for my $k (keys %{"$pkgname\::"}) {
    if (*{${"$pkgname\::"}{$k}}{CODE}) {
        my $sub = \&{${"$pkgname\::"}{$k}};
        print "Dump of $pkgname\::$k():\n";
        B::Concise::compile($sub)->();
    }
}