| Filename | /usr/share/perl5/CGI/Session/ID/md5.pm |
| Statements | Executed 22 statements in 461µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 1 | 1 | 130µs | 229µs | CGI::Session::ID::md5::generate_id |
| 1 | 1 | 1 | 20µs | 25µs | CGI::Session::ID::md5::BEGIN@5 |
| 1 | 1 | 1 | 17µs | 57µs | CGI::Session::ID::md5::BEGIN@6 |
| 1 | 1 | 1 | 10µs | 13µ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 | 30µs | 2 | 29µs | # spent 25µs (20+4) within CGI::Session::ID::md5::BEGIN@5 which was called:
# once (20µs+4µs) by CGI::Session::_load_pluggables at line 5 # spent 25µs making 1 call to CGI::Session::ID::md5::BEGIN@5
# spent 4µs making 1 call to strict::import |
| 6 | 3 | 35µs | 2 | 98µs | # spent 57µs (17+40) within CGI::Session::ID::md5::BEGIN@6 which was called:
# once (17µs+40µs) by CGI::Session::_load_pluggables at line 6 # spent 57µs making 1 call to CGI::Session::ID::md5::BEGIN@6
# spent 40µs making 1 call to Exporter::import |
| 7 | 3 | 146µs | 2 | 15µs | # spent 13µs (10+3) within CGI::Session::ID::md5::BEGIN@7 which was called:
# once (10µs+3µs) by CGI::Session::_load_pluggables at line 7 # spent 13µs making 1 call to CGI::Session::ID::md5::BEGIN@7
# spent 3µs making 1 call to UNIVERSAL::import |
| 8 | |||||
| 9 | 1 | 800ns | $CGI::Session::ID::md5::VERSION = '4.33'; | ||
| 10 | 1 | 11µs | @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler ); | ||
| 11 | |||||
| 12 | 1 | 2µs | *generate = \&generate_id; | ||
| 13 | # spent 229µs (130+99) within CGI::Session::ID::md5::generate_id which was called 3 times, avg 76µs/call:
# 3 times (130µs+99µs) by CGI::Session::new at line 80 of CGI/Session.pm, avg 76µs/call | ||||
| 14 | 9 | 232µs | 3 | 35µs | my $md5 = new Digest::MD5(); # spent 35µs making 3 calls to Digest::MD5::new, avg 12µs/call |
| 15 | 3 | 47µs | $md5->add($$ , time() , rand(time) ); # spent 47µs making 3 calls to Digest::MD5::add, avg 16µs/call | ||
| 16 | 3 | 10µs | return $md5->hexdigest(); # spent 10µs making 3 calls to Digest::MD5::hexdigest, avg 3µs/call | ||
| 17 | } | ||||
| 18 | |||||
| 19 | |||||
| 20 | 1 | 4µs | 1; | ||
| 21 | |||||
| 22 | =pod | ||||
| 23 | |||||
| - - |