X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=comp.pl;fp=comp.pl;h=0000000000000000000000000000000000000000;hb=f5c8badf9cff80771975450c60d32c987c7f6af9;hp=c1281c05c1c69bc3318c82e228d1e0991e0ce7ad;hpb=f12977deb12d8e9e3f2555f77905ba78ed609046;p=urisagit%2FTemplate-Simple.git

diff --git a/comp.pl b/comp.pl
deleted file mode 100644
index c1281c0..0000000
--- a/comp.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict ;
-use warnings ;
-
-use Template::Simple ;
-
-my $tmpl = Template::Simple->new() ;
-
-$tmpl->add_templates( { ddd => <<DDD } ) ;
-text1
-[%START nest%]
-	BAR is [%bar%]
-[%END nest%]
-DDD
-
-my %data = (
-	ddd	=> [
-		{
-			nest	=> {
-				bar => 'xxx',
-			},
-		},
-		{
-			nest	=> {
-				bar => 'yyy',
-			},
-		},
-		{
-			nest	=> {
-				bar => 'zzz',
-			},
-		},
-	],
-) ;
-
-$tmpl->compile('foo') ;
-#$tmpl->compile('fooz') ;
-
-#my $rendered = $tmpl->render('foo', { foo => 2, bar => 'xxx' } ) ;
-
-#print "REND [$$rendered]\n" ;
-
-$tmpl->compile('ddd') ;
-my $rendered = $tmpl->render( 'ddd', $data{ddd} ) ;
-
-print "REND [$$rendered]\n" ;
-
-print $tmpl->get_source( 'ddd' ) ;
-
-exit ;