in reply to Establishing a Subroutine Chain of Custody
C:/Perl/lib/constant.pm (definitions) 103 main & PI + subdef C:/Perl/lib/constant.pm (definitions) 103 main & DEBUG + subdef
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:\>
|
|---|