sub XML::LibXML::Node::detach { my( $self ) = @); $self->parent->removeChild( $self ); }