exodist / dsl-html Goto Github PK

In your example, you use tag span { 'copyright ©' }, however the ampersand is escaped, so it looks like a literal © when rendered in the browser.

Can be reproduced with the following code:

#!/usr/bin/perl

package blah;

use strict;
use warnings;

use DSL::HTML;

template my_template {
    tag span { 'copyright ©' }
}
print build_template(my_template => '');

On my (under development) system, I prefer to build a template as fragment which only include the tags I specified, and to push it myself into the container document. I believe this case is legitimate and useful, but it does not seem possible without breaking the encapsulation of DSL::HTML::Rendering.
perhaps, instead of compile, there should be 2 methods : compile() (no container) and compile_document() (with container).

The following code does what I need (if the template has 1 root tag), but is really ugly :
my $r = DSL::HTML::Rendering->new($tpl);
$r->build(@_);
return $r->body->content->[0]->as_HTML(undef, $r->template->indent);