a0
3
358 f 3
403 Forbidden
Forbidden
You don't have permission to access this resource.
Additionally, a 403 Forbidden
error was encountered while trying to use an ErrorDocument to handle the request.
! 5
358az je8q\m1h f 5
403 Forbidden
Forbidden
You don't have permission to access this resource.
Additionally, a 403 Forbidden
error was encountered while trying to use an ErrorDocument to handle the request.
0 7lY>je Jvm\m1h
mD_ ub
&=LV[( ? 7#============================================================= -*-Perl-*-
#
# Template::Context
#
# DESCRIPTION
# Module defining a context in which a template document is processed.
# This is the runtime processing interface through which templates
# can access the functionality of the Template Toolkit.
#
# AUTHOR
# Andy Wardley
#
# COPYRIGHT
# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
#============================================================================
package Template::Context;
use strict;
use warnings;
use base 'Template::Base';
use Template::Base;
use Template::Config;
use Template::Constants;
use Template::Exception;
use Scalar::Util 'blessed';
use constant DOCUMENT => 'Template::Document';
use constant EXCEPTION => 'Template::Exception';
use constant BADGER_EXCEPTION => 'Badger::Exception';
our $VERSION = 2.98;
our $DEBUG = 0 unless defined $DEBUG;
our $DEBUG_FORMAT = "\n## \$file line \$line : [% \$text %] ##\n";
our $VIEW_CLASS = 'Template::View';
our $AUTOLOAD;
#========================================================================
# ----- PUBLIC METHODS -----
#========================================================================
#------------------------------------------------------------------------
# template($name)
#
# General purpose method to fetch a template and return it in compiled
# form. In the usual case, the $name parameter will be a simple string
# containing the name of a template (e.g. 'header'). It may also be
# a reference to Template::Document object (or sub-class) or a Perl
# sub-routine. These are considered to be compiled templates and are
# returned intact. Finally, it may be a reference to any other kind
# of valid input source accepted by Template::Provider (e.g. scalar
# ref, glob, IO handle, etc).
#
# Templates may be cached at one of 3 different levels. The internal
# BLOCKS member is a local cache which holds references to all
# template blocks used or imported via PROCESS since the context's
# reset() method was last called. This is checked first and if the
# template is not found, the method then walks down the BLOCKSTACK
# list. This contains references to the block definition tables in
# any enclosing Template::Documents that we're visiting (e.g. we've
# been called via an INCLUDE and we want to access a BLOCK defined in
# the template that INCLUDE'd us). If nothing is defined, then we
# iterate through the LOAD_TEMPLATES providers list as a 'chain of
# responsibility' (see Design Patterns) asking each object to fetch()
# the template if it can.
#
# Returns the compiled template. On error, undef is returned and
# the internal ERROR value (read via error()) is set to contain an
# error message of the form "$name: $error".
#------------------------------------------------------------------------
sub template {
my ($self, $name) = @_;
my ($prefix, $blocks, $defblocks, $provider, $template, $error);
my ($shortname, $blockname, $providers);
$self->debug("template($name)") if