17 pre_delim => qr/\[\-/,
18 post_delim => qr/\-\]/,
34 <table width="100%" border=1>
42 <td>[-escaped_anchor-]</td>
56 template_tester( $tests ) ;
58 #remove_tmpl_files() ;
63 sub write_tmpl_files {
65 mkdir $_, 0755 for @tmpl_dirs ;
67 while( my( $file, $tmpl ) = each %tmpl_files ) {
69 write_file( $file, $tmpl ) ;
73 sub remove_tmpl_files {
75 unlink keys %tmpl_files ;
77 rmdir $_ for reverse @tmpl_dirs ;