Filename | /usr/share/perl5/vendor_perl/CGI/Session/ErrorHandler.pm |
Statements | Executed 9 statements in 218µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 12µs | 24µs | BEGIN@5 | CGI::Session::ErrorHandler::
1 | 1 | 1 | 10µs | 20µs | BEGIN@62 | CGI::Session::ErrorHandler::
1 | 1 | 1 | 8µs | 18µs | BEGIN@44 | CGI::Session::ErrorHandler::
0 | 0 | 0 | 0s | 0s | errstr | CGI::Session::ErrorHandler::
0 | 0 | 0 | 0s | 0s | set_error | CGI::Session::ErrorHandler::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package CGI::Session::ErrorHandler; | ||||
2 | |||||
3 | # $Id: ErrorHandler.pm 420 2008-07-08 01:23:06Z markstos $ | ||||
4 | |||||
5 | 2 | 70µs | 2 | 36µs | # spent 24µs (12+12) within CGI::Session::ErrorHandler::BEGIN@5 which was called:
# once (12µs+12µs) by CGI::Session::BEGIN@7 at line 5 # spent 24µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5
# spent 12µs making 1 call to strict::import |
6 | 1 | 600ns | $CGI::Session::ErrorHandler::VERSION = '4.33'; | ||
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 | sub set_error { | ||||
41 | my $class = shift; | ||||
42 | my $message = shift; | ||||
43 | $class = ref($class) || $class; | ||||
44 | 2 | 93µs | 2 | 27µs | # spent 18µs (8+10) within CGI::Session::ErrorHandler::BEGIN@44 which was called:
# once (8µs+10µs) by CGI::Session::BEGIN@7 at line 44 # spent 18µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44
# spent 10µs making 1 call to strict::unimport |
45 | ${ "$class\::errstr" } = sprintf($message || "", @_); | ||||
46 | 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 | sub errstr { | ||||
59 | my $class = shift; | ||||
60 | $class = ref( $class ) || $class; | ||||
61 | |||||
62 | 2 | 49µs | 2 | 29µs | # spent 20µs (10+10) within CGI::Session::ErrorHandler::BEGIN@62 which was called:
# once (10µs+10µs) by CGI::Session::BEGIN@7 at line 62 # spent 20µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62
# spent 10µs making 1 call to strict::unimport |
63 | 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 |