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