← Index
NYTProf Performance Profile   « line view »
For rbm/rbm
  Run on Wed Feb 12 20:36:06 2020
Reported on Wed Feb 12 21:42:25 2020

Filename/usr/lib/x86_64-linux-gnu/perl5/5.28/Template.pm
StatementsExecuted 9384703 statements in 15.7s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
375387118.26s1623sTemplate::::processTemplate::process (recurses: max depth 40, inclusive time 29402s)
375387115.51s141sTemplate::::_initTemplate::_init
375387112.32s2.32sTemplate::::_outputTemplate::_output
1114.45ms6.26msTemplate::::BEGIN@29Template::BEGIN@29
1113.24ms3.44msTemplate::::BEGIN@32Template::BEGIN@32
1111.25ms2.23msTemplate::::BEGIN@30Template::BEGIN@30
1111.06ms1.34msTemplate::::BEGIN@27Template::BEGIN@27
11110µs12µsTemplate::::BEGIN@22Template::BEGIN@22
1118µs42µsTemplate::::BEGIN@31Template::BEGIN@31
1118µs8µsTemplate::::BEGIN@24Template::BEGIN@24
1117µs26µsTemplate::::BEGIN@33Template::BEGIN@33
1116µs19µsTemplate::::BEGIN@28Template::BEGIN@28
1116µs3.25msTemplate::::BEGIN@25Template::BEGIN@25
1115µs19µsTemplate::::BEGIN@23Template::BEGIN@23
3313µs3µsTemplate::::__ANON__Template::__ANON__ (xsub)
0000s0sTemplate::::contextTemplate::context
0000s0sTemplate::::serviceTemplate::service
0000s0sTemplate::::templateTemplate::template
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
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-2014 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;
21
22218µs215µs
# spent 12µs (10+3) within Template::BEGIN@22 which was called: # once (10µs+3µs) by RBM::BEGIN@9 at line 22
use strict;
# spent 12µs making 1 call to Template::BEGIN@22 # spent 2µs making 1 call to strict::import
23218µs232µs
# spent 19µs (5+14) within Template::BEGIN@23 which was called: # once (5µs+14µs) by RBM::BEGIN@9 at line 23
use warnings;
# spent 19µs making 1 call to Template::BEGIN@23 # spent 14µs making 1 call to warnings::import
24235µs18µs
# spent 8µs within Template::BEGIN@24 which was called: # once (8µs+0s) by RBM::BEGIN@9 at line 24
use 5.006;
# spent 8µs making 1 call to Template::BEGIN@24
25224µs26.49ms
# spent 3.25ms (6µs+3.24) within Template::BEGIN@25 which was called: # once (6µs+3.24ms) by RBM::BEGIN@9 at line 25
use base 'Template::Base';
# spent 3.25ms making 1 call to Template::BEGIN@25 # spent 3.24ms making 1 call to base::import
26
272115µs21.34ms
# spent 1.34ms (1.06+280µs) within Template::BEGIN@27 which was called: # once (1.06ms+280µs) by RBM::BEGIN@9 at line 27
use Template::Config;
# spent 1.34ms making 1 call to Template::BEGIN@27 # spent 900ns making 1 call to Template::__ANON__
28219µs233µs
# spent 19µs (6+13) within Template::BEGIN@28 which was called: # once (6µs+13µs) by RBM::BEGIN@9 at line 28
use Template::Constants;
# spent 19µs making 1 call to Template::BEGIN@28 # spent 13µs making 1 call to Exporter::import
292122µs26.27ms
# spent 6.26ms (4.45+1.81) within Template::BEGIN@29 which was called: # once (4.45ms+1.81ms) by RBM::BEGIN@9 at line 29
use Template::Provider;
# spent 6.26ms making 1 call to Template::BEGIN@29 # spent 900ns making 1 call to Template::__ANON__
302176µs22.23ms
# spent 2.23ms (1.25+977µs) within Template::BEGIN@30 which was called: # once (1.25ms+977µs) by RBM::BEGIN@9 at line 30
use Template::Service;
# spent 2.23ms making 1 call to Template::BEGIN@30 # spent 1µs making 1 call to Template::__ANON__
31223µs276µs
# spent 42µs (8+34) within Template::BEGIN@31 which was called: # once (8µs+34µs) by RBM::BEGIN@9 at line 31
use File::Basename;
# spent 42µs making 1 call to Template::BEGIN@31 # spent 34µs making 1 call to Exporter::import
322112µs23.47ms
# spent 3.44ms (3.24+197µs) within Template::BEGIN@32 which was called: # once (3.24ms+197µs) by RBM::BEGIN@9 at line 32
use File::Path;
# spent 3.44ms making 1 call to Template::BEGIN@32 # spent 32µs making 1 call to Exporter::import
332836µs246µs
# spent 26µs (7+19) within Template::BEGIN@33 which was called: # once (7µs+19µs) by RBM::BEGIN@9 at line 33
use Scalar::Util qw(blessed);
# spent 26µs making 1 call to Template::BEGIN@33 # spent 19µs making 1 call to Exporter::import
34
351400nsour $VERSION = '2.27';
361200nsour $ERROR = '';
371100nsour $DEBUG = 0;
381300nsour $BINMODE = 0 unless defined $BINMODE;
39our $AUTOLOAD;
40
41# preload all modules if we're running under mod_perl
421500nsTemplate::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 1623s (8.26+1614) within Template::process which was called 375387 times, avg 4.32ms/call: # 375387 times (8.26s+1614s) by RBM::process_template at line 673 of /root/tor-browser-build/rbm/lib/RBM.pm, avg 4.32ms/call
sub process {
54375387377ms my ($self, $template, $vars, $outstream, @opts) = @_;
55375387132ms my ($output, $error);
56375387702ms my $options = (@opts == 1) && ref($opts[0]) eq 'HASH'
57 ? shift(@opts) : { @opts };
58
59 $options->{ binmode } = $BINMODE
60375387292ms 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...
64375387342ms $self->DEBUG("set binmode\n") if $DEBUG && $options->{ binmode };
65
663753871.39s3753871623s $output = $self->{ SERVICE }->process($template, $vars);
# spent 31014s making 375387 calls to Template::Service::process, avg 82.6ms/call, recursion: max depth 40, sum of overlapping time 29391s
67
68375387222ms if (defined $output) {
69375387183ms $outstream ||= $self->{ OUTPUT };
70375387193ms 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
763753871.03s3753872.32s return ($self->error($error))
# spent 2.32s making 375387 calls to Template::_output, avg 6µs/call
77 if ($error = &_output($outstream, \$output, $options));
78
793753872.37s 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 internal SERVICE object which handles
91# all requests for this Template object
92#------------------------------------------------------------------------
93
94sub service {
95 my $self = shift;
96 return $self->{ SERVICE };
97}
98
99
100#------------------------------------------------------------------------
101# context()
102#
103# Returns a reference to the CONTEXT object within the SERVICE
104# object.
105#------------------------------------------------------------------------
106
107sub context {
108 my $self = shift;
109 return $self->{ SERVICE }->{ CONTEXT };
110}
111
112sub template {
113 shift->context->template(@_);
114}
115
116
117#========================================================================
118# -- PRIVATE METHODS --
119#========================================================================
120
121#------------------------------------------------------------------------
122# _init(\%config)
123#------------------------------------------------------------------------
124
# spent 141s (5.51+135) within Template::_init which was called 375387 times, avg 375µs/call: # 375387 times (5.51s+135s) by Template::Base::new at line 65 of Template/Base.pm, avg 375µs/call
sub _init {
125375387229ms my ($self, $config) = @_;
126
127 # convert any textual DEBUG args to numerical form
128375387314ms my $debug = $config->{ DEBUG };
129375387209ms $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
133375387230ms 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 }
1423753871.75s375387135s || Template::Config->service($config)
# spent 135s making 375387 calls to Template::Config::service, avg 360µs/call
143 || return $self->error(Template::Config->error);
144
145375387634ms $self->{ OUTPUT } = $config->{ OUTPUT } || \*STDOUT;
146375387409ms $self->{ OUTPUT_PATH } = $config->{ OUTPUT_PATH };
147
1483753871.44s return $self;
149}
150
151
152#------------------------------------------------------------------------
153# _output($where, $text)
154#------------------------------------------------------------------------
155
156
# spent 2.32s within Template::_output which was called 375387 times, avg 6µs/call: # 375387 times (2.32s+0s) by Template::process at line 76, avg 6µs/call
sub _output {
157375387202ms my ($where, $textref, $options) = @_;
158375387116ms my $reftype;
159375387159ms my $error = 0;
160
161 # call a CODE reference
162375387810ms 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') {
171375387336ms $$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
2133753871.60s return $error;
214}
215
216
21716µs1;
218
219__END__
 
# spent 3µs within Template::__ANON__ which was called 3 times, avg 933ns/call: # once (1µs+0s) by Template::BEGIN@30 at line 30 # once (900ns+0s) by Template::BEGIN@29 at line 29 # once (900ns+0s) by Template::BEGIN@27 at line 27
sub Template::__ANON__; # xsub
Report produced by the NYTProf 6.06 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.