Profile of Digest/MD5.pm

Filename	/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/darwin-2level/Digest/MD5.pm
Statements	Executed 18 statements in 1.77ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	25µs	29µs	Digest::MD5::::BEGIN@3Digest::MD5::BEGIN@3
1	1	1	4µs	34µs	Digest::MD5::::BEGIN@4Digest::MD5::BEGIN@4
0	0	0	0s	0s	Digest::MD5::::__ANON__[:19]Digest::MD5::__ANON__[:19]

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	25µs	2	33µs	# spent 29µs (25+4) within Digest::MD5::BEGIN@3 which was called: # once (25µs+4µs) by Mojo::Util::BEGIN@6 at line 3 use strict; # spent 29µs making 1 call to Digest::MD5::BEGIN@3 # spent 4µs making 1 call to strict::import
4	2	162µs	2	64µs	# spent 34µs (4+30) within Digest::MD5::BEGIN@4 which was called: # once (4µs+30µs) by Mojo::Util::BEGIN@6 at line 4 use warnings; # spent 34µs making 1 call to Digest::MD5::BEGIN@4 # spent 30µs making 1 call to warnings::import
5
6	1	0s			our $VERSION = '2.58';
7
8	1	1µs			require Exporter;
9	1	1µs			*import = \&Exporter::import;
10	1	1µs			our @EXPORT_OK = qw(md5 md5_hex md5_base64);
11
12					our @ISA;
13	1	1µs			eval {
14	1	420µs			require Digest::base;
15	1	7µs			@ISA = qw/Digest::base/;
16					};
17	1	0s			if ($@) {
18					my $err = $@;
19					*add_bits = sub { die $err };
20					}
21
22
23	1	0s			eval {
24	1	1µs			require XSLoader;
25	1	1.14ms	1	1.13ms	XSLoader::load('Digest::MD5', $VERSION); # spent 1.13ms making 1 call to XSLoader::load
26					};
27	1	1µs			if ($@) {
28					my $olderr = $@;
29					eval {
30					# Try to load the pure perl version
31					require Digest::Perl::MD5;
32
33					Digest::Perl::MD5->import(qw(md5 md5_hex md5_base64));
34					unshift(@ISA, "Digest::Perl::MD5"); # make OO interface work
35					};
36					if ($@) {
37					# restore the original error
38					die $olderr;
39					}
40					}
41					else {
42	1	1µs			*reset = \&new;
43					}
44
45	1	9µs			1;
46					__END__