← Index
NYTProf Performance Profile   « line view »
For ./view
  Run on Fri Jul 31 18:42:36 2015
Reported on Fri Jul 31 18:48:14 2015

Filename/usr/share/perl5/vendor_perl/CGI/Session/ErrorHandler.pm
StatementsExecuted 9 statements in 218µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11112µs24µsCGI::Session::ErrorHandler::::BEGIN@5CGI::Session::ErrorHandler::BEGIN@5
11110µs20µsCGI::Session::ErrorHandler::::BEGIN@62CGI::Session::ErrorHandler::BEGIN@62
1118µs18µsCGI::Session::ErrorHandler::::BEGIN@44CGI::Session::ErrorHandler::BEGIN@44
0000s0sCGI::Session::ErrorHandler::::errstrCGI::Session::ErrorHandler::errstr
0000s0sCGI::Session::ErrorHandler::::set_errorCGI::Session::ErrorHandler::set_error
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package CGI::Session::ErrorHandler;
2
3# $Id: ErrorHandler.pm 420 2008-07-08 01:23:06Z markstos $
4
5270µs236µ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
use strict;
# spent 24µs making 1 call to CGI::Session::ErrorHandler::BEGIN@5 # spent 12µs making 1 call to strict::import
61600ns$CGI::Session::ErrorHandler::VERSION = '4.33';
7
8=pod
9
10=head1 NAME
11
12CGI::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
28CGI::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
36Implicitly defines $pkg_name::errstr and sets its value to $message. Return value is B<always> undef.
37
38=cut
39
40sub set_error {
41 my $class = shift;
42 my $message = shift;
43 $class = ref($class) || $class;
44293µs227µ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
no strict 'refs';
# 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
51Returns 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
5711µs*error = \&errstr;
58sub errstr {
59 my $class = shift;
60 $class = ref( $class ) || $class;
61
62249µs229µ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
no strict 'refs';
# 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
68For support and licensing information see L<CGI::Session|CGI::Session>.
69
70=cut
71
7213µs1;
73