NAME
Apache2::DirBasedHandler::TT - TT hooked into DirBasedHandler
SYNOPSIS
package My::Thingy;
use strict;
use Apache2::DirBasedHandler::TT
our @ISA = qw(Apache2::DirBasedHandler::TT);
use Apache2::Const -compile => qw(:common);
sub index {
my $self = shift;
my ($r,$uri_args,$args) = @_;
if (@$uri_args) {
return Apache2::Const::NOT_FOUND;
}
$$args{'vars'}{'blurb'} = qq[this is the index];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_dooper_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super/dooper and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
1;
DESCRIPTION
Apache2::DirBasedHandler::TT, is an subclass of Apache2::DirBasedHandler
with modified to allow easy use of Template Toolkit templates for
content generation.
init
"init" calls get_tt to get the template object, and stuffs it into the
hash it gets back from the super class.
get_tt
"get_tt" returns a Template Toolkit object, and a hash reference of
variables which will be passed into the TT process call. You should
really override this function with to create the Template object
appropriate to your environment.
process_template
"process_template" is a helper function to generate a page based using
the template object, variables, and template passed in. It sets the
content_type of the response to the value of the fifth argument.
AUTHOR AND COPYRIGHT
Copyright 2008, Adam Prime (
[email protected])
This software is free. It is licensed under the same terms as Perl
itself.