view release on metacpan or  search on metacpan

lib/Apache2/DirBasedHandler/TT.pm  view on Meta::CPAN

use warnings;

use base qw(Apache2::DirBasedHandler);

use Template;
our $tt;
our $VERSION = 0.03;

sub init {
    my ($self,$r) = @_;
    my $hash = $self->SUPER::init($r);
    my ($tt,$vars) = $self->get_tt($r);
    $hash->{'tt'} = $tt;
    $hash->{'vars'} = $vars;
    return $hash;
}

sub get_tt {
    my $self = shift;
    my $r = shift;