diff Lib/IMPL/DOM/Document.pm @ 36:1828103371d0

DOM in works
author Sergey
date Fri, 20 Nov 2009 16:48:08 +0300
parents 7f00786f8210
children c2e7f7c96bcd
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Document.pm	Tue Nov 17 17:46:24 2009 +0300
+++ b/Lib/IMPL/DOM/Document.pm	Fri Nov 20 16:48:08 2009 +0300
@@ -19,6 +19,13 @@
     );
 }
 
+{
+    my $empty;
+    sub Empty() {
+        return $empty ? $empty : $empty = __PACKAGE__->new(nodeName => 'Empty');
+    }
+}
+
 1;
 __END__