Profile of CGI/Session/ErrorHandler.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	16µs	24µs	CGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
2	1	1	14µs	14µs	CGI::Session::ErrorHandler::::set_errorCGI::Session::ErrorHandler::set_error
2	1	1	9µs	9µs	CGI::Session::ErrorHandler::::errstrCGI::Session::ErrorHandler::errstr
1	1	1	8µs	13µs	CGI::Session::ErrorHandler::::BEGIN@44CGI::Session::ErrorHandler::BEGIN@44
1	1	1	8µs	13µ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	86µs	2	31µs	# spent 24µs (16+7) within CGI::Session::ErrorHandler::BEGIN@5 which was called: # once (16µs+7µs) by CGI::Session::BEGIN@4 at line 5 use strict; # spent 24µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5 # spent 7µs making 1 call to strict::import
6	1	400ns			$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 14µs within CGI::Session::ErrorHandler::set_error which was called 2 times, avg 7µs/call: # 2 times (14µs+0s) by CGI::Session::new at line 59 of CGI/Session.pm, avg 7µs/call sub set_error {
41	2	1µs			my $class = shift;
42	2	600ns			my $message = shift;
43	2	800ns			$class = ref($class) \|\| $class;
44	2	93µs	2	18µs	# spent 13µs (8+5) within CGI::Session::ErrorHandler::BEGIN@44 which was called: # once (8µs+5µs) by CGI::Session::BEGIN@4 at line 44 no strict 'refs'; # spent 13µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44 # spent 5µs making 1 call to strict::unimport
45	2	8µ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	1	1µs			*error = \&errstr;
58					# spent 9µs within CGI::Session::ErrorHandler::errstr which was called 2 times, avg 5µs/call: # 2 times (9µs+0s) by CGI::Session::load at line 702 of CGI/Session.pm, avg 5µs/call sub errstr {
59	2	1µs			my $class = shift;
60	2	800ns			$class = ref( $class ) \|\| $class;
61
62	2	58µs	2	18µs	# spent 13µs (8+5) within CGI::Session::ErrorHandler::BEGIN@62 which was called: # once (8µs+5µs) by CGI::Session::BEGIN@4 at line 62 no strict 'refs'; # spent 13µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62 # spent 5µs making 1 call to strict::unimport
63	2	11µ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	3µs			1;
73