--- a/Lib/IMPL/DOM/Document.pm	Fri Aug 20 16:33:37 2010 +0400
+++ b/Lib/IMPL/DOM/Document.pm	Thu Sep 23 03:58:43 2010 +0400
@@ -31,6 +31,14 @@
     );
 }
 
+sub save {
+	my ($this,$writer) = @_;
+	
+	$writer->xmlDecl(undef,'yes');
+	$this->SUPER::save($writer);
+	$writer->end();
+}
+
 {
     my $empty;
     sub Empty() {
@@ -96,6 +104,19 @@
 
 =end code
 
+=item C< save($writer) >
+
+Сохраняет документ в виде XML узла и вызывает C<< $writer->end() >>.
+
+=over
+
+=item C<$writer>
+
+Объект с интерфейсом C<XML::Writer> который будет использован для записи
+содержимого документа
+
+=back
+
 =back
 
 =cut