sub HTML::Element::innerHTML {
    my( $self ) = @_;
    return join '', map { ref $_? $_->as_HTML : $_ } $self->content_list;
}