← Index
Performance Profile   « block view • line view • sub view »
For x.pl
  Run on Thu Oct 15 14:44:59 2009
Reported on Thu Oct 15 14:45:03 2009

File /tmp/x/x.pl
Statements Executed 312
Total Time 0.0021757 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
10011871µs871µsmain::::foomain::foo
0000s0smain::::BEGINmain::BEGIN
LineStmts.Exclusive
Time
Avg.Code
13340µs113µsuse strict;
# spent 14µs making 1 call to strict::import
23203µs68µsuse warnings;
# spent 50µs making 1 call to warnings::import
3
43301µs100µsuse constant SLOWDBG => $ENV{SLOWDEBUG};
# spent 80µs making 1 call to constant::import
5
6
# spent 871µs within main::foo which was called 100 times, avg 9µs/call: # 100 times (871µs+0s) at line 12, avg 9µs/call
sub foo {
7100140µs1µs my $a = 2;
8100120µs1µs $a = 1 if SLOWDBG;
9100414µs4µs print "$a";
10}
11
122646µs323µsfoo for 1..100;
# spent 871µs making 100 calls to main::foo, avg 9µs/call
13112µs12µsprint "\n";
14