| Filename | /usr/share/perl5/CGI/Session/ErrorHandler.pm |
| Statements | Executed 36 statements in 368µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 3 | 1 | 1 | 71µs | 71µs | CGI::Session::ErrorHandler::set_error |
| 3 | 1 | 1 | 38µs | 38µs | CGI::Session::ErrorHandler::errstr |
| 1 | 1 | 1 | 17µs | 21µs | CGI::Session::ErrorHandler::BEGIN@5 |
| 1 | 1 | 1 | 15µs | 40µs | CGI::Session::ErrorHandler::BEGIN@62 |
| 1 | 1 | 1 | 10µs | 30µs | CGI::Session::ErrorHandler::BEGIN@44 |
| 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 | 77µs | 2 | 25µs | # spent 21µs (17+4) within CGI::Session::ErrorHandler::BEGIN@5 which was called:
# once (17µs+4µs) by CGI::Session::BEGIN@7 at line 5 # spent 21µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5
# spent 4µs making 1 call to strict::import |
| 6 | 1 | 800ns | $CGI::Session::ErrorHandler::VERSION = '4.38'; | ||
| 7 | |||||
| 8 | =pod | ||||
| 9 | |||||
| - - | |||||
| 40 | # spent 71µs within CGI::Session::ErrorHandler::set_error which was called 3 times, avg 24µs/call:
# 3 times (71µs+0s) by CGI::Session::new at line 62 of CGI/Session.pm, avg 24µs/call | ||||
| 41 | 15 | 77µs | my $class = shift; | ||
| 42 | my $message = shift; | ||||
| 43 | $class = ref($class) || $class; | ||||
| 44 | 3 | 93µs | 2 | 51µs | # spent 30µs (10+20) within CGI::Session::ErrorHandler::BEGIN@44 which was called:
# once (10µs+20µs) by CGI::Session::BEGIN@7 at line 44 # spent 30µs making 1 call to CGI::Session::ErrorHandler::BEGIN@44
# spent 20µ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 | 46µs | my $class = shift; | ||
| 60 | $class = ref( $class ) || $class; | ||||
| 61 | |||||
| 62 | 3 | 68µs | 2 | 65µs | # spent 40µs (15+25) within CGI::Session::ErrorHandler::BEGIN@62 which was called:
# once (15µs+25µs) by CGI::Session::BEGIN@7 at line 62 # spent 40µs making 1 call to CGI::Session::ErrorHandler::BEGIN@62
# spent 25µs making 1 call to strict::unimport |
| 63 | return ${ "$class\::errstr" } || ''; | ||||
| 64 | } | ||||
| 65 | |||||
| 66 | =head1 LICENSING | ||||
| 67 | |||||
| - - | |||||
| 72 | 1 | 4µs | 1; | ||
| 73 |