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

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)->();
    }
}