Profile of Digest/MD5.pm

← Index
NYTProf Performance Profile «block view•line view•sub view»
For t/app_dpath.t
Run on Tue Jun 5 15:25:28 2012
Reported on Tue Jun 5 15:26:06 2012

Filename | /home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/x86_64-linux-thread-multi/Digest/MD5.pm
Statements | Executed 18 statements in 2.23ms

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 70µs | 100µs | Digest::MD5::::BEGIN@3Digest::MD5::BEGIN@3
1 | 1 | 1 | 33µs | 231µs | Digest::MD5::::BEGIN@4Digest::MD5::BEGIN@4
0 | 0 | 0 | 0s | 0s | Digest::MD5::::__ANON__[:18]Digest::MD5::__ANON__[:18]

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