| Filename | /usr/share/perl5/CGI/Session/ID/md5.pm |
| Statements | Executed 22 statements in 552µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 1 | 1 | 150µs | 262µs | CGI::Session::ID::md5::generate_id |
| 1 | 1 | 1 | 31µs | 38µs | CGI::Session::ID::md5::BEGIN@5 |
| 1 | 1 | 1 | 26µs | 92µs | CGI::Session::ID::md5::BEGIN@6 |
| 1 | 1 | 1 | 9µs | 9µs | CGI::Session::ID::md5::BEGIN@7 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package CGI::Session::ID::md5; | ||||
| 2 | |||||
| 3 | # $Id: md5.pm 420 2008-07-08 01:23:06Z markstos $ | ||||
| 4 | |||||
| 5 | 3 | 53µs | 2 | 45µs | # spent 38µs (31+7) within CGI::Session::ID::md5::BEGIN@5 which was called:
# once (31µs+7µs) by CGI::Session::_load_pluggables at line 5 # spent 38µs making 1 call to CGI::Session::ID::md5::BEGIN@5
# spent 7µs making 1 call to strict::import |
| 6 | 3 | 54µs | 2 | 157µs | # spent 92µs (26+66) within CGI::Session::ID::md5::BEGIN@6 which was called:
# once (26µs+66µs) by CGI::Session::_load_pluggables at line 6 # spent 92µs making 1 call to CGI::Session::ID::md5::BEGIN@6
# spent 66µs making 1 call to Exporter::import |
| 7 | 3 | 155µs | 1 | 9µs | # spent 9µs within CGI::Session::ID::md5::BEGIN@7 which was called:
# once (9µs+0s) by CGI::Session::_load_pluggables at line 7 # spent 9µs making 1 call to CGI::Session::ID::md5::BEGIN@7 |
| 8 | |||||
| 9 | 1 | 1µs | $CGI::Session::ID::md5::VERSION = '4.33'; | ||
| 10 | 1 | 14µs | @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler ); | ||
| 11 | |||||
| 12 | 1 | 3µs | *generate = \&generate_id; | ||
| 13 | # spent 262µs (150+112) within CGI::Session::ID::md5::generate_id which was called 3 times, avg 87µs/call:
# 3 times (150µs+112µs) by CGI::Session::new at line 80 of CGI/Session.pm, avg 87µs/call | ||||
| 14 | 3 | 67µs | 3 | 36µs | my $md5 = new Digest::MD5(); # spent 36µs making 3 calls to Digest::MD5::new, avg 12µs/call |
| 15 | 3 | 118µs | 3 | 55µs | $md5->add($$ , time() , rand(time) ); # spent 55µs making 3 calls to Digest::MD5::add, avg 18µs/call |
| 16 | 3 | 80µs | 3 | 13µs | return $md5->hexdigest(); # spent 13µs making 3 calls to Digest::MD5::hexdigest, avg 4µs/call |
| 17 | } | ||||
| 18 | |||||
| 19 | |||||
| 20 | 1 | 6µs | 1; | ||
| 21 | |||||
| 22 | =pod | ||||
| 23 | |||||
| - - |