Mercurial > pub > Impl
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 |
