Profile of CGI/Session/ErrorHandler.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
9	1	1	78µs	78µs	CGI::Session::ErrorHandler::::set_errorCGI::Session::ErrorHandler::set_error
9	1	1	51µs	51µs	CGI::Session::ErrorHandler::::errstrCGI::Session::ErrorHandler::errstr
1	1	1	14µs	23µs	CGI::Session::ErrorHandler::::BEGIN@44CGI::Session::ErrorHandler::BEGIN@44
1	1	1	14µs	20µs	CGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
1	1	1	10µs	15µ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$
4
5			2	27µs	# spent 20µs (14+7) within CGI::Session::ErrorHandler::BEGIN@5 which was called: # once (14µs+7µs) by CGI::Session::BEGIN@4 at line 5 use strict; # spent 20µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5 # spent 7µs making 1 call to strict::import
6					$CGI::Session::ErrorHandler::VERSION = '4.43';
7
8					=pod
9
10					=head1 NAME
11
12					CGI::Session::ErrorHandler - error handling routines for CGI::Session
13
14					=head1 SYNOPSIS
15
16					require CGI::Session::ErrorHandler;
17					@ISA = qw( CGI::Session::ErrorHandler );
18
19					sub some_method {
20					my $self = shift;
21					unless ( $some_condition ) {
22					return $self->set_error("some_method(): \$some_condition isn't met");
23					}
24					}
25
26					=head1 DESCRIPTION
27
28					CGI::Session::ErrorHandler provides set_error() and errstr() methods for setting and accessing error messages from within CGI::Session's components. This method should be used by driver developers for providing CGI::Session-standard error handling routines for their code
29
30					=head2 METHODS
31
32					=over 4
33
34					=item set_error($message)
35
36					Implicitly defines $pkg_name::errstr and sets its value to $message. Return value is B<always> undef.
37
38					=cut
39
40					# spent 78µs within CGI::Session::ErrorHandler::set_error which was called 9 times, avg 9µs/call: # 9 times (78µs+0s) by CGI::Session::new at line 59 of CGI/Session.pm, avg 9µs/call sub set_error {
41	2	1µs			my $class = shift;
42	2	1µs			my $message = shift;
43	2	700ns			$class = ref($class) \|\| $class;
44			2	32µs	# spent 23µs (14+9) within CGI::Session::ErrorHandler::BEGIN@44 which was called: # once (14µs+9µs) by CGI::Session::BEGIN@4 at line 44 no strict 'refs'; # spent 23µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44 # spent 9µs making 1 call to strict::unimport
45	2	9µs			${ "$class\::errstr" } = $message \|\| "";
46	2	6µs			return;
47					}
48
49					=item errstr()
50
51					Returns whatever value was set by the most recent call to set_error(). If no message as has been set yet, the empty string is returned so the message can still concatenate without a warning.
52
53					=back
54
55					=cut
56
57					*error = \&errstr;
58					# spent 51µs within CGI::Session::ErrorHandler::errstr which was called 9 times, avg 6µs/call: # 9 times (51µs+0s) by CGI::Session::load at line 702 of CGI/Session.pm, avg 6µs/call sub errstr {
59	2	900ns			my $class = shift;
60	2	800ns			$class = ref( $class ) \|\| $class;
61
62			2	21µs	# spent 15µs (10+6) within CGI::Session::ErrorHandler::BEGIN@62 which was called: # once (10µs+6µs) by CGI::Session::BEGIN@4 at line 62 no strict 'refs'; # spent 15µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62 # spent 6µs making 1 call to strict::unimport
63	2	8µs			return ${ "$class\::errstr" } \|\| '';
64					}
65
66					=head1 LICENSING
67
68					For support and licensing information see L<CGI::Session\|CGI::Session>.
69
70					=cut
71
72					1;
73