Модуль Perl и инвентарь Sub или Code Mapper

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