Perl 模块和子清单或代码映射器

Question

我不知道该怎么称呼它，但是有没有一个模块或程序可以抓取我的 perl 代码以供使用和函数调用并构建映射。

例子：

#package myProgram1

use myProgam2;

print retOne();

print myProgam2::retTwo();

sub retOne{
 return(1);
}

我想要一些说明：

myProgram1
 -> Modules
   -> myProgram2
      -> Subs 
        -> printTwo 
 ->Subs
  -> printOne

希望这是有道理的。 -谢谢

Answer 1

见PPI和B::Xref

$ cat junk
use CGI;
print CGI::header();
print retOne();
sub retOne { 1 }


$ perl -MO=Xref junk |grep -A99 "Subroutine (main)"
junk syntax OK
  Subroutine (main)
    Package CGI
      &header           &2
    Package main
      &retOne           &3