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