Profile of Digest/SHA1.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For xt/tapper-mcp-scheduler-with-db-longrun.t
Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:22:37 2012

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

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 43µs | 43µs | Digest::SHA1::::bootstrapDigest::SHA1::bootstrap (xsub)
1 | 1 | 1 | 12µs | 14µs | Digest::SHA1::::BEGIN@3Digest::SHA1::BEGIN@3
1 | 1 | 1 | 6µs | 47µ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 | 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 use strict; # 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 use vars qw($VERSION @ISA @EXPORT_OK); # 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 | 1 | 700ns |  |  | eval {
16 | 1 | 61µs |  |  | require Digest::base;
17 | 1 | 5µs |  |  | 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 sub Digest::SHA1::bootstrap; # xsub