Profile of Digest/MD5.pm

Filename	/usr/lib64/perl5/vendor_perl/5.16.0/x86_64-linux/Digest/MD5.pm
Statements	Executed 18 statements in 26.3ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
92	1	1	556ms	556ms	Digest::MD5::::addDigest::MD5::add (xsub)
92	1	1	2.29ms	2.29ms	Digest::MD5::::newDigest::MD5::new (xsub)
92	1	1	1.50ms	1.50ms	Digest::MD5::::hexdigestDigest::MD5::hexdigest (xsub)
92	6	2	1.16ms	1.16ms	Digest::MD5::::DESTROYDigest::MD5::DESTROY (xsub)
1	1	1	75µs	171µs	Digest::MD5::::BEGIN@3Digest::MD5::BEGIN@3
1	1	1	51µs	429µs	Digest::MD5::::BEGIN@4Digest::MD5::BEGIN@4
0	0	0	0s	0s	Digest::MD5::::__ANON__[:18]Digest::MD5::__ANON__[:18]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Digest::MD5;
2
3	2	159µs	2	267µs	# spent 171µs (75+96) within Digest::MD5::BEGIN@3 which was called: # once (75µs+96µs) by OCBNET::Spritesets::Sprite::BEGIN@82 at line 3 use strict; # spent 171µs making 1 call to Digest::MD5::BEGIN@3 # spent 96µs making 1 call to strict::import
4	2	1.05ms	2	807µs	# spent 429µs (51+378) within Digest::MD5::BEGIN@4 which was called: # once (51µs+378µs) by OCBNET::Spritesets::Sprite::BEGIN@82 at line 4 use vars qw($VERSION @ISA @EXPORT_OK); # spent 429µs making 1 call to Digest::MD5::BEGIN@4 # spent 378µs making 1 call to vars::import
5
6	1	5µs			$VERSION = '2.52';
7
8	1	3µs			require Exporter;
9	1	8µs			*import = \&Exporter::import;
10	1	8µs			@EXPORT_OK = qw(md5 md5_hex md5_base64);
11
12	1	3µs			eval {
13	1	424µs			require Digest::base;
14	1	37µs			push(@ISA, 'Digest::base');
15					};
16	1	1µs			if ($@) {
17					my $err = $@;
18					*add_bits = sub { die $err };
19					}
20
21
22	1	13µs			eval {
23	1	3µs			require XSLoader;
24	1	24.5ms	1	24.5ms	XSLoader::load('Digest::MD5', $VERSION); # spent 24.5ms making 1 call to XSLoader::load
25					};
26	1	4µ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					unshift(@ISA, "Digest::Perl::MD5"); # make OO interface work
34					};
35					if ($@) {
36					# restore the original error
37					die $olderr;
38					}
39					}
40					else {
41	1	9µs			*reset = \&new;
42					}
43
44	1	61µs			1;
45					__END__

					# spent 1.16ms within Digest::MD5::DESTROY which was called 92 times, avg 13µs/call: # 18 times (257µs+0s) by RTP::Webmerge::Fingerprint::md5sum at line 135 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm, avg 14µs/call # 18 times (230µs+0s) by RTP::Webmerge::Fingerprint::md5sum at line 83 of webmerge/scripts/modules/RTP/Webmerge/Checksum.pm, avg 13µs/call # 18 times (218µs+0s) by RTP::Webmerge::Fingerprint::md5sum at line 126 of webmerge/scripts/modules/RTP/Webmerge/Checksum.pm, avg 12µs/call # 18 times (217µs+0s) by RTP::Webmerge::Fingerprint::md5sum at line 111 of webmerge/scripts/modules/RTP/Webmerge/Checksum.pm, avg 12µs/call # 18 times (210µs+0s) by RTP::Webmerge::Fingerprint::md5sum at line 129 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm, avg 12µs/call # 2 times (24µs+0s) by RTP::Webmerge::Fingerprint::md5sum at line 239 of webmerge/scripts/modules/RTP/Webmerge/Merge.pm, avg 12µs/call sub Digest::MD5::DESTROY; # xsub
					# spent 556ms within Digest::MD5::add which was called 92 times, avg 6.04ms/call: # 92 times (556ms+0s) by RTP::Webmerge::Fingerprint::md5sum at line 75 of webmerge/scripts/modules/RTP/Webmerge/Fingerprint.pm, avg 6.04ms/call sub Digest::MD5::add; # xsub
					# spent 1.50ms within Digest::MD5::hexdigest which was called 92 times, avg 16µs/call: # 92 times (1.50ms+0s) by RTP::Webmerge::Fingerprint::md5sum at line 77 of webmerge/scripts/modules/RTP/Webmerge/Fingerprint.pm, avg 16µs/call sub Digest::MD5::hexdigest; # xsub
					# spent 2.29ms within Digest::MD5::new which was called 92 times, avg 25µs/call: # 92 times (2.29ms+0s) by RTP::Webmerge::Fingerprint::md5sum at line 73 of webmerge/scripts/modules/RTP/Webmerge/Fingerprint.pm, avg 25µs/call sub Digest::MD5::new; # xsub