| Filename | /usr/share/perl5/CGI/Session/ErrorHandler.pm |
| Statements | Executed 36 statements in 357µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 1 | 1 | 80µs | 80µs | CGI::Session::ErrorHandler::set_error |
| 3 | 1 | 1 | 38µs | 38µs | CGI::Session::ErrorHandler::errstr |
| 1 | 1 | 1 | 18µs | 22µs | CGI::Session::ErrorHandler::BEGIN@5 |
| 1 | 1 | 1 | 11µs | 33µs | CGI::Session::ErrorHandler::BEGIN@44 |
| 1 | 1 | 1 | 9µs | 22µs | CGI::Session::ErrorHandler::BEGIN@62 |
| 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 # 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 | ||||
| 41 | 15 | 90µs | my $class = shift; | ||
| 42 | my $message = shift; | ||||
| 43 | $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 # spent 33µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44
# spent 21µs making 1 call to strict::unimport |
| 45 | ${ "$class\::errstr" } = sprintf($message || "", @_); | ||||
| 46 | 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 | ||||
| 59 | 9 | 42µs | my $class = shift; | ||
| 60 | $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 # spent 22µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62
# spent 13µs making 1 call to strict::unimport |
| 63 | return ${ "$class\::errstr" } || ''; | ||||
| 64 | } | ||||
| 65 | |||||
| 66 | =head1 LICENSING | ||||
| 67 | |||||
| - - | |||||
| 72 | 1 | 4µs | 1; | ||
| 73 |