Profile of CGI/Session/ErrorHandler.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
3	1	1	80µs	80µ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	18µs	22µs	CGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
1	1	1	11µs	33µs	CGI::Session::ErrorHandler::::BEGIN@44CGI::Session::ErrorHandler::BEGIN@44
1	1	1	9µs	22µs	CGI::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
1					package CGI::Session::ErrorHandler;
2
3					# $Id: ErrorHandler.pm 447 2008-11-01 03:46:08Z markstos $
4
5	3	73µs	2	26µ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
6	1	700ns			$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 {
41	3	8µs			my $class = shift;
42	3	6µs			my $message = shift;
43	3	7µs			$class = ref($class) \|\| $class;
44	3	95µs	2	54µ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	3	45µs			${ "$class\::errstr" } = sprintf($message \|\| "", @_);
46	3	24µ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	4µs			$class = ref( $class ) \|\| $class;
61
62	3	50µs	2	35µ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	3	32µs			return ${ "$class\::errstr" } \|\| '';
64					}
65
66					=head1 LICENSING
67
- -
72	1	4µs			1;
73