← 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 17:10:45 2013
Reported on Tue Oct 15 17:11:43 2013

Filename/usr/share/perl5/CGI/Session/ErrorHandler.pm
StatementsExecuted 36 statements in 368µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
31171µs71µsCGI::Session::ErrorHandler::::set_errorCGI::Session::ErrorHandler::set_error
31138µs38µsCGI::Session::ErrorHandler::::errstrCGI::Session::ErrorHandler::errstr
11117µs21µsCGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
11115µs40µsCGI::Session::ErrorHandler::::BEGIN@62CGI::Session::ErrorHandler::BEGIN@62
11110µs30µsCGI::Session::ErrorHandler::::BEGIN@44CGI::Session::ErrorHandler::BEGIN@44
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
5377µs225µs
# spent 21µs (17+4) within CGI::Session::ErrorHandler::BEGIN@5 which was called: # once (17µs+4µs) by CGI::Session::BEGIN@7 at line 5
use strict;
# spent 21µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5 # spent 4µs making 1 call to strict::import
61800ns$CGI::Session::ErrorHandler::VERSION = '4.38';
7
8=pod
9
- -
40
# spent 71µs within CGI::Session::ErrorHandler::set_error which was called 3 times, avg 24µs/call: # 3 times (71µs+0s) by CGI::Session::new at line 62 of CGI/Session.pm, avg 24µs/call
sub set_error {
411577µs my $class = shift;
42 my $message = shift;
43 $class = ref($class) || $class;
44393µs251µs
# spent 30µs (10+20) within CGI::Session::ErrorHandler::BEGIN@44 which was called: # once (10µs+20µs) by CGI::Session::BEGIN@7 at line 44
no strict 'refs';
# spent 30µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44 # spent 20µ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 {
59946µs my $class = shift;
60 $class = ref( $class ) || $class;
61
62368µs265µs
# spent 40µs (15+25) within CGI::Session::ErrorHandler::BEGIN@62 which was called: # once (15µs+25µs) by CGI::Session::BEGIN@7 at line 62
no strict 'refs';
# spent 40µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62 # spent 25µs making 1 call to strict::unimport
63 return ${ "$class\::errstr" } || '';
64}
65
66=head1 LICENSING
67
- -
7214µs1;
73