Profile of CGI/Session/ErrorHandler.pm

Filename	/usr/share/perl5/CGI/Session/ErrorHandler.pm
Statements	Executed 36 statements in 368µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
3	1	1	71µs	71µs	CGI::Session::ErrorHandler::::set_errorCGI::Session::ErrorHandler::set_error
3	1	1	38µs	38µs	CGI::Session::ErrorHandler::::errstrCGI::Session::ErrorHandler::errstr
1	1	1	17µs	21µs	CGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
1	1	1	15µs	40µs	CGI::Session::ErrorHandler::::BEGIN@62CGI::Session::ErrorHandler::BEGIN@62
1	1	1	10µs	30µs	CGI::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
1					package CGI::Session::ErrorHandler;
2
3					# $Id: ErrorHandler.pm 447 2008-11-01 03:46:08Z markstos $
4
5	3	77µs	2	25µ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
6	1	800ns			$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 {
41	3	8µs			my $class = shift;
42	3	6µs			my $message = shift;
43	3	4µs			$class = ref($class) \|\| $class;
44	3	93µs	2	51µ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	3	38µs			${ "$class\::errstr" } = sprintf($message \|\| "", @_);
46	3	21µs			return;
47					}
48
49					=item errstr()
50
- -
57	1	2µ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 {
59	3	6µs			my $class = shift;
60	3	5µs			$class = ref( $class ) \|\| $class;
61
62	3	68µs	2	65µ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	3	35µs			return ${ "$class\::errstr" } \|\| '';
64					}
65
66					=head1 LICENSING
67
- -
72	1	4µs			1;
73