Mercurial > pub > Impl
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')); } }