← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:07 2013

Filename/usr/share/perl5/CGI/Session/ID/md5.pm
StatementsExecuted 22 statements in 552µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
311150µs262µsCGI::Session::ID::md5::::generate_idCGI::Session::ID::md5::generate_id
11131µs38µsCGI::Session::ID::md5::::BEGIN@5CGI::Session::ID::md5::BEGIN@5
11126µs92µsCGI::Session::ID::md5::::BEGIN@6CGI::Session::ID::md5::BEGIN@6
1119µs9µsCGI::Session::ID::md5::::BEGIN@7CGI::Session::ID::md5::BEGIN@7
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package CGI::Session::ID::md5;
2
3# $Id: md5.pm 420 2008-07-08 01:23:06Z markstos $
4
5353µs245µs
# spent 38µs (31+7) within CGI::Session::ID::md5::BEGIN@5 which was called: # once (31µs+7µs) by CGI::Session::_load_pluggables at line 5
use strict;
# spent 38µs making 1 call to CGI::Session::ID::md5::BEGIN@5 # spent 7µs making 1 call to strict::import
6354µs2157µs
# spent 92µs (26+66) within CGI::Session::ID::md5::BEGIN@6 which was called: # once (26µs+66µs) by CGI::Session::_load_pluggables at line 6
use Digest::MD5;
# spent 92µs making 1 call to CGI::Session::ID::md5::BEGIN@6 # spent 66µs making 1 call to Exporter::import
73155µs19µs
# spent 9µs within CGI::Session::ID::md5::BEGIN@7 which was called: # once (9µs+0s) by CGI::Session::_load_pluggables at line 7
use CGI::Session::ErrorHandler;
# spent 9µs making 1 call to CGI::Session::ID::md5::BEGIN@7
8
911µs$CGI::Session::ID::md5::VERSION = '4.33';
10114µs@CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler );
11
1213µs*generate = \&generate_id;
13
# spent 262µs (150+112) within CGI::Session::ID::md5::generate_id which was called 3 times, avg 87µs/call: # 3 times (150µs+112µs) by CGI::Session::new at line 80 of CGI/Session.pm, avg 87µs/call
sub generate_id {
149265µs336µs my $md5 = new Digest::MD5();
# spent 36µs making 3 calls to Digest::MD5::new, avg 12µs/call
15355µs $md5->add($$ , time() , rand(time) );
# spent 55µs making 3 calls to Digest::MD5::add, avg 18µs/call
16313µs return $md5->hexdigest();
# spent 13µs making 3 calls to Digest::MD5::hexdigest, avg 4µs/call
17}
18
19
2016µs1;
21
22=pod
23
- -