comparison Lib/IMPL/DOM/Schema/NodeSet.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 4
5 use base qw(IMPL::DOM::Node); 5 use base qw(IMPL::DOM::Node);
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 use IMPL::DOM::Property qw(_dom);
7 8
8 our %CTOR = ( 9 our %CTOR = (
9 'IMPL::DOM::Node' => sub { nodeName => 'NodeSet' } 10 'IMPL::DOM::Node' => sub { nodeName => 'NodeSet' }
10 ); 11 );
11 12
12 BEGIN { 13 BEGIN {
13 public property messageUnexpected => prop_all; 14 public _dom property messageUnexpected => prop_all;
14 public property messageMax => prop_all; 15 public _dom property messageMax => prop_all;
15 public property messageMin => prop_all; 16 public _dom property messageMin => prop_all;
16 } 17 }
17 18
18 sub CTOR { 19 sub CTOR {
19 my ($this,%args) = @_; 20 my ($this,%args) = @_;
20 21