Templating fixes and tests

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1218 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 8 insertions, 6 deletions

diff --git a/LedgerSMB/Template.pm b/LedgerSMB/Template.pm
index 938b8254..f302f3fc 100755
--- a/LedgerSMB/Template.pm
+++ b/LedgerSMB/Template.pm
@@ -39,12 +39,13 @@ option any later version.  A copy of the license should have been included with
 your software.
 
 =cut
+
+package LedgerSMB::Template;
+
 use Error qw(:try);
 use Template;
 use LedgerSMB::Sysconfig;
 
-package LedgerSMB::Template;
-
 sub new {
 	my $class = shift;
 	my $self = {};
@@ -89,6 +90,7 @@ sub render {
 	my $self = shift;
 	my $vars = shift;
 	my $template;
+	my $format = "LedgerSMB::Template::$self->{format}";
 
 	$template = Template->new({
 		INCLUDE_PATH => $self->{include_path},
@@ -97,22 +99,22 @@ sub render {
 		DELIMITER => ';',
 		}) || throw Error::Simple Template->error(); 
 
-	eval "require LedgerSMB::Template::$self->{format}";
+	eval "require $format";
 	if ($@) {
 		throw Error::Simple $@;
 	}
 
-	my $cleanvars = &{"LedgerSMB::Template::$self->{format}::preprocess"}($vars);
+	my $cleanvars = $format->can('preprocess')->($vars);
 	if (UNIVERSAL::isa($self->{locale}, 'LedgerSMB::Locale')){
 		$cleanvars->{text} = \&$self->{locale}->text();
 	}
 	if (not $template->process(
-		&{"LedgerSMB::Template::$self->{format}::get_template"}($self->{template}), 
+		$format->can('get_template')->($self->{template}), 
 			$cleanvars, \$self->{output}, binmode => ':utf8')) {
 		throw Error::Simple $template->error();
 	}
 
-	&{"LedgerSMB::Template::$self->{format}::postprocess"}($self);
+	$format->can('postprocess')->($self);
 
 	return $self->{output};
 }