sample.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => "unicode sampler",
   5         version => '2.0',
   6         stylesheet => [qw'light dark mono red'],
   7 });
   8
   9 open my $source, '<', 'data/unicode-sampler/unicode.txt'
  10         or die "Could not open text: $!\n";
  11
  12 my $title = readline $source;
  13 my $hr = readline $source;
  14 say "<h1>$title</h1>";
  15
  16 say '<pre>';
  17 while (my $p = readline $source) {
  18         print EscapeHTML($p);
  19 }
  20 say "</pre>\n";