pub/Impl: Lib/IMPL/DOM/Node.pm comparison

DOM: schema improvements DOM: saving to XML::Writer feature

comparison

equal deleted inserted replaced

-:e36ffd8c29db
+:1e7f03414b65
 sub firstChild {
 @_ >=2 ? $_[0]->replaceNodeAt(0,$_[1]) : $_[0]->childNodes->[0];
 }
 sub _getIsComplex {
-$_[0]->childNodes->Count ? 1 : 0;
+($_[0]->{$childNodes} and $_[0]->{$childNodes}->Count) ? 1 : 0;
 }
 sub _updateDocRefs {
 my ($this) = @_;
 	my %props = map {$_->Name, 1} $this->get_meta(typeof IMPL::Class::PropertyInfo, sub { $_->Attributes->{domProperty}},1);
 	return (keys %props,keys %{$this->{$_propertyMap}});
 }
+sub save {
+	my ($this,$writer) = @_;
+	if ( not ( $this->isComplex or defined $this->{$nodeValue} ) ) {
+		$writer->emptyTag(
+			$this->{$nodeName},
+			map {
+				$_,
+				$this->nodeProperty($_)
+			} grep defined $this->nodeProperty($_), $this->listProperties
+		);
+	} else {
+		$writer->startTag(
+			$this->{$nodeName},
+			map {
+				$_,
+				$this->nodeProperty($_)
+			} grep defined $this->nodeProperty($_), $this->listProperties
+		);
+		$writer->characters($this->{$nodeValue}) if $this->{$nodeValue};
+		$_->save($writer) foreach $this->childNodes;
+		$writer->endTag($this->{$nodeName});
+	}
+}
 sub qname {
 $_[0]->{$nodeName};
 }
 sub path {

Mercurial > pub > Impl