| Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/x86_64-linux/Digest/SHA1.pm |
| Statements | Executed 18 statements in 219µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 43µs | 43µs | Digest::SHA1::bootstrap (xsub) |
| 1 | 1 | 1 | 12µs | 14µs | Digest::SHA1::BEGIN@3 |
| 1 | 1 | 1 | 6µs | 47µs | Digest::SHA1::BEGIN@4 |
| 0 | 0 | 0 | 0s | 0s | Digest::SHA1::__ANON__[:21] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Digest::SHA1; | ||||
| 2 | |||||
| 3 | 3 | 19µs | 2 | 16µs | # spent 14µs (12+2) within Digest::SHA1::BEGIN@3 which was called:
# once (12µs+2µs) by SQL::Translator::Utils::BEGIN@24 at line 3 # spent 14µs making 1 call to Digest::SHA1::BEGIN@3
# spent 2µs making 1 call to strict::import |
| 4 | 3 | 107µs | 2 | 88µs | # spent 47µs (6+41) within Digest::SHA1::BEGIN@4 which was called:
# once (6µs+41µs) by SQL::Translator::Utils::BEGIN@24 at line 4 # spent 47µs making 1 call to Digest::SHA1::BEGIN@4
# spent 41µs making 1 call to vars::import |
| 5 | |||||
| 6 | 1 | 500ns | $VERSION = '2.13'; | ||
| 7 | |||||
| 8 | 1 | 400ns | require Exporter; | ||
| 9 | 1 | 900ns | *import = \&Exporter::import; | ||
| 10 | 1 | 1µs | @EXPORT_OK = qw(sha1 sha1_hex sha1_base64 sha1_transform); | ||
| 11 | |||||
| 12 | 1 | 700ns | require DynaLoader; | ||
| 13 | 1 | 8µs | @ISA=qw(DynaLoader); | ||
| 14 | |||||
| 15 | 3 | 67µs | eval { | ||
| 16 | require Digest::base; | ||||
| 17 | push(@ISA, 'Digest::base'); | ||||
| 18 | }; | ||||
| 19 | 1 | 200ns | if ($@) { | ||
| 20 | my $err = $@; | ||||
| 21 | *add_bits = sub { die $err }; | ||||
| 22 | } | ||||
| 23 | |||||
| 24 | 1 | 6µs | 1 | 308µs | Digest::SHA1->bootstrap($VERSION); # spent 308µs making 1 call to DynaLoader::bootstrap |
| 25 | |||||
| 26 | 1 | 9µs | 1; | ||
| 27 | __END__ | ||||
# spent 43µs within Digest::SHA1::bootstrap which was called:
# once (43µs+0s) by DynaLoader::bootstrap at line 223 of DynaLoader.pm |