Filename | /usr/local/src/github.com/foswiki/core/lib/CPAN/lib/CGI/Session/ErrorHandler.pm |
Statements | Executed 27 statements in 459µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
3 | 3 | 2 | 55µs | 55µs | errstr | CGI::Session::ErrorHandler::
1 | 1 | 1 | 25µs | 32µs | BEGIN@5 | CGI::Session::ErrorHandler::
1 | 1 | 1 | 22µs | 22µs | set_error | CGI::Session::ErrorHandler::
1 | 1 | 1 | 16µs | 50µs | BEGIN@44 | CGI::Session::ErrorHandler::
1 | 1 | 1 | 16µs | 45µs | BEGIN@62 | CGI::Session::ErrorHandler::
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 | 2 | 129µs | 2 | 40µs | # spent 32µs (25+7) within CGI::Session::ErrorHandler::BEGIN@5 which was called:
# once (25µs+7µs) by CGI::Session::BEGIN@7 at line 5 # spent 32µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5
# spent 7µs making 1 call to strict::import |
6 | 1 | 2µs | $CGI::Session::ErrorHandler::VERSION = '4.38'; | ||
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 22µs within CGI::Session::ErrorHandler::set_error which was called:
# once (22µs+0s) by CGI::Session::new at line 65 of /usr/local/src/github.com/foswiki/core/lib/CPAN/lib/CGI/Session.pm | ||||
41 | 6 | 26µs | my $class = shift; | ||
42 | my $message = shift; | ||||
43 | $class = ref($class) || $class; | ||||
44 | 2 | 155µs | 2 | 84µs | # spent 50µs (16+34) within CGI::Session::ErrorHandler::BEGIN@44 which was called:
# once (16µs+34µs) by CGI::Session::BEGIN@7 at line 44 # spent 50µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44
# spent 34µ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 | 3µs | *error = \&errstr; | ||
58 | # spent 55µs within CGI::Session::ErrorHandler::errstr which was called 3 times, avg 18µs/call:
# once (25µs+0s) by Foswiki::LoginManager::complete at line 531 of /usr/local/src/github.com/foswiki/core/lib/Foswiki/LoginManager.pm
# once (16µs+0s) by Foswiki::LoginManager::userLoggedIn at line 657 of /usr/local/src/github.com/foswiki/core/lib/Foswiki/LoginManager.pm
# once (15µs+0s) by CGI::Session::load at line 728 of /usr/local/src/github.com/foswiki/core/lib/CPAN/lib/CGI/Session.pm | ||||
59 | 12 | 61µs | my $class = shift; | ||
60 | $class = ref( $class ) || $class; | ||||
61 | |||||
62 | 2 | 76µs | 2 | 74µs | # spent 45µs (16+29) within CGI::Session::ErrorHandler::BEGIN@62 which was called:
# once (16µs+29µs) by CGI::Session::BEGIN@7 at line 62 # spent 45µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62
# spent 29µ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 | 6µs | 1; | ||
73 |