Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Schema/NodeList.pm @ 152:1e7f03414b65
DOM: schema improvements
DOM: saving to XML::Writer feature
author | wizard |
---|---|
date | Thu, 23 Sep 2010 03:58:43 +0400 |
parents | a4b0a819bbda |
children | 76515373dac0 |
comparison
equal
deleted
inserted
replaced
151:e36ffd8c29db | 152:1e7f03414b65 |
---|---|
2 use strict; | 2 use strict; |
3 use warnings; | 3 use warnings; |
4 use base qw(IMPL::DOM::Node); | 4 use base qw(IMPL::DOM::Node); |
5 | 5 |
6 use IMPL::Class::Property; | 6 use IMPL::Class::Property; |
7 use IMPL::DOM::Property qw(_dom); | |
7 require IMPL::DOM::Schema::ValidationError; | 8 require IMPL::DOM::Schema::ValidationError; |
8 | 9 |
9 our %CTOR = ( | 10 our %CTOR = ( |
10 'IMPL::DOM::Node' => sub { nodeName => 'NodeList' } | 11 'IMPL::DOM::Node' => sub { nodeName => 'NodeList' } |
11 ); | 12 ); |
12 | 13 |
13 BEGIN { | 14 BEGIN { |
14 public property messageUnexpected => prop_all; | 15 public _dom property messageUnexpected => prop_all; |
15 public property messageNodesRequired => prop_all; | 16 public _dom property messageNodesRequired => prop_all; |
16 } | 17 } |
17 | 18 |
18 sub CTOR { | 19 sub CTOR { |
19 my ($this,%args) = @_; | 20 my ($this,%args) = @_; |
20 | 21 |