Profile of Digest/SHA1.pm

Filename	/home/doy/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Digest/SHA1.pm
Statements	Executed 18 statements in 985µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	139µs	139µs	Digest::SHA1::::bootstrapDigest::SHA1::bootstrap (xsub)
1	1	1	64µs	79µs	Digest::SHA1::::BEGIN@3Digest::SHA1::BEGIN@3
1	1	1	36µs	302µs	Digest::SHA1::::BEGIN@4Digest::SHA1::BEGIN@4
0	0	0	0s	0s	Digest::SHA1::::__ANON__[:21]Digest::SHA1::__ANON__[:21]

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::SHA1;
2
3	3	115µs	2	94µs	# spent 79µs (64+15) within Digest::SHA1::BEGIN@3 which was called: # once (64µs+15µs) by Markdent::Dialect::Standard::BlockParser::BEGIN@9 at line 3 use strict; # spent 79µs making 1 call to Digest::SHA1::BEGIN@3 # spent 15µs making 1 call to strict::import
4	3	449µs	2	568µs	# spent 302µs (36+266) within Digest::SHA1::BEGIN@4 which was called: # once (36µs+266µs) by Markdent::Dialect::Standard::BlockParser::BEGIN@9 at line 4 use vars qw($VERSION @ISA @EXPORT_OK); # spent 302µs making 1 call to Digest::SHA1::BEGIN@4 # spent 266µs making 1 call to vars::import
5
6	1	4µs			$VERSION = '2.13';
7
8	1	3µs			require Exporter;
9	1	6µs			*import = \&Exporter::import;
10	1	7µs			@EXPORT_OK = qw(sha1 sha1_hex sha1_base64 sha1_transform);
11
12	1	3µs			require DynaLoader;
13	1	26µs			@ISA=qw(DynaLoader);
14
15	1	5µs			eval {
16	1	269µs			require Digest::base;
17	1	32µs			push(@ISA, 'Digest::base');
18					};
19	1	2µs			if ($@) {
20					my $err = $@;
21					*add_bits = sub { die $err };
22					}
23
24	1	30µs	1	1.22ms	Digest::SHA1->bootstrap($VERSION); # spent 1.22ms making 1 call to DynaLoader::bootstrap
25
26	1	34µs			1;
27					__END__

					# spent 139µs within Digest::SHA1::bootstrap which was called: # once (139µs+0s) by DynaLoader::bootstrap at line 223 of DynaLoader.pm sub Digest::SHA1::bootstrap; # xsub