| Filename | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template.pm |
| Statements | Executed 0 statements in 0s |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 5.18ms | 7.35ms | Template::BEGIN@29 |
| 1 | 1 | 1 | 1.37ms | 1.60ms | Template::BEGIN@27 |
| 1 | 1 | 1 | 1.37ms | 2.52ms | Template::BEGIN@30 |
| 1 | 1 | 1 | 25µs | 43µs | Template::BEGIN@22 |
| 1 | 1 | 1 | 22µs | 22µs | Template::BEGIN@24 |
| 1 | 1 | 1 | 12µs | 42µs | Template::BEGIN@28 |
| 1 | 1 | 1 | 12µs | 51µs | Template::BEGIN@31 |
| 1 | 1 | 1 | 12µs | 4.54ms | Template::BEGIN@25 |
| 1 | 1 | 1 | 10µs | 34µs | Template::BEGIN@32 |
| 1 | 1 | 1 | 10µs | 19µs | Template::BEGIN@23 |
| 1 | 1 | 1 | 8µs | 23µs | Template::BEGIN@33 |
| 0 | 0 | 0 | 0s | 0s | Template::_init |
| 0 | 0 | 0 | 0s | 0s | Template::_output |
| 0 | 0 | 0 | 0s | 0s | Template::context |
| 0 | 0 | 0 | 0s | 0s | Template::process |
| 0 | 0 | 0 | 0s | 0s | Template::service |
| 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 | 61µs | # spent 43µs (25+18) within Template::BEGIN@22 which was called:
# once (25µs+18µs) by C4::Templates::BEGIN@33 at line 22 # spent 43µs making 1 call to Template::BEGIN@22
# spent 18µs making 1 call to strict::import | ||
| 23 | 2 | 27µs | # spent 19µs (10+9) within Template::BEGIN@23 which was called:
# once (10µs+9µs) by C4::Templates::BEGIN@33 at line 23 # spent 19µs making 1 call to Template::BEGIN@23
# spent 9µs making 1 call to warnings::import | ||
| 24 | 1 | 22µs | # spent 22µs within Template::BEGIN@24 which was called:
# once (22µs+0s) by C4::Templates::BEGIN@33 at line 24 # spent 22µs making 1 call to Template::BEGIN@24 | ||
| 25 | 2 | 9.06ms | # spent 4.54ms (12µs+4.53) within Template::BEGIN@25 which was called:
# once (12µs+4.53ms) by C4::Templates::BEGIN@33 at line 25 # spent 4.54ms making 1 call to Template::BEGIN@25
# spent 4.53ms making 1 call to base::import | ||
| 26 | |||||
| 27 | 1 | 1.60ms | # spent 1.60ms (1.37+229µs) within Template::BEGIN@27 which was called:
# once (1.37ms+229µs) by C4::Templates::BEGIN@33 at line 27 # spent 1.60ms making 1 call to Template::BEGIN@27 | ||
| 28 | 2 | 71µs | # spent 42µs (12+29) within Template::BEGIN@28 which was called:
# once (12µs+29µs) by C4::Templates::BEGIN@33 at line 28 # spent 42µs making 1 call to Template::BEGIN@28
# spent 29µs making 1 call to Exporter::import | ||
| 29 | 1 | 7.35ms | # spent 7.35ms (5.18+2.17) within Template::BEGIN@29 which was called:
# once (5.18ms+2.17ms) by C4::Templates::BEGIN@33 at line 29 # spent 7.35ms making 1 call to Template::BEGIN@29 | ||
| 30 | 1 | 2.52ms | # spent 2.52ms (1.37+1.15) within Template::BEGIN@30 which was called:
# once (1.37ms+1.15ms) by C4::Templates::BEGIN@33 at line 30 # spent 2.52ms making 1 call to Template::BEGIN@30 | ||
| 31 | 2 | 90µs | # spent 51µs (12+39) within Template::BEGIN@31 which was called:
# once (12µs+39µs) by C4::Templates::BEGIN@33 at line 31 # spent 51µs making 1 call to Template::BEGIN@31
# spent 39µs making 1 call to Exporter::import | ||
| 32 | 2 | 59µs | # spent 34µs (10+24) within Template::BEGIN@32 which was called:
# once (10µs+24µs) by C4::Templates::BEGIN@33 at line 32 # spent 34µs making 1 call to Template::BEGIN@32
# spent 24µs making 1 call to Exporter::import | ||
| 33 | 2 | 38µs | # spent 23µs (8+15) within Template::BEGIN@33 which was called:
# once (8µs+15µs) by C4::Templates::BEGIN@33 at line 33 # spent 23µs making 1 call to Template::BEGIN@33
# spent 15µs making 1 call to Exporter::import | ||
| 34 | |||||
| 35 | our $VERSION = '2.24'; | ||||
| 36 | our $ERROR = ''; | ||||
| 37 | our $DEBUG = 0; | ||||
| 38 | our $BINMODE = 0 unless defined $BINMODE; | ||||
| 39 | our $AUTOLOAD; | ||||
| 40 | |||||
| 41 | # preload all modules if we're running under mod_perl | ||||
| 42 | 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 | sub process { | ||||
| 54 | my ($self, $template, $vars, $outstream, @opts) = @_; | ||||
| 55 | my ($output, $error); | ||||
| 56 | my $options = (@opts == 1) && ref($opts[0]) eq 'HASH' | ||||
| 57 | ? shift(@opts) : { @opts }; | ||||
| 58 | |||||
| 59 | $options->{ binmode } = $BINMODE | ||||
| 60 | 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 | $self->DEBUG("set binmode\n") if $DEBUG && $options->{ binmode }; | ||||
| 65 | |||||
| 66 | $output = $self->{ SERVICE }->process($template, $vars); | ||||
| 67 | |||||
| 68 | if (defined $output) { | ||||
| 69 | $outstream ||= $self->{ OUTPUT }; | ||||
| 70 | 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 | return ($self->error($error)) | ||||
| 77 | if ($error = &_output($outstream, \$output, $options)); | ||||
| 78 | |||||
| 79 | 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 | sub _init { | ||||
| 125 | my ($self, $config) = @_; | ||||
| 126 | |||||
| 127 | # convert any textual DEBUG args to numerical form | ||||
| 128 | my $debug = $config->{ DEBUG }; | ||||
| 129 | $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 | 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 | || Template::Config->service($config) | ||||
| 143 | || return $self->error(Template::Config->error); | ||||
| 144 | |||||
| 145 | $self->{ OUTPUT } = $config->{ OUTPUT } || \*STDOUT; | ||||
| 146 | $self->{ OUTPUT_PATH } = $config->{ OUTPUT_PATH }; | ||||
| 147 | |||||
| 148 | return $self; | ||||
| 149 | } | ||||
| 150 | |||||
| 151 | |||||
| 152 | #------------------------------------------------------------------------ | ||||
| 153 | # _output($where, $text) | ||||
| 154 | #------------------------------------------------------------------------ | ||||
| 155 | |||||
| 156 | sub _output { | ||||
| 157 | my ($where, $textref, $options) = @_; | ||||
| 158 | my $reftype; | ||||
| 159 | my $error = 0; | ||||
| 160 | |||||
| 161 | # call a CODE reference | ||||
| 162 | 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 | $$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 | return $error; | ||||
| 214 | } | ||||
| 215 | |||||
| 216 | |||||
| 217 | 1; | ||||
| 218 | |||||
| 219 | __END__ |