Mercurial > pub > Impl
annotate Lib/IMPL/DOM/Schema/ComplexNode.pm @ 24:7f00786f8210
Первая рабочая реазизация схемы и навигаторов
| author | Sergey |
|---|---|
| date | Mon, 05 Oct 2009 00:48:49 +0400 |
| parents | 267460284fb3 |
| children | 16ada169ca75 |
| 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 | |
| 20 | 15 our %CTOR = ( |
| 16 'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'ComplexNode'; %args } | |
| 17 ); | |
| 7 | 18 |
| 19 sub _getContent { | |
| 20 $_[0]->firstChild; | |
| 21 } | |
| 22 | |
| 23 sub _setContent { | |
| 24 $_[0]->firstChild($_[1]); | |
| 25 } | |
| 26 | |
| 27 sub Validate { | |
| 28 my ($this,$node) = @_; | |
| 29 | |
|
19
1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents:
18
diff
changeset
|
30 map $_->Validate($node), @{$this->childNodes}; |
| 7 | 31 } |
| 32 | |
| 33 1; | |
| 34 | |
| 35 __END__ | |
| 36 | |
| 37 =pod | |
| 38 | |
| 39 =head1 DESCRIPTION | |
| 40 | |
| 41 . , | |
| 42 . | |
| 43 | |
| 44 .. | |
| 45 , . C<content> | |
| 46 | |
| 47 =head2 PROPERTIES | |
| 48 | |
| 49 =over | |
| 50 | |
| 51 =item C<content> | |
| 52 | |
| 53 , C<IMPL::DOM::Schema::NodeSet> | |
| 54 C<IMPL::DOM::Schema::NodeList>, . | |
| 55 . | |
| 56 | |
| 57 =back | |
| 58 | |
| 59 =cut |