Help for this page

Select Code to Download

Select or download this

  my $filter = sub {
     my $text_ref = shift;
...
   my $template = HTML::Template->new(
                    filename => 'zap.tmpl',
                    filter => $filter);

Select or download this

sub convert {
   my $text_ref = shift;
...
   $$text_ref =~ s/\[\%\/(.*?)\%\]/<\/TMPL_$1>/g;
   $$text_ref =~ s/\[\%(.*?)\%\]/<TMPL_$1>/g;
}