Mercurial > pub > Impl
annotate Lib/IMPL/DOM/Schema/ComplexNode.pm @ 19:1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
| author | Sergey |
|---|---|
| date | Fri, 11 Sep 2009 16:30:39 +0400 |
| parents | 818c74b038ae |
| children | 267460284fb3 |
| rev | line source |
|---|---|
| 7 | 1 package IMPL::DOM::Schema::ComplexNode; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 18 | 5 use base qw(IMPL::DOM::Schema::Node); |
| 7 | 6 use IMPL::Class::Property; |
| 7 | |
| 8 BEGIN { | |
| 9 public property content => { | |
| 10 get => \&_getContent, | |
| 11 set => \&_setContent | |
| 12 } | |
| 13 } | |
| 14 | |
| 15 __PACKAGE__->PassThroughArgs; | |
| 16 | |
| 17 sub _getContent { | |
| 18 $_[0]->firstChild; | |
| 19 } | |
| 20 | |
| 21 sub _setContent { | |
| 22 $_[0]->firstChild($_[1]); | |
| 23 } | |
| 24 | |
| 25 sub Validate { | |
| 26 my ($this,$node) = @_; | |
| 27 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
28 map $_->Validate($node), @{$this->childNodes}; |
| 7 | 29 } |
| 30 | |
| 31 1; | |
| 32 | |
| 33 __END__ | |
| 34 | |
| 35 =pod | |
| 36 | |
| 37 =head1 DESCRIPTION | |
| 38 | |
| 39 . , | |
| 40 . | |
| 41 | |
| 42 .. | |
| 43 , . C<content> | |
| 44 | |
| 45 =head2 PROPERTIES | |
| 46 | |
| 47 =over | |
| 48 | |
| 49 =item C<content> | |
| 50 | |
| 51 , C<IMPL::DOM::Schema::NodeSet> | |
| 52 C<IMPL::DOM::Schema::NodeList>, . | |
| 53 . | |
| 54 | |
| 55 =back | |
| 56 | |
| 57 =cut |