← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 11:58:52 2013
Reported on Tue Oct 15 12:01:03 2013

Filename/usr/lib/perl5/Template/Exception.pm
StatementsExecuted 20 statements in 550µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11119µs23µsTemplate::Exception::::BEGIN@22Template::Exception::BEGIN@22
11116µs71µsTemplate::Exception::::BEGIN@27Template::Exception::BEGIN@27
11115µs27µsTemplate::Exception::::BEGIN@23Template::Exception::BEGIN@23
11110µs55µsTemplate::Exception::::BEGIN@24Template::Exception::BEGIN@24
1119µs40µsTemplate::Exception::::BEGIN@26Template::Exception::BEGIN@26
1119µs39µsTemplate::Exception::::BEGIN@25Template::Exception::BEGIN@25
0000s0sTemplate::Exception::::as_stringTemplate::Exception::as_string
0000s0sTemplate::Exception::::infoTemplate::Exception::info
0000s0sTemplate::Exception::::newTemplate::Exception::new
0000s0sTemplate::Exception::::select_handlerTemplate::Exception::select_handler
0000s0sTemplate::Exception::::textTemplate::Exception::text
0000s0sTemplate::Exception::::typeTemplate::Exception::type
0000s0sTemplate::Exception::::type_infoTemplate::Exception::type_info
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#============================================================= -*-Perl-*-
2#
3# Template::Exception
4#
5# DESCRIPTION
6# Module implementing a generic exception class used for error handling
7# in the Template Toolkit.
8#
9# AUTHOR
10# Andy Wardley <abw@wardley.org>
11#
12# COPYRIGHT
13# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
14#
15# This module is free software; you can redistribute it and/or
16# modify it under the same terms as Perl itself.
17#
18#========================================================================
19
20package Template::Exception;
21
22328µs228µs
# spent 23µs (19+4) within Template::Exception::BEGIN@22 which was called: # once (19µs+4µs) by Template::Service::BEGIN@27 at line 22
use strict;
# spent 23µs making 1 call to Template::Exception::BEGIN@22 # spent 4µs making 1 call to strict::import
23333µs240µs
# spent 27µs (15+13) within Template::Exception::BEGIN@23 which was called: # once (15µs+13µs) by Template::Service::BEGIN@27 at line 23
use warnings;
# spent 27µs making 1 call to Template::Exception::BEGIN@23 # spent 13µs making 1 call to warnings::import
24331µs299µs
# spent 55µs (10+44) within Template::Exception::BEGIN@24 which was called: # once (10µs+44µs) by Template::Service::BEGIN@27 at line 24
use constant TYPE => 0;
# spent 55µs making 1 call to Template::Exception::BEGIN@24 # spent 44µs making 1 call to constant::import
25332µs268µs
# spent 39µs (9+30) within Template::Exception::BEGIN@25 which was called: # once (9µs+30µs) by Template::Service::BEGIN@27 at line 25
use constant INFO => 1;
# spent 39µs making 1 call to Template::Exception::BEGIN@25 # spent 30µs making 1 call to constant::import
26335µs270µs
# spent 40µs (9+31) within Template::Exception::BEGIN@26 which was called: # once (9µs+31µs) by Template::Service::BEGIN@27 at line 26
use constant TEXT => 2;
# spent 40µs making 1 call to Template::Exception::BEGIN@26 # spent 31µs making 1 call to constant::import
273387µs2127µs
# spent 71µs (16+55) within Template::Exception::BEGIN@27 which was called: # once (16µs+55µs) by Template::Service::BEGIN@27 at line 27
use overload q|""| => "as_string", fallback => 1;
# spent 71µs making 1 call to Template::Exception::BEGIN@27 # spent 55µs making 1 call to overload::import
28
291500nsour $VERSION = 2.70;
30
31
32#------------------------------------------------------------------------
33# new($type, $info, \$text)
34#
35# Constructor method used to instantiate a new Template::Exception
36# object. The first parameter should contain the exception type. This
37# can be any arbitrary string of the caller's choice to represent a
38# specific exception. The second parameter should contain any
39# information (i.e. error message or data reference) relevant to the
40# specific exception event. The third optional parameter may be a
41# reference to a scalar containing output text from the template
42# block up to the point where the exception was thrown.
43#------------------------------------------------------------------------
44
45sub new {
46 my ($class, $type, $info, $textref) = @_;
47 bless [ $type, $info, $textref ], $class;
48}
49
50
51#------------------------------------------------------------------------
52# type()
53# info()
54# type_info()
55#
56# Accessor methods to return the internal TYPE and INFO fields.
57#------------------------------------------------------------------------
58
59sub type {
60 $_[0]->[ TYPE ];
61}
62
63sub info {
64 $_[0]->[ INFO ];
65}
66
67sub type_info {
68 my $self = shift;
69 @$self[ TYPE, INFO ];
70}
71
72#------------------------------------------------------------------------
73# text()
74# text(\$pretext)
75#
76# Method to return the text referenced by the TEXT member. A text
77# reference may be passed as a parameter to supercede the existing
78# member. The existing text is added to the *end* of the new text
79# before being stored. This facility is provided for template blocks
80# to gracefully de-nest when an exception occurs and allows them to
81# reconstruct their output in the correct order.
82#------------------------------------------------------------------------
83
84sub text {
85 my ($self, $newtextref) = @_;
86 my $textref = $self->[ TEXT ];
87
88 if ($newtextref) {
89 $$newtextref .= $$textref if $textref && $textref ne $newtextref;
90 $self->[ TEXT ] = $newtextref;
91 return '';
92 }
93 elsif ($textref) {
94 return $$textref;
95 }
96 else {
97 return '';
98 }
99}
100
101
102#------------------------------------------------------------------------
103# as_string()
104#
105# Accessor method to return a string indicating the exception type and
106# information.
107#------------------------------------------------------------------------
108
109sub as_string {
110 my $self = shift;
111 return $self->[ TYPE ] . ' error - ' . $self->[ INFO ];
112}
113
114
115#------------------------------------------------------------------------
116# select_handler(@types)
117#
118# Selects the most appropriate handler for the exception TYPE, from
119# the list of types passed in as parameters. The method returns the
120# item which is an exact match for TYPE or the closest, more
121# generic handler (e.g. foo being more generic than foo.bar, etc.)
122#------------------------------------------------------------------------
123
124sub select_handler {
125 my ($self, @options) = @_;
126 my $type = $self->[ TYPE ];
127 my %hlut;
128 @hlut{ @options } = (1) x @options;
129
130 while ($type) {
131 return $type if $hlut{ $type };
132
133 # strip .element from the end of the exception type to find a
134 # more generic handler
135 $type =~ s/\.?[^\.]*$//;
136 }
137 return undef;
138}
139
14013µs1;
141
142__END__