54 lines
2.8 KiB
Plaintext
54 lines
2.8 KiB
Plaintext
The following are examples of pl_subcalls.d.
|
|
|
|
This is a simple script to count executed Perl subroutines. Here it traces
|
|
an example program, Code/Perl/func_abc.pl.
|
|
|
|
# pl_subcalls.d
|
|
Tracing... Hit Ctrl-C to end.
|
|
^C
|
|
FILE SUB CALLS
|
|
func_abc.pl func_a 1
|
|
func_abc.pl func_b 1
|
|
func_abc.pl func_c 1
|
|
|
|
While tracing, func_a() from the program "func_abc.pl" was executed once,
|
|
along with func_b() and func_c().
|
|
|
|
|
|
|
|
The following traces a Perl network interface statistics tool, "nicstat"
|
|
version 0.99,
|
|
|
|
# pl_subcalls.d
|
|
Tracing... Hit Ctrl-C to end.
|
|
^C
|
|
FILE SUB CALLS
|
|
Config.pm DESTROY 1
|
|
Config.pm TIEHASH 1
|
|
Config.pm import 1
|
|
DynaLoader.pm bootstrap 1
|
|
DynaLoader.pm dl_load_flags 1
|
|
Std.pm getopts 1
|
|
nicstat fetch_net_data 1
|
|
nicstat find_nets 1
|
|
register.pm import 1
|
|
warnings.pm BEGIN 1
|
|
Config.pm BEGIN 2
|
|
DynaLoader.pm BEGIN 2
|
|
Exporter.pm import 2
|
|
register.pm mkMask 2
|
|
vars.pm import 2
|
|
Kstat.pm BEGIN 3
|
|
nicstat BEGIN 3
|
|
vars.pm BEGIN 3
|
|
Config.pm FETCH 4
|
|
strict.pm unimport 4
|
|
strict.pm import 5
|
|
AutoLoader.pm BEGIN 6
|
|
strict.pm bits 6
|
|
nicstat print_neat 18
|
|
|
|
The number of subroutines called by nicstat can be seen above, which includes
|
|
subroutines from libraries and modules that the program used.
|
|
|