Select Code to Download

    
  # generate a new template handler
  my $th=Template::YetAnother->new
...
   <p>foo bar</p>
   <hr>
   Thu Nov  7 21:51:05 200

      my $th=Template::YetAnother->new({
                                template_dir=>'/path/to/templates/',
...
                                # start_tag=>'<--',
                                # end_tag=>  '-->',
                                });

      $th->fill($data);

      my $fragment=$th->_gen('type',$data)

      $th->type($data)

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}