X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTemplate%2FSimple.pm;fp=lib%2FTemplate%2FSimple.pm;h=277195bdc4f693fbfde468ae7ed07461761e1b51;hb=89bd07c7c8709988903e8d3eb4380edc42f91c09;hp=d4804ba1a70336a78c040b101d86025252d4cf90;hpb=7dd120001373ca771b4baf231269e2296a908ce1;p=urisagit%2FTemplate-Simple.git

diff --git a/lib/Template/Simple.pm b/lib/Template/Simple.pm
index d4804ba..277195b 100644
--- a/lib/Template/Simple.pm
+++ b/lib/Template/Simple.pm
@@ -108,7 +108,7 @@ sub compile {
 
 	my $code_body = $self->_compile_chunk( '', "${$tmpl_ref}", "\t" ) ;
 
-	$self->{source} = <<CODE ;
+	my $source = <<CODE ;
 
 no warnings ;
 
@@ -121,14 +121,21 @@ sub {
 }
 CODE
 
-	$self->{source_cache}{$template_name} = $self->{source} ;
-	print $self->{source} ;
+#print $source ;
 
-	my $code_ref = eval $self->{source} ;
+	my $code_ref = eval $source ;
 
 die $@ if $@ ;
 
 	$self->{compiled_cache}{$template_name} = $code_ref ;
+	$self->{source_cache}{$template_name} = $source ;
+}
+
+sub get_source {
+
+	my( $self, $template_name ) = @_ ;
+
+	return $self->{source_cache}{$template_name} ;
 }