Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/darwin-2level/Digest/MD5.pm
Statements	Executed 18 statements in 475µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	11µs	21µs	Digest::MD5::::BEGIN@3Digest::MD5::BEGIN@3
1	1	1	6µs	44µ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	24µs	2	32µs	# spent 21µs (11+11) within Digest::MD5::BEGIN@3 which was called: # once (11µs+11µs) by PPI::Util::BEGIN@7 at line 3 use strict; # spent 21µs making 1 call to Digest::MD5::BEGIN@3 # spent 11µs making 1 call to strict::import
4	2	139µs	2	82µs	# spent 44µs (6+38) within Digest::MD5::BEGIN@4 which was called: # once (6µs+38µs) by PPI::Util::BEGIN@7 at line 4 use vars qw($VERSION @ISA @EXPORT_OK); # spent 44µs making 1 call to Digest::MD5::BEGIN@4 # spent 38µs making 1 call to vars::import
5
6	1	500ns			$VERSION = '2.52';
7
8	1	200ns			require Exporter;
9	1	1µs			*import = \&Exporter::import;
10	1	900ns			@EXPORT_OK = qw(md5 md5_hex md5_base64);
11
12	1	400ns			eval {
13	1	58µs			require Digest::base;
14	1	4µs			push(@ISA, 'Digest::base');
15					};
16	1	100ns			if ($@) {
17					my $err = $@;
18					*add_bits = sub { die $err };
19					}
20
21
22	1	2µs			eval {
23	1	300ns			require XSLoader;
24	1	225µs	1	220µs	XSLoader::load('Digest::MD5', $VERSION); # spent 220µs making 1 call to XSLoader::load
25					};
26	1	300ns			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	900ns			*reset = \&new;
42					}
43
44	1	18µs			1;
45					__END__