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