Filename | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template.pm |
Statements | Executed 54 statements in 2.20ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 5.33ms | 7.70ms | BEGIN@29 | Template::
1 | 1 | 1 | 1.70ms | 1.95ms | BEGIN@27 | Template::
1 | 1 | 1 | 1.53ms | 3.03ms | BEGIN@30 | Template::
1 | 1 | 1 | 25µs | 163ms | process | Template::
1 | 1 | 1 | 21µs | 21µs | BEGIN@24 | Template::
1 | 1 | 1 | 19µs | 19µs | _output | Template::
1 | 1 | 1 | 19µs | 17.4ms | _init | Template::
1 | 1 | 1 | 16µs | 26µs | BEGIN@22 | Template::
1 | 1 | 1 | 15µs | 47µs | BEGIN@31 | Template::
1 | 1 | 1 | 14µs | 38µs | BEGIN@32 | Template::
1 | 1 | 1 | 14µs | 38µs | BEGIN@28 | Template::
1 | 1 | 1 | 12µs | 18µs | BEGIN@23 | Template::
1 | 1 | 1 | 9µs | 4.37ms | BEGIN@25 | Template::
1 | 1 | 1 | 8µs | 26µs | BEGIN@33 | Template::
0 | 0 | 0 | 0s | 0s | context | Template::
0 | 0 | 0 | 0s | 0s | service | Template::
0 | 0 | 0 | 0s | 0s | template | Template::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | #============================================================= -*-perl-*- | ||||
2 | # | ||||
3 | # Template | ||||
4 | # | ||||
5 | # DESCRIPTION | ||||
6 | # Module implementing a simple, user-oriented front-end to the Template | ||||
7 | # Toolkit. | ||||
8 | # | ||||
9 | # AUTHOR | ||||
10 | # Andy Wardley <abw@wardley.org> | ||||
11 | # | ||||
12 | # COPYRIGHT | ||||
13 | # Copyright (C) 1996-2012 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 | |||||
20 | package Template; | ||||
21 | |||||
22 | 2 | 48µs | 2 | 37µs | # spent 26µs (16+11) within Template::BEGIN@22 which was called:
# once (16µs+11µs) by C4::Templates::BEGIN@33 at line 22 # spent 26µs making 1 call to Template::BEGIN@22
# spent 10µs making 1 call to strict::import |
23 | 2 | 44µs | 2 | 24µs | # spent 18µs (12+6) within Template::BEGIN@23 which was called:
# once (12µs+6µs) by C4::Templates::BEGIN@33 at line 23 # spent 18µs making 1 call to Template::BEGIN@23
# spent 6µs making 1 call to warnings::import |
24 | 2 | 57µs | 1 | 21µs | # spent 21µs within Template::BEGIN@24 which was called:
# once (21µs+0s) by C4::Templates::BEGIN@33 at line 24 # spent 21µs making 1 call to Template::BEGIN@24 |
25 | 2 | 228µs | 2 | 8.72ms | # spent 4.37ms (9µs+4.36) within Template::BEGIN@25 which was called:
# once (9µs+4.36ms) by C4::Templates::BEGIN@33 at line 25 # spent 4.37ms making 1 call to Template::BEGIN@25
# spent 4.36ms making 1 call to base::import |
26 | |||||
27 | 2 | 202µs | 1 | 1.95ms | # spent 1.95ms (1.70+249µs) within Template::BEGIN@27 which was called:
# once (1.70ms+249µs) by C4::Templates::BEGIN@33 at line 27 # spent 1.95ms making 1 call to Template::BEGIN@27 |
28 | 2 | 57µs | 2 | 62µs | # spent 38µs (14+24) within Template::BEGIN@28 which was called:
# once (14µs+24µs) by C4::Templates::BEGIN@33 at line 28 # spent 38µs making 1 call to Template::BEGIN@28
# spent 24µs making 1 call to Exporter::import |
29 | 2 | 231µs | 1 | 7.70ms | # spent 7.70ms (5.33+2.37) within Template::BEGIN@29 which was called:
# once (5.33ms+2.37ms) by C4::Templates::BEGIN@33 at line 29 # spent 7.70ms making 1 call to Template::BEGIN@29 |
30 | 2 | 224µs | 1 | 3.03ms | # spent 3.03ms (1.53+1.50) within Template::BEGIN@30 which was called:
# once (1.53ms+1.50ms) by C4::Templates::BEGIN@33 at line 30 # spent 3.03ms making 1 call to Template::BEGIN@30 |
31 | 2 | 69µs | 2 | 79µs | # spent 47µs (15+32) within Template::BEGIN@31 which was called:
# once (15µs+32µs) by C4::Templates::BEGIN@33 at line 31 # spent 47µs making 1 call to Template::BEGIN@31
# spent 32µs making 1 call to Exporter::import |
32 | 2 | 63µs | 2 | 63µs | # spent 38µs (14+24) within Template::BEGIN@32 which was called:
# once (14µs+24µs) by C4::Templates::BEGIN@33 at line 32 # spent 38µs making 1 call to Template::BEGIN@32
# spent 24µs making 1 call to Exporter::import |
33 | 2 | 903µs | 2 | 43µs | # spent 26µs (8+17) within Template::BEGIN@33 which was called:
# once (8µs+17µs) by C4::Templates::BEGIN@33 at line 33 # spent 26µs making 1 call to Template::BEGIN@33
# spent 17µs making 1 call to Exporter::import |
34 | |||||
35 | 1 | 600ns | our $VERSION = '2.24'; | ||
36 | 1 | 100ns | our $ERROR = ''; | ||
37 | 1 | 200ns | our $DEBUG = 0; | ||
38 | 1 | 300ns | our $BINMODE = 0 unless defined $BINMODE; | ||
39 | 1 | 0s | our $AUTOLOAD; | ||
40 | |||||
41 | # preload all modules if we're running under mod_perl | ||||
42 | 1 | 1µs | Template::Config->preload() if $ENV{ MOD_PERL }; | ||
43 | |||||
44 | |||||
45 | #------------------------------------------------------------------------ | ||||
46 | # process($input, \%replace, $output) | ||||
47 | # | ||||
48 | # Main entry point for the Template Toolkit. The Template module | ||||
49 | # delegates most of the processing effort to the underlying SERVICE | ||||
50 | # object, an instance of the Template::Service class. | ||||
51 | #------------------------------------------------------------------------ | ||||
52 | |||||
53 | # spent 163ms (25µs+163) within Template::process which was called:
# once (25µs+163ms) by C4::Templates::output at line 121 of C4/Templates.pm | ||||
54 | 1 | 900ns | my ($self, $template, $vars, $outstream, @opts) = @_; | ||
55 | 1 | 200ns | my ($output, $error); | ||
56 | 1 | 1µs | my $options = (@opts == 1) && ref($opts[0]) eq 'HASH' | ||
57 | ? shift(@opts) : { @opts }; | ||||
58 | |||||
59 | $options->{ binmode } = $BINMODE | ||||
60 | 1 | 2µs | unless defined $options->{ binmode }; | ||
61 | |||||
62 | # we're using this for testing in t/output.t and t/filter.t so | ||||
63 | # don't remove it if you don't want tests to fail... | ||||
64 | 1 | 500ns | $self->DEBUG("set binmode\n") if $DEBUG && $options->{ binmode }; | ||
65 | |||||
66 | 1 | 5µs | 1 | 163ms | $output = $self->{ SERVICE }->process($template, $vars); # spent 163ms making 1 call to Template::Service::process |
67 | |||||
68 | 1 | 500ns | if (defined $output) { | ||
69 | 1 | 500ns | $outstream ||= $self->{ OUTPUT }; | ||
70 | 1 | 900ns | unless (ref $outstream) { | ||
71 | my $outpath = $self->{ OUTPUT_PATH }; | ||||
72 | $outstream = "$outpath/$outstream" if $outpath; | ||||
73 | } | ||||
74 | |||||
75 | # send processed template to output stream, checking for error | ||||
76 | 1 | 4µs | 1 | 19µs | return ($self->error($error)) # spent 19µs making 1 call to Template::_output |
77 | if ($error = &_output($outstream, \$output, $options)); | ||||
78 | |||||
79 | 1 | 5µs | return 1; | ||
80 | } | ||||
81 | else { | ||||
82 | return $self->error($self->{ SERVICE }->error); | ||||
83 | } | ||||
84 | } | ||||
85 | |||||
86 | |||||
87 | #------------------------------------------------------------------------ | ||||
88 | # service() | ||||
89 | # | ||||
90 | # Returns a reference to the the internal SERVICE object which handles | ||||
91 | # all requests for this Template object | ||||
92 | #------------------------------------------------------------------------ | ||||
93 | |||||
94 | sub service { | ||||
95 | my $self = shift; | ||||
96 | return $self->{ SERVICE }; | ||||
97 | } | ||||
98 | |||||
99 | |||||
100 | #------------------------------------------------------------------------ | ||||
101 | # context() | ||||
102 | # | ||||
103 | # Returns a reference to the the CONTEXT object withint the SERVICE | ||||
104 | # object. | ||||
105 | #------------------------------------------------------------------------ | ||||
106 | |||||
107 | sub context { | ||||
108 | my $self = shift; | ||||
109 | return $self->{ SERVICE }->{ CONTEXT }; | ||||
110 | } | ||||
111 | |||||
112 | sub template { | ||||
113 | shift->context->template(@_); | ||||
114 | } | ||||
115 | |||||
116 | |||||
117 | #======================================================================== | ||||
118 | # -- PRIVATE METHODS -- | ||||
119 | #======================================================================== | ||||
120 | |||||
121 | #------------------------------------------------------------------------ | ||||
122 | # _init(\%config) | ||||
123 | #------------------------------------------------------------------------ | ||||
124 | # spent 17.4ms (19µs+17.3) within Template::_init which was called:
# once (19µs+17.3ms) by Template::Base::new at line 65 of Template/Base.pm | ||||
125 | 1 | 400ns | my ($self, $config) = @_; | ||
126 | |||||
127 | # convert any textual DEBUG args to numerical form | ||||
128 | 1 | 600ns | my $debug = $config->{ DEBUG }; | ||
129 | 1 | 500ns | $config->{ DEBUG } = Template::Constants::debug_flags($self, $debug) | ||
130 | || return if defined $debug && $debug !~ /^\d+$/; | ||||
131 | |||||
132 | # prepare a namespace handler for any CONSTANTS definition | ||||
133 | 1 | 600ns | if (my $constants = $config->{ CONSTANTS }) { | ||
134 | my $ns = $config->{ NAMESPACE } ||= { }; | ||||
135 | my $cns = $config->{ CONSTANTS_NAMESPACE } || 'constants'; | ||||
136 | $constants = Template::Config->constants($constants) | ||||
137 | || return $self->error(Template::Config->error); | ||||
138 | $ns->{ $cns } = $constants; | ||||
139 | } | ||||
140 | |||||
141 | $self->{ SERVICE } = $config->{ SERVICE } | ||||
142 | 1 | 10µs | 1 | 17.3ms | || Template::Config->service($config) # spent 17.3ms making 1 call to Template::Config::service |
143 | || return $self->error(Template::Config->error); | ||||
144 | |||||
145 | 1 | 2µs | $self->{ OUTPUT } = $config->{ OUTPUT } || \*STDOUT; | ||
146 | 1 | 800ns | $self->{ OUTPUT_PATH } = $config->{ OUTPUT_PATH }; | ||
147 | |||||
148 | 1 | 5µs | return $self; | ||
149 | } | ||||
150 | |||||
151 | |||||
152 | #------------------------------------------------------------------------ | ||||
153 | # _output($where, $text) | ||||
154 | #------------------------------------------------------------------------ | ||||
155 | |||||
156 | # spent 19µs within Template::_output which was called:
# once (19µs+0s) by Template::process at line 76 | ||||
157 | 1 | 600ns | my ($where, $textref, $options) = @_; | ||
158 | 1 | 100ns | my $reftype; | ||
159 | 1 | 300ns | my $error = 0; | ||
160 | |||||
161 | # call a CODE reference | ||||
162 | 1 | 2µs | if (($reftype = ref($where)) eq 'CODE') { | ||
163 | &$where($$textref); | ||||
164 | } | ||||
165 | # print to a glob (such as \*STDOUT) | ||||
166 | elsif ($reftype eq 'GLOB') { | ||||
167 | print $where $$textref; | ||||
168 | } | ||||
169 | # append output to a SCALAR ref | ||||
170 | elsif ($reftype eq 'SCALAR') { | ||||
171 | 1 | 13µs | $$where .= $$textref; | ||
172 | } | ||||
173 | # push onto ARRAY ref | ||||
174 | elsif ($reftype eq 'ARRAY') { | ||||
175 | push @$where, $$textref; | ||||
176 | } | ||||
177 | # call the print() method on an object that implements the method | ||||
178 | # (e.g. IO::Handle, Apache::Request, etc) | ||||
179 | elsif (blessed($where) && $where->can('print')) { | ||||
180 | $where->print($$textref); | ||||
181 | } | ||||
182 | # a simple string is taken as a filename | ||||
183 | elsif (! $reftype) { | ||||
184 | local *FP; | ||||
185 | # make destination directory if it doesn't exist | ||||
186 | my $dir = dirname($where); | ||||
187 | eval { mkpath($dir) unless -d $dir; }; | ||||
188 | if ($@) { | ||||
189 | # strip file name and line number from error raised by die() | ||||
190 | ($error = $@) =~ s/ at \S+ line \d+\n?$//; | ||||
191 | } | ||||
192 | elsif (open(FP, ">$where")) { | ||||
193 | # binmode option can be 1 or a specific layer, e.g. :utf8 | ||||
194 | my $bm = $options->{ binmode }; | ||||
195 | if ($bm && $bm eq 1) { | ||||
196 | binmode FP; | ||||
197 | } | ||||
198 | elsif ($bm){ | ||||
199 | binmode FP, $bm; | ||||
200 | } | ||||
201 | print FP $$textref; | ||||
202 | close FP; | ||||
203 | } | ||||
204 | else { | ||||
205 | $error = "$where: $!"; | ||||
206 | } | ||||
207 | } | ||||
208 | # give up, we've done our best | ||||
209 | else { | ||||
210 | $error = "output_handler() cannot determine target type ($where)\n"; | ||||
211 | } | ||||
212 | |||||
213 | 1 | 6µs | return $error; | ||
214 | } | ||||
215 | |||||
216 | |||||
217 | 1 | 5µs | 1; | ||
218 | |||||
219 | __END__ |