如何将childNode添加到XML::LibXML::Node子节点的开头？

问题背景 #

根据XML::LibXML::Node手册内容：

$ man XML::LibXML::Node
  appendChild
     $childnode = $node->appendChild( $childnode );

   The function will add the $childnode
   to the end of $node's children.

appendChild方法会将$childnode添加到$node子节点的末尾，但需要实现将$childnode添加到$node子节点的开头，且Stack Overflow上的JavaScript方案不适用于LIBXML。

解决方案 #

方法一：使用insertBefore兼容低版本 #

通过获取目标节点的第一个子节点，将新节点插入到其前方；若目标节点无任何子节点，直接追加即可（此时唯一子节点自然是开头）：

# 获取$node的第一个子节点
my $first_child = $node->firstChild();

if ($first_child) {
    # 插入到第一个子节点之前
    $node->insertBefore($childnode, $first_child);
} else {
    # 无子女节点时直接追加
    $node->appendChild($childnode);
}

方法二：使用prependChild（XML::LibXML 2.0100+） #

从XML::LibXML 2.0100版本开始，官方新增了prependChild方法，可直接将节点添加到子节点列表的开头，无需手动判断节点状态：

$node->prependChild($childnode);

内容的提问来源于stack exchange，提问作者Dan Jacobson