| File | /tmp/x/x.pl |
| Statements Executed | 312 |
| Total Time | 0.0021757 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 100 | 1 | 1 | 871µs | 871µs | main::foo |
| 0 | 0 | 0 | 0s | 0s | main::BEGIN |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | 3 | 340µs | 113µs | use strict; # spent 14µs making 1 call to strict::import |
| 2 | 3 | 203µs | 68µs | use warnings; # spent 50µs making 1 call to warnings::import |
| 3 | ||||
| 4 | 3 | 301µs | 100µs | use 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 | |||
| 7 | 100 | 140µs | 1µs | my $a = 2; |
| 8 | 100 | 120µs | 1µs | $a = 1 if SLOWDBG; |
| 9 | 100 | 414µs | 4µs | print "$a"; |
| 10 | } | |||
| 11 | ||||
| 12 | 2 | 646µs | 323µs | foo for 1..100; # spent 871µs making 100 calls to main::foo, avg 9µs/call |
| 13 | 1 | 12µs | 12µs | print "\n"; |
| 14 |