waste/a.pl

   1 #!/usr/bin/perl
   2
   3 use Artemus;
   4
   5 @unresolved=();
   6
   7 %vars=(
   8         "link"  =>      '<a href="$0">$1</a>',
   9         "autolink" =>   '{-link|{-http|$0}|$0}',
  10         "http"  =>      'http://$0'
  11         );
  12
  13 $ah=new Artemus(        "vars"  => \%vars,
  14                         "unresolved" => \@unresolved,
  15                 );
  16
  17 $t=$ah->armor("{-template}");
  18 print "$t\n";
  19
  20 $t=$ah->params('Este $0 parece un $1',"chirifú","guarripé");
  21 print "$t\n";
  22
  23 $t=$ah->process('{-autolink|192.168.1.1} {-localtime} {-\VERSION}');
  24 print "$t\n";