[catagits/Gitalist.git] / lib / Gitalist / ContentMangler / Transformer / EnPodulate.pm

use MooseX::Declare;

# Currently a POC to demonstrate non SyntaxHighlight based
# CM::Transformer. The default output is ugly as sin.
class Gitalist::ContentMangler::Transformer::EnPodulate {
    use Pod::Simple::HTML;
    
    method transform(Str :$blob, Str :$filename) {
        my $p = Pod::Simple::HTML->new;
        $p->output_string(\my $html);
        $p->parse_string_document( $blob );
        $html =~ m{<body[^>]*>(.*?)</body>}s;
        return { blob => $1 };
    }
}
Commit	Line	Data
701c72d2	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	}