File Coverage

blib/lib/Plack/Middleware/Bootstrap.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	7	8	87.5
condition	1	2	50.0
subroutine	10	10	100.0
pod	1	1	100.0
total	62	64	96.8

package Plack::Middleware::Bootstrap;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.08";

use parent qw(Plack::Middleware);
use Plack::Util ();
use Plack::Response;

use Text::MicroTemplate::DataSection qw();
use HTML::TreeBuilder::XPath;

sub call {
    my ($self, $env) = @_;

    Plack::Util::response_cb(
        $self->app->($env),
        sub {
            my $res = shift;

            my $plack_res = Plack::Response->new(@$res);
            return unless $plack_res->content_type =~ /\Atext\/html/;
            return if $plack_res->content_encoding;

            my $content;
            Plack::Util::foreach($res->[2] || [], sub { $content .= $_[0] });

            my $tree = HTML::TreeBuilder::XPath->new();
            $tree->ignore_unknown(0);
            $tree->store_comments(1);
            $tree->parse_content($content);

            my $head = join "\n", map { ref($_) ? $_->as_HTML(q{&<>'"}, '', {}) : $_ } $tree->findnodes('//head')->[0]->content_list;
            my $body = join "\n", map { ref($_) ? $_->as_HTML(q{&<>'"}, '', {}) : $_ } $tree->findnodes('//body')->[0]->content_list;

            my $renderer = Text::MicroTemplate::DataSection->new(
                escape_func => undef
            );

            # render_mt returns Text::MicroTemplate::EncodedString.
            $res->[2] = [ $renderer->render_mt('template.mt', $head, $body).q() ];

            Plack::Util::header_remove($res->[1], 'Content-Length');
        });
}

1;
__DATA__