package TemplateSimple;

###########################################################################
# Einfaches Template-System
# Arbeitet unabhängig von der Zeichenkodierung (UTF-8, ISO...)
# Rolf Rost, 26.8.2011
###########################################################################
use strict;
use warnings;
use Carp;

sub new{
	my $class = shift;
	my $template = shift;	
	my $templval = shift;
	
	croak qq(Erstes Argument muss sein: Scalar-Referenz auf Template) if ref $template ne 'SCALAR';
	croak qq(Zweites Argument muss sein: Hash-Referenz mit Werten) if ref $templval ne 'HASH';
	
	my $self = {
		TEMPLATE => $template,
		TEMPLVAL => $templval,
		TEMPLIST => [],
	};
	return bless $self, $class;
}

sub expand{
	my $self = shift;
	
	# Liste der Platzhalter namentlich ermitteln
	# Platzhalter gegen %s austauschen
	${$self->{TEMPLATE}} =~ s/%(\w+)/$self->_xp($1)/eg;

	# Platzhalter werden nun gegen die Werte ausgetauscht
	foreach my $s(@{$self->{TEMPLIST}}){
		$s = defined $self->{TEMPLVAL}{$s} ? $self->{TEMPLVAL}{$s} : '';			
	}
	${$self->{TEMPLATE}} = sprintf ${$self->{TEMPLATE}}, @{$self->{TEMPLIST}};
}

# Platzhalter gegen %s austauschen
# Array TEMPLIST mit Namen der Platzhalter
sub _xp{
	my $self = shift;
	my $s = shift;
	push @{$self->{TEMPLIST}}, $s;
	return '%s';
}

1;#########################################################################

package main;

use strict;
use warnings;

my $template = qq(
	Vorname: %vorname
	Name: %name
	Ort: %ort
	PLZ: %plz
);

my $templval = {
	name => "Rost",
	vorname => 'Rolf',
	ort => 'Oppenheim',
	plz => '55276',
};


my $ts = TemplateSimple->new(\$template, $templval);
$ts->expand;

print $template;