diff Lib/IMPL/DOM/Document.pm @ 368:010ceafd0c5a

form metadata + tests
author cin
date Wed, 04 Dec 2013 17:31:53 +0400
parents 77df11605d3a
children
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Document.pm	Tue Dec 03 17:55:36 2013 +0400
+++ b/Lib/IMPL/DOM/Document.pm	Wed Dec 04 17:31:53 2013 +0400
@@ -3,12 +3,16 @@
 use warnings;
 
 use IMPL::lang;
+use IMPL::Const qw(:prop);
 use IMPL::declare {
     require => {
         DOMNode => 'IMPL::DOM::Node'
     },
     base => [
         DOMNode => '@_'
+    ],
+    props => [
+    	schemaDocument => PROP_RW
     ]
 };
 
@@ -48,7 +52,7 @@
 {
     my $empty;
     sub Empty() {
-        return $empty ? $empty : $empty = __PACKAGE__->new(nodeName => 'Empty');
+        return $empty ? $empty : ($empty = __PACKAGE__->new(nodeName => 'Empty'));
     }
 }