loops and hashes are working

added get_source method (needs pod)
need to add tests, pod

diff --git a/lib/Template/Simple.pm b/lib/Template/Simple.pm
index d4804ba..277195b 100644 (file)
--- 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} ;
 }