Filename	/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Base.pm
Statements	Executed 16 statements in 1.00ms

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	1.93ms	3.00ms	Template::Base::::BEGIN@24Template::Base::BEGIN@24
1	1	1	19µs	30µs	Template::Base::::BEGIN@44Template::Base::BEGIN@44
1	1	1	15µs	24µs	Template::Base::::BEGIN@22Template::Base::BEGIN@22
1	1	1	10µs	30µs	Template::Base::::BEGIN@45Template::Base::BEGIN@45
1	1	1	10µs	16µs	Template::Base::::BEGIN@85Template::Base::BEGIN@85
1	1	1	9µs	16µs	Template::Base::::BEGIN@137Template::Base::BEGIN@137
1	1	1	7µs	11µs	Template::Base::::BEGIN@23Template::Base::BEGIN@23
0	0	0	0s	0s	Template::Base::::_initTemplate::Base::_init
0	0	0	0s	0s	Template::Base::::debugTemplate::Base::debug
0	0	0	0s	0s	Template::Base::::errorTemplate::Base::error
0	0	0	0s	0s	Template::Base::::module_versionTemplate::Base::module_version
0	0	0	0s	0s	Template::Base::::newTemplate::Base::new

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::Base
4					#
5					# DESCRIPTION
6					# Base class module implementing common functionality for various other
7					# Template Toolkit modules.
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
20					package Template::Base;
21
22	2	37µs	2	33µs	# spent 24µs (15+9) within Template::Base::BEGIN@22 which was called: # once (15µs+9µs) by base::import at line 22 use strict; # spent 24µs making 1 call to Template::Base::BEGIN@22 # spent 9µs making 1 call to strict::import
23	2	29µs	2	16µs	# spent 11µs (7+4) within Template::Base::BEGIN@23 which was called: # once (7µs+4µs) by base::import at line 23 use warnings; # spent 11µs making 1 call to Template::Base::BEGIN@23 # spent 4µs making 1 call to warnings::import
24	2	264µs	2	3.03ms	# spent 3.00ms (1.93+1.07) within Template::Base::BEGIN@24 which was called: # once (1.93ms+1.07ms) by base::import at line 24 use Template::Constants; # spent 3.00ms making 1 call to Template::Base::BEGIN@24 # spent 26µs making 1 call to Exporter::import
25
26	1	400ns			our $VERSION = 2.78;
27
28
29					#------------------------------------------------------------------------
30					# new(\%params)
31					#
32					# General purpose constructor method which expects a hash reference of
33					# configuration parameters, or a list of name => value pairs which are
34					# folded into a hash. Blesses a hash into an object and calls its
35					# _init() method, passing the parameter hash reference. Returns a new
36					# object derived from Template::Base, or undef on error.
37					#------------------------------------------------------------------------
38
39					sub new {
40					my $class = shift;
41					my ($argnames, @args, $arg, $cfg);
42					# $class->error(''); # always clear package $ERROR var?
43
44	2	64µs	2	42µs	# spent 30µs (19+11) within Template::Base::BEGIN@44 which was called: # once (19µs+11µs) by base::import at line 44 { no strict 'refs'; # spent 30µs making 1 call to Template::Base::BEGIN@44 # spent 11µs making 1 call to strict::unimport
45	2	217µs	2	50µs	# spent 30µs (10+20) within Template::Base::BEGIN@45 which was called: # once (10µs+20µs) by base::import at line 45 no warnings 'once'; # spent 30µs making 1 call to Template::Base::BEGIN@45 # spent 20µs making 1 call to warnings::unimport
46					$argnames = \@{"$class\::BASEARGS"} || [ ];
47					}
48
49					# shift off all mandatory args, returning error if undefined or null
50					foreach $arg (@$argnames) {
51					return $class->error("no $arg specified")
52					unless ($cfg = shift);
53					push(@args, $cfg);
54					}
55
56					# fold all remaining args into a hash, or use provided hash ref
57					$cfg = defined $_[0] && ref($_[0]) eq 'HASH' ? shift : { @_ };
58
59					my $self = bless {
60					(map { ($_ => shift @args) } @$argnames),
61					_ERROR => '',
62					DEBUG => 0,
63					}, $class;
64
65					return $self->_init($cfg) ? $self : $class->error($self->error);
66					}
67
68
69					#------------------------------------------------------------------------
70					# error()
71					# error($msg, ...)
72					#
73					# May be called as a class or object method to set or retrieve the
74					# package variable $ERROR (class method) or internal member
75					# $self->{ _ERROR } (object method). The presence of parameters indicates
76					# that the error value should be set. Undef is then returned. In the
77					# abscence of parameters, the current error value is returned.
78					#------------------------------------------------------------------------
79
80					sub error {
81					my $self = shift;
82					my $errvar;
83
84					{
85	2	326µs	2	23µs	# spent 16µs (10+7) within Template::Base::BEGIN@85 which was called: # once (10µs+7µs) by base::import at line 85 no strict qw( refs ); # spent 16µs making 1 call to Template::Base::BEGIN@85 # spent 7µs making 1 call to strict::unimport
86					$errvar = ref $self ? \$self->{ _ERROR } : \${"$self\::ERROR"};
87					}
88					if (@_) {
89					$$errvar = ref($_[0]) ? shift : join('', @_);
90					return undef;
91					}
92					else {
93					return $$errvar;
94					}
95					}
96
97
98					#------------------------------------------------------------------------
99					# _init()
100					#
101					# Initialisation method called by the new() constructor and passing a
102					# reference to a hash array containing any configuration items specified
103					# as constructor arguments. Should return $self on success or undef on
104					# error, via a call to the error() method to set the error message.
105					#------------------------------------------------------------------------
106
107					sub _init {
108					my ($self, $config) = @_;
109					return $self;
110					}
111
112
113					sub debug {
114					my $self = shift;
115					my $msg = join('', @_);
116					my ($pkg, $file, $line) = caller();
117
118					unless ($msg =~ /\n$/) {
119					$msg .= ($self->{ DEBUG } & Template::Constants::DEBUG_CALLER)
120					? " at $file line $line\n"
121					: "\n";
122					}
123
124					print STDERR "[$pkg] $msg";
125					}
126
127
128					#------------------------------------------------------------------------
129					# module_version()
130					#
131					# Returns the current version number.
132					#------------------------------------------------------------------------
133
134					sub module_version {
135					my $self = shift;
136					my $class = ref $self || $self;
137	2	61µs	2	22µs	# spent 16µs (9+6) within Template::Base::BEGIN@137 which was called: # once (9µs+6µs) by base::import at line 137 no strict 'refs'; # spent 16µs making 1 call to Template::Base::BEGIN@137 # spent 6µs making 1 call to strict::unimport
138					return ${"${class}::VERSION"};
139					}
140
141
142	1	3µs			1;
143
144					__END__