← 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:19 2013

Filename/usr/share/perl5/CGI/Session/ErrorHandler.pm
StatementsExecuted 36 statements in 357µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31180µs80µsCGI::Session::ErrorHandler::::set_errorCGI::Session::ErrorHandler::set_error
31138µs38µsCGI::Session::ErrorHandler::::errstrCGI::Session::ErrorHandler::errstr
11118µs22µsCGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
11111µs33µsCGI::Session::ErrorHandler::::BEGIN@44CGI::Session::ErrorHandler::BEGIN@44
1119µs22µsCGI::Session::ErrorHandler::::BEGIN@62CGI::Session::ErrorHandler::BEGIN@62
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::ErrorHandler;
2
3# $Id: ErrorHandler.pm 447 2008-11-01 03:46:08Z markstos $
4
5373µs226µs
# spent 22µs (18+4) within CGI::Session::ErrorHandler::BEGIN@5 which was called: # once (18µs+4µs) by CGI::Session::BEGIN@7 at line 5
use strict;
# spent 22µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5 # spent 4µs making 1 call to strict::import
61700ns$CGI::Session::ErrorHandler::VERSION = '4.38';
7
8=pod
9
- -
40
# spent 80µs within CGI::Session::ErrorHandler::set_error which was called 3 times, avg 27µs/call: # 3 times (80µs+0s) by CGI::Session::new at line 62 of CGI/Session.pm, avg 27µs/call
sub set_error {
411590µs my $class = shift;
42 my $message = shift;
43 $class = ref($class) || $class;
44395µs254µs
# spent 33µs (11+21) within CGI::Session::ErrorHandler::BEGIN@44 which was called: # once (11µs+21µs) by CGI::Session::BEGIN@7 at line 44
no strict 'refs';
# spent 33µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44 # spent 21µs making 1 call to strict::unimport
45 ${ "$class\::errstr" } = sprintf($message || "", @_);
46 return;
47}
48
49=item errstr()
50
- -
5712µs*error = \&errstr;
58
# spent 38µs within CGI::Session::ErrorHandler::errstr which was called 3 times, avg 13µs/call: # 3 times (38µs+0s) by CGI::Session::load at line 702 of CGI/Session.pm, avg 13µs/call
sub errstr {
59942µs my $class = shift;
60 $class = ref( $class ) || $class;
61
62350µs235µs
# spent 22µs (9+13) within CGI::Session::ErrorHandler::BEGIN@62 which was called: # once (9µs+13µs) by CGI::Session::BEGIN@7 at line 62
no strict 'refs';
# spent 22µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62 # spent 13µs making 1 call to strict::unimport
63 return ${ "$class\::errstr" } || '';
64}
65
66=head1 LICENSING
67
- -
7214µs1;
73