insertAfter for MSXML

insertAfter.pl

use Win32::OLE qw(in with);
use strict;

use constant MSXMLDOM => "MSXML2.DOMDOCUMENT.4.0";

sub insertAfter{
    my($newElement, $targetElement) = @_;
    # my $lastChild = $parent->{lastChild};

    # Next line can NOT work in Perl.
    # if($lastChild && $lastChild == $targetElement) 

    if (!$targetElement->nextSibling())

    {
        $parent->appendChild($newElement);
    }
    else
    {
        $parent->insertBefore($newElement,$targetElement->nextSibling());
    }
}