File Coverage

blib/lib/Dotiac/DTL/Template.pm

Criterion	Covered	Total	%
statement	60	72	83.3
branch	5	12	41.6
condition	7	10	70.0
subroutine	7	9	77.7
pod	6	6	100.0
total	85	109	77.9

###############################################################################
#Template.pm
#Last Change: 2009-01-19
#Copyright (c) 2009 Marc-Seabstian "Maluku" Lucksch
#Version 0.8
####################
#This file is part of the Dotiac::DTL project.
#http://search.cpan.org/perldoc?Dotiac::DTL
#
#Template.pm is published under the terms of the MIT license, which basically
#means "Do with it whatever you want". For more information, see the
#license.txt file that should be enclosed with libsofu distributions. A copy of
#the license is (at the time of writing) also available at
#http://www.opensource.org/licenses/mit-license.php .
###############################################################################

package Dotiac::DTL::Template;
require Dotiac::DTL::Core;
require Dotiac::DTL::Addon;

our $VERSION = 0.8;

use strict;
use warnings;
use Carp;

sub new {
	my $class=shift;
	my $self={};
	bless $self,$class;
	$self->{vars}={};
	$self->{first}=shift;
	$self->{currentdir}=shift(@_) || $Dotiac::DTL::CURRENTDIR;
	$self->{parser}=shift(@_) || $Dotiac::DTL::PARSER;
	if (@_) {
		#$self->{params}=[keys %{shift(@_)}];
		$self->{params}=[grep {substr($_,0,1) ne "`"} sort keys %{shift(@_)}];
	}
	else {
		#$self->{params}=[keys %Dotiac::DTL::params];
		$self->{params}=[grep {substr($_,0,1) ne "`"} sort keys %Dotiac::DTL::params];
	}
	return $self;
}

sub param {
	my $self=shift;
	my $name="";
	return @{$self->{params}} unless @_;
	while (@_) {
		$name=shift;
		$self->{vars}->{$name}=shift if @_;
	}
	return $self->{vars}->{$name} if $name;

}

sub string {
	my $self=shift;
	my $vars=shift || {};
	%Dotiac::DTL::blocks=();
	%Dotiac::DTL::cycle=();
	%Dotiac::DTL::globals=();
	$Dotiac::DTL::currentdir=$self->{currentdir};
	my $p=$Dotiac::DTL::PARSER;
	$Dotiac::DTL::PARSER=$self->{parser};
	my $ret="";
	eval {
		$ret=$self->{first}->string({%{$self->{vars}},%{$vars}},$Dotiac::DTL::AUTOESCAPING);
		1;
	} or do {
		croak "Error while rendering output to string\n $@\n.";
		undef $@;
	};
	Dotiac::DTL::Addon::restore();
	$Dotiac::DTL::PARSER=$p;
	return $ret;
}

sub render {
	my $self=shift;
	return $self->string(@_);
}
sub output {
	my $self=shift;
	return $self->string(@_);
}

sub print {
	my $self=shift;
	my $vars=shift || {};
	%Dotiac::DTL::blocks=();
	%Dotiac::DTL::cycle=();
	%Dotiac::DTL::globals=();
	$Dotiac::DTL::currentdir=$self->{currentdir};
	my $p=$Dotiac::DTL::PARSER;
	$Dotiac::DTL::PARSER=$self->{parser};
	eval {
		$self->{first}->print({%{$self->{vars}},%{$vars}},$Dotiac::DTL::AUTOESCAPING);
		1;
	} or do {
		croak "Error while printing output\n $@\n.";
		undef $@;
	};
	Dotiac::DTL::Addon::restore();
	$Dotiac::DTL::PARSER=$p;
	return;
}

1;

__END__