← Index
Performance Profile   « block view • line view • sub view »
For walkoptree.pl
  Run on Fri Apr 17 10:24:39 2009
Reported on Fri Apr 17 10:25:15 2009

File C:/Dokumente und Einstellungen/Entwicklung/Eigene Dateien/Perl/community/walkoptree.pl
Statements Executed 33
Total Time 0.046875 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
20110s0sUNIVERSAL::::debugUNIVERSAL::debug
0000s0smain::::BEGIN main::BEGIN
1110s0smain::::test main::test
LineStmts.Exclusive
Time
Avg.Code
110s0s #!/usr/bin/perl
2
3315.6ms5.21ms use strict;
# spent 0s making 1 call to strict::import
4315.6ms5.21ms use warnings;
# spent 0s making 1 call to warnings::import
5
6315.6ms5.21ms use B ();
7
810s0s test();
# spent 0s making 1 call to main::test
9
1010s0s B::walkoptree( B::main_root(), 'debug' );
# spent 0s making 1 call to B::main_root # spent 0s making 1 call to B::walkoptree # spent 0s making 20 calls to UNIVERSAL::debug, avg 0s/call
11
12
# spent 0s within main::test which was called # once (0s+0s) at line 8
sub test {
1310s0s my $a = 3;
14 }
15
16
# spent 0s within UNIVERSAL::debug which was called 20 times, avg 0s/call: # 20 times (0s+0s) at line 10, avg 0s/call
sub UNIVERSAL::debug {
17200s0s print $_[0]->name,"\n";
# spent 0s making 20 calls to B::OP::name, avg 0s/call
18 }