Quickly create a new element using XML::LibXML

libxml_element.pl

sub element {
    my $name = shift;
    my $element = XML::LibXML::Element->new($name);
    my $next = shift;
    if (ref $next eq ref {}){
        foreach my $attrName (keys %$next){
            $element->setAttribute ($attrName, $next->{$attrName});
        }
        $next = shift;
    }
    if (defined $next) {
        my $addChild = sub {
            my $child = shift;
            unless (ref $child){
                $child = XML::LibXML::Text->new($child)
            }
            $element->addChild($child)
        };
        if (ref $next eq ref []){
            $addChild->($_) for @$next;
        }
        else{
            $addChild->($next)
        }
    }
    return $element;
}