Filename | /usr/local/lib/perl5/site_perl/mach/5.24/Digest/SHA1.pm |
Statements | Executed 16 statements in 497µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 58µs | 58µs | bootstrap (xsub) | Digest::SHA1::
1 | 1 | 1 | 50µs | 58µs | BEGIN@3 | Digest::SHA1::
1 | 1 | 1 | 30µs | 224µs | BEGIN@4 | Digest::SHA1::
0 | 0 | 0 | 0s | 0s | __ANON__[:21] | Digest::SHA1::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Digest::SHA1; | ||||
2 | |||||
3 | 2 | 69µs | 2 | 67µs | # spent 58µs (50+9) within Digest::SHA1::BEGIN@3 which was called:
# once (50µs+9µs) by Razor2::String::BEGIN@4 at line 3 # spent 58µs making 1 call to Digest::SHA1::BEGIN@3
# spent 9µs making 1 call to strict::import |
4 | 2 | 316µs | 2 | 417µs | # spent 224µs (30+194) within Digest::SHA1::BEGIN@4 which was called:
# once (30µs+194µs) by Razor2::String::BEGIN@4 at line 4 # spent 224µs making 1 call to Digest::SHA1::BEGIN@4
# spent 194µs making 1 call to vars::import |
5 | |||||
6 | 1 | 2µs | $VERSION = '2.13'; | ||
7 | |||||
8 | 1 | 2µs | require Exporter; | ||
9 | 1 | 13µs | *import = \&Exporter::import; | ||
10 | 1 | 3µs | @EXPORT_OK = qw(sha1 sha1_hex sha1_base64 sha1_transform); | ||
11 | |||||
12 | 1 | 6µs | require DynaLoader; | ||
13 | 1 | 11µs | @ISA=qw(DynaLoader); | ||
14 | |||||
15 | 1 | 8µs | eval { | ||
16 | 1 | 2µs | require Digest::base; | ||
17 | 1 | 11µs | push(@ISA, 'Digest::base'); | ||
18 | }; | ||||
19 | 1 | 1µs | if ($@) { | ||
20 | my $err = $@; | ||||
21 | *add_bits = sub { die $err }; | ||||
22 | } | ||||
23 | |||||
24 | 1 | 22µs | 1 | 657µs | Digest::SHA1->bootstrap($VERSION); # spent 657µs making 1 call to DynaLoader::bootstrap |
25 | |||||
26 | 1 | 28µs | 1; | ||
27 | __END__ | ||||
# spent 58µs within Digest::SHA1::bootstrap which was called:
# once (58µs+0s) by DynaLoader::bootstrap at line 210 of DynaLoader.pm |