tests/t1.pl

   1 #!/usr/bin/perl
   2
   3 use Artemus5;
   4
   5 my $artemus = Artemus5->new( path => [ '.' ]);
   6
   7 my $stream = $artemus->_compile(join('', <>));
   8 print $artemus->execute($stream, '1st arg', '2nd arg');