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 {
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 };