Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
form metadata + tests
author cin
date Wed, 04 Dec 2013 17:31:53 +0400
parents 77df11605d3a
children
comparison
equal deleted inserted replaced
367:608e74bc309f 368:010ceafd0c5a
1 package IMPL::DOM::Document; 1 package IMPL::DOM::Document;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use IMPL::lang; 5 use IMPL::lang;
6 use IMPL::Const qw(:prop);
6 use IMPL::declare { 7 use IMPL::declare {
7 require => { 8 require => {
8 DOMNode => 'IMPL::DOM::Node' 9 DOMNode => 'IMPL::DOM::Node'
9 }, 10 },
10 base => [ 11 base => [
11 DOMNode => '@_' 12 DOMNode => '@_'
13 ],
14 props => [
15 schemaDocument => PROP_RW
12 ] 16 ]
13 }; 17 };
14 18
15 sub document { 19 sub document {
16 return $_[0]; 20 return $_[0];
46 } 50 }
47 51
48 { 52 {
49 my $empty; 53 my $empty;
50 sub Empty() { 54 sub Empty() {
51 return $empty ? $empty : $empty = __PACKAGE__->new(nodeName => 'Empty'); 55 return $empty ? $empty : ($empty = __PACKAGE__->new(nodeName => 'Empty'));
52 } 56 }
53 } 57 }
54 58
55 1; 59 1;
56 __END__ 60 __END__