Looks like you could use B::Xref ( note 
C:/Perl/lib/constant.pm (definitions)   103 main            & PI      
+         subdef
C:/Perl/lib/constant.pm (definitions)   103 main            & DEBUG   
+         subdef

[download]

C:\>cat test.pl

use constant PI    => 4 * atan2(1, 1);
use constant DEBUG => 0;

print "Hello", PI,$/;
print "Hello", DEBUG,$/;



C:\>perl -MO=Xref,-r test.pl
C:/Perl/lib/constant.pm (definitions)   113 constant        & import  
+         subdef
test.pl          (definitions)     0 Regexp          & DESTROY        
+  subdef
test.pl          (definitions)     0 UNIVERSAL       & isa            
+  subdef
test.pl          (definitions)     0 UNIVERSAL       & VERSION        
+  subdef
test.pl          (definitions)     0 UNIVERSAL       & can            
+  subdef
test.pl          (definitions)     0 Internals       & SvREFCNT       
+  subdef
test.pl          (definitions)     0 Internals       & hv_clear_placeh
+olders subdef
test.pl          (definitions)     0 Internals       & hash_seed      
+  subdef
test.pl          (definitions)     0 Internals       & SvREADONLY     
+  subdef
test.pl          (definitions)     0 Internals       & HvREHASH       
+  subdef
test.pl          (definitions)     0 Internals       & rehash_seed    
+  subdef
C:/Perl/lib/constant.pm (definitions)   103 main            & DEBUG   
+         subdef
test.pl          (definitions)     0 Win32           & GetCwd         
+  subdef
test.pl          (definitions)     0 Win32           & GetShortPathNam
+e subdef
test.pl          (definitions)     0 Win32           & GetOSVersion   
+  subdef
test.pl          (definitions)     0 Win32           & SetLastError   
+  subdef
test.pl          (definitions)     0 Win32           & SetChildShowWin
+dow subdef
test.pl          (definitions)     0 Win32           & Sleep          
+  subdef
test.pl          (definitions)     0 Win32           & FormatMessage  
+  subdef
test.pl          (definitions)     0 Win32           & GetFullPathName
+  subdef
test.pl          (definitions)     0 Win32           & SetCwd         
+  subdef
test.pl          (definitions)     0 Win32           & GetTickCount   
+  subdef
test.pl          (definitions)     0 Win32           & IsWinNT        
+  subdef
test.pl          (definitions)     0 Win32           & GetLastError   
+  subdef
test.pl          (definitions)     0 Win32           & CopyFile       
+  subdef
test.pl          (definitions)     0 Win32           & NodeName       
+  subdef
test.pl          (definitions)     0 Win32           & GetLongPathName
+  subdef
test.pl          (definitions)     0 Win32           & GetNextAvailDri
+ve subdef
test.pl          (definitions)     0 Win32           & FsType         
+  subdef
test.pl          (definitions)     0 Win32           & IsWin95        
+  subdef
test.pl          (definitions)     0 Win32           & Spawn          
+  subdef
test.pl          (definitions)     0 Win32           & BuildNumber    
+  subdef
test.pl          (definitions)     0 Win32           & DomainName     
+  subdef
test.pl          (definitions)     0 Win32           & LoginName      
+  subdef
test.pl          (definitions)     0 PerlIO          & get_layers     
+  subdef
C:/Perl/lib/constant.pm (definitions)   103 main            & PI      
+         subdef
test.pl          (main)           5 main            $ /               
+ used
test.pl          (main)           6 main            $ /               
+ used
C:/Perl/lib/constant.pm constant::import    29 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import    29 (lexical)       $ class
+            intro
C:/Perl/lib/constant.pm constant::import    30 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import    31 (lexical)       % const
+ants        intro
C:/Perl/lib/constant.pm constant::import    32 (lexical)       $ multi
+ple         intro
C:/Perl/lib/constant.pm constant::import    34 (lexical)       $ multi
+ple         used
C:/Perl/lib/constant.pm constant::import    37 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import    37 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    39 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import    39 main           %@ _    
+            used
C:/Perl/lib/constant.pm constant::import    39 (lexical)       % const
+ants        used
C:/Perl/lib/constant.pm constant::import    44 (lexical)       % const
+ants        used
C:/Perl/lib/constant.pm constant::import    45 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    47 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    49 (lexical)       $ pkg  
+            intro
C:/Perl/lib/constant.pm constant::import    52 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    52 (lexical)       % forbi
+dden        used
C:/Perl/lib/constant.pm constant::import    52 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    95 (lexical)       $ pkg  
+            used
C:/Perl/lib/constant.pm constant::import    95 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    95 (lexical)       $ full_
+name        intro
C:/Perl/lib/constant.pm constant::import    96 constant        % decla
+red         used
C:/Perl/lib/constant.pm constant::import    96 (lexical)       $ full_
+name        used
C:/Perl/lib/constant.pm constant::import    97 (lexical)       $ multi
+ple         used
C:/Perl/lib/constant.pm constant::import    98 (lexical)       % const
+ants        used
C:/Perl/lib/constant.pm constant::import    98 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    98 (lexical)       $ scala
+r           intro
C:/Perl/lib/constant.pm constant::import    99 (lexical)       $ full_
+name        used
C:/Perl/lib/constant.pm constant::import    99 (lexical)      *$ full_
+name        used
C:/Perl/lib/constant.pm constant::import   101 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import   102 (lexical)       $ scala
+r           intro
C:/Perl/lib/constant.pm constant::import   103 (lexical)      *$ full_
+name        used
C:/Perl/lib/constant.pm constant::import   103 (lexical)     **$ full_
+name        used
C:/Perl/lib/constant.pm constant::import   103 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import   105 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import   105 (lexical)       @ list 
+            intro
C:/Perl/lib/constant.pm constant::import   106 (lexical)     **$ full_
+name        used
C:/Perl/lib/constant.pm constant::import   106 (lexical)    ***$ full_
+name        used
C:/Perl/lib/constant.pm constant::import   108 (lexical)    ***$ full_
+name        used
C:/Perl/lib/constant.pm constant::import   108 (lexical)    ****$ full
+_name        used
C:/Perl/lib/constant.pm constant::import   108 (lexical)       % force
+d_into_main used
C:/Perl/lib/constant.pm constant::import   108 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import   108 (lexical)       $ pkg  
+            used
C:/Perl/lib/constant.pm constant::import    58 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    58 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    58 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    63 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    63 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    63 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    68 warnings        & enabl
+ed          subused
C:/Perl/lib/constant.pm constant::import    69 (lexical)       % keywo
+rds         used
C:/Perl/lib/constant.pm constant::import    69 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    69 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    69 warnings        & warn 
+            subused
C:/Perl/lib/constant.pm constant::import    69 (lexical)       % force
+d_into_main used
C:/Perl/lib/constant.pm constant::import    69 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    69 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    69 warnings        & warn 
+            subused
C:/Perl/lib/constant.pm constant::import    69 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    81 main            @ _    
+            used
C:/Perl/lib/constant.pm constant::import    81 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    81 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    84 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    90 (lexical)       $ name 
+            used
C:/Perl/lib/constant.pm constant::import    90 Carp            & croak
+            subused
C:/Perl/lib/constant.pm constant::import    41 (lexical)       % const
+ants        used
C:/Perl/lib/constant.pm constant::import    41 main            @ _    
+            used
test.pl syntax OK

C:\>

[download]

In reply to Re: Establishing a Subroutine Chain of Custody by Anonymous Monk
in thread Establishing a Subroutine Chain of Custody by Ovid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.