- [ $code, [ 'Content-Type', 'text/html; charset=UTF-8' ], [
- _html_top($self), $strref ? $$strref : (), _html_end($self)
- ] ]
+ my @x = (_html_top($self), $sref ? $$sref : (), _html_end($self));
+ my $len = 0;
+ $len += bytes::length($_) for @x;
+ [ $code, [
+ 'Content-Type' => 'text/html; charset=UTF-8',
+ 'Content-Length' => $len
+ ], \@x ];