$self->{_HXS_parent} = $context eq 'Document' ? XML::LibXML::Document->new($version,$encoding) : XML::LibXML::DocumentFragment->new(); #### sub output_element { my ( $self, $tag, $attributes, $content ) = @_; my $element = XML::LibXML::Element->new( $tag ); for my $key ( keys %$attributes ) { $element->setAttribute( $key, $attributes->{$key} ); } $self->{ _HXS_parent }->append_child( $element ); }