| Filename | /usr/lib/perl/5.10/Digest/MD5.pm |
| Statements | Executed 20 statements in 732µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 1 | 1 | 47µs | 47µs | Digest::MD5::add (xsub) |
| 3 | 1 | 1 | 35µs | 35µs | Digest::MD5::new (xsub) |
| 1 | 1 | 1 | 17µs | 20µs | Digest::MD5::BEGIN@3 |
| 3 | 1 | 1 | 10µs | 10µs | Digest::MD5::hexdigest (xsub) |
| 1 | 1 | 1 | 8µs | 62µs | Digest::MD5::BEGIN@4 |
| 3 | 1 | 1 | 6µs | 6µs | Digest::MD5::DESTROY (xsub) |
| 0 | 0 | 0 | 0s | 0s | Digest::MD5::__ANON__[:18] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Digest::MD5; | ||||
| 2 | |||||
| 3 | 3 | 35µs | 2 | 24µs | # spent 20µs (17+4) within Digest::MD5::BEGIN@3 which was called:
# once (17µs+4µs) by C4::Auth::BEGIN@22 at line 3 # spent 20µs making 1 call to Digest::MD5::BEGIN@3
# spent 4µs making 1 call to strict::import |
| 4 | 3 | 241µs | 2 | 115µs | # spent 62µs (8+53) within Digest::MD5::BEGIN@4 which was called:
# once (8µs+53µs) by C4::Auth::BEGIN@22 at line 4 # spent 62µs making 1 call to Digest::MD5::BEGIN@4
# spent 53µs making 1 call to vars::import |
| 5 | |||||
| 6 | 1 | 700ns | $VERSION = '2.39'; | ||
| 7 | |||||
| 8 | 1 | 900ns | require Exporter; | ||
| 9 | 1 | 2µs | *import = \&Exporter::import; | ||
| 10 | 1 | 2µs | @EXPORT_OK = qw(md5 md5_hex md5_base64); | ||
| 11 | |||||
| 12 | 3 | 131µs | eval { | ||
| 13 | require Digest::base; | ||||
| 14 | push(@ISA, 'Digest::base'); | ||||
| 15 | }; | ||||
| 16 | 1 | 300ns | if ($@) { | ||
| 17 | my $err = $@; | ||||
| 18 | *add_bits = sub { die $err }; | ||||
| 19 | } | ||||
| 20 | |||||
| 21 | |||||
| 22 | 3 | 303µs | eval { | ||
| 23 | require XSLoader; | ||||
| 24 | 1 | 291µs | XSLoader::load('Digest::MD5', $VERSION); # spent 291µs making 1 call to XSLoader::load | ||
| 25 | }; | ||||
| 26 | 2 | 3µs | if ($@) { | ||
| 27 | my $olderr = $@; | ||||
| 28 | eval { | ||||
| 29 | # Try to load the pure perl version | ||||
| 30 | require Digest::Perl::MD5; | ||||
| 31 | |||||
| 32 | Digest::Perl::MD5->import(qw(md5 md5_hex md5_base64)); | ||||
| 33 | push(@ISA, "Digest::Perl::MD5"); # make OO interface work | ||||
| 34 | }; | ||||
| 35 | if ($@) { | ||||
| 36 | # restore the original error | ||||
| 37 | die $olderr; | ||||
| 38 | } | ||||
| 39 | } | ||||
| 40 | else { | ||||
| 41 | *reset = \&new; | ||||
| 42 | } | ||||
| 43 | |||||
| 44 | 1 | 14µs | 1; | ||
| 45 | __END__ | ||||
# spent 6µs within Digest::MD5::DESTROY which was called 3 times, avg 2µs/call:
# 3 times (6µs+0s) by CGI::Session::ID::md5::generate_id at line 80 of CGI/Session.pm, avg 2µs/call | |||||
# spent 47µs within Digest::MD5::add which was called 3 times, avg 16µs/call:
# 3 times (47µs+0s) by CGI::Session::ID::md5::generate_id at line 15 of CGI/Session/ID/md5.pm, avg 16µs/call | |||||
# spent 10µs within Digest::MD5::hexdigest which was called 3 times, avg 3µs/call:
# 3 times (10µs+0s) by CGI::Session::ID::md5::generate_id at line 16 of CGI/Session/ID/md5.pm, avg 3µs/call | |||||
# spent 35µs within Digest::MD5::new which was called 3 times, avg 12µs/call:
# 3 times (35µs+0s) by CGI::Session::ID::md5::generate_id at line 14 of CGI/Session/ID/md5.pm, avg 12µs/call |