lib/Gitalist/ContentMangler/Transformer/EnPodulate.pm

   1 use MooseX::Declare;
   2
   3 # Currently a POC to demonstrate non SyntaxHighlight based
   4 # CM::Transformer. The default output is ugly as sin.
   5 class Gitalist::ContentMangler::Transformer::EnPodulate {
   6     use Pod::Simple::HTML;
   7
   8     method transform(Str :$blob, Str :$filename) {
   9         my $p = Pod::Simple::HTML->new;
  10         $p->output_string(\my $html);
  11         $p->parse_string_document( $blob );
  12         $html =~ m{<body[^>]*>(.*?)</body>}s;
  13         return { blob => $1 };
  14     }
  15 }