use Data::Dumper qw/Dumper/;
sub ftime ($) { POSIX::strftime '%c', localtime shift }
-sub literal ($) { HTML::Element::Library::super_literal shift // '' }
+sub literal ($) {
+ my $b = HTML::TreeBuilder->new;
+ $b->ignore_unknown(0);
+ $b->parse(shift // '');
+ HTML::Element::Library::super_literal $b->guts->as_HTML;
+}
sub HTML::Element::edit_href {
my ($self, $sub) = @_;