#!/usr/bin/perl -w

#
# modules/template.pm
#
# Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
# Copyright (c) 2004 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 08/02/2004 - created
#

# $Platon$

package template;

use strict;

use Carp;
use Template;
use English;

use vars qw($VERSION @ISA @EXPORT $AUTOLOAD);

@ISA     = qw(Exporter Template);
@EXPORT  = qw( );
$VERSION = '0.1';

sub new
{ # {{{
    my $this  = shift;
    my $class = ref($this) || $this;
	my ($globals) = @_;

	my $self = Template->new({
			INCLUDE_PATH	=> './templates',
			AUTHOR			=> "Lubomir Host 'rajo'",
			COMPILE_EXT		=> '.ttc',
			COMPILE_DIR		=> "/tmp/ttc-$EUID",
			DEFAULT			=> 'defaults.tt2',
			VARIABLES		=> {
				fastcgi_name	=> $globals->fastcgi_name(),
			},
		}
	);

    bless $self, $class;
    return $self;

} # }}} 

1;

__END__

=head1 NAME

template - <<<description of module>>>

=head1 SYNOPSIS

  use template;

  my $xxx = new template;

=head1 DESCRIPTION

The template module allows you ...
<<<your description here>>>

=head2 EXPORT

<<here describe exported methods>>>

=head1 SEE ALSO

=head1 AUTHORS

Lubomir Host 'rajo', <rajo AT platon.sk>

=cut

# vim: ts=4
# vim600: fdm=marker fdl=0 fdc=3