File Coverage

blib/lib/CGI/Lazy/Template.pm

Criterion	Covered	Total	%
statement	24	49	48.9
branch	2	8	25.0
condition	1	3	33.3
subroutine	7	11	63.6
pod	6	7	85.7
total	40	78	51.2

package CGI::Lazy::Template;

use strict;

use HTML::Template;
use CGI::Lazy::Globals;
use CGI::Lazy::Template::Boilerplate;

#----------------------------------------------------------------------------------------
sub boilerplate {
	my $self 	= shift;
	my $widget 	= shift;

	return CGI::Lazy::Template::Boilerplate->new($self, $widget);
}

#----------------------------------------------------------------------------------------
sub config {
	my $self = shift;

	return $self->q->config;
}

#----------------------------------------------------------------------------------------
sub q {
	my $self = shift;

	return $self->{_q};
}

#----------------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;
	my $tmplname = shift;


	my $self = {_q => $q, _tmplname => $tmplname};

	bless $self, $class;

	if ($self->config->tmplDir && $tmplname) {
		eval {
			$self->{_template} = HTML::Template->new(
								filename => $self->config->tmplDir."/".$tmplname,
								die_on_bad_params => 0,
							);
		};
	}

	if ($@) {
		$self->q->errorHandler->tmplCreateError;
		exit;
	}

	return $self;
}

#----------------------------------------------------------------------------------------
sub process {
	my $self = shift;
	my $vars = shift;

	eval {
		$self->template->param($vars);
	};

	if ($@) {
		$self->q->errorHandler->tmplParamError($self->tmplName);
		exit;
	}

	my $output;

	eval {
		$output = $self->template->output;
	};

	if ($@) {
		$self->q->errorHandler->tmplParamError($self->tmplName);
		exit;
	}

	return $output;
}

#----------------------------------------------------------------------------------------
sub template {
	my $self = shift;

	return $self->{_template};
}

#----------------------------------------------------------------------------------------
sub tmplName {
	my $self = shift;

	return $self->{_tmplname};
}

1

__END__