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