annotate Lib/IMPL/DOM/Node.pm @ 24:7f00786f8210

Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents fafe56cfcd69
children dd4d72600c69
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
1 package IMPL::DOM::Node;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
2 use strict;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
3 use warnings;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
4
11
75980091813b DOM и навигация
Sergey
parents: 7
diff changeset
5 use base qw(IMPL::Object);
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
6
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
7 use IMPL::Object::List;
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
8 use IMPL::Class::Property;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
9 use IMPL::Class::Property::Direct;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
10 use Scalar::Util qw(weaken);
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
11
1
3b418b134d8c ORM in progress
Sergey
parents: 0
diff changeset
12 use IMPL::Exception;
3b418b134d8c ORM in progress
Sergey
parents: 0
diff changeset
13
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
14 BEGIN {
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
15 public _direct property nodeName => prop_get | owner_set;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
16 public _direct property isComplex => { get => \&_getIsComplex } ;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
17 public _direct property nodeValue => prop_all;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
18 public _direct property childNodes => { get => \&_getChildNodes };
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
19 public _direct property parentNode => prop_get ;
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
20 public _direct property rootNode => { get => \&_getRootNode};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
21 private _direct property _propertyMap => prop_all ;
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
22 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
23
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
24 sub CTOR {
11
75980091813b DOM и навигация
Sergey
parents: 7
diff changeset
25 my ($this,%args) = @_;
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
26
11
75980091813b DOM и навигация
Sergey
parents: 7
diff changeset
27 $this->nodeName($args{nodeName}) or die new IMPL::InvalidArgumentException("A name is required");
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
28 $this->nodeValue($args{nodeValue});
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
29 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
30
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
31 sub insertNode {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
32 my ($this,$node,$pos) = @_;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
33
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
34 die new IMPL::InvalidOperationException("You can't insert the node to itselft") if $this == $node;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
35
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
36 $node->{$parentNode}->removeNode($node) if ($node->{$parentNode});
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
37
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
38 $this->childNodes->InsertAt($pos,$node);
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
39
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
40 $node->_setParent( $this );
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
41
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
42 return $node;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
43 }
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
44
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
45 sub appendNode {
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
46 my ($this,$node) = @_;
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
47
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
48 die new IMPL::InvalidOperationException("You can't insert the node to itselft") if $this == $node;
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
49
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
50 $node->{$parentNode}->removeNode($node) if ($node->{$parentNode});
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
51
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
52 my $children = $this->childNodes;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
53 $children->Append($node);
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
54
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
55 $node->_setParent( $this );
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
56
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
57 return $node;
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
58 }
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
59
16
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
60 sub appendRange {
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
61 my ($this,@range) = @_;
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
62
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
63 die new IMPL::InvalidOperationException("You can't insert the node to itselft") if grep $_ == $this, @range;
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
64
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
65 foreach my $node (@range) {
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
66 $node->{$parentNode}->removeNode($node) if ($node->{$parentNode});
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
67 $node->_setParent( $this );
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
68 }
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
69
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
70 $this->childNodes->Append(@range);
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
71
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
72 return $this;
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
73 }
75d55f4ee263 Окончательная концепция описания схем и построения DOM документов
Sergey
parents: 14
diff changeset
74
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
75 sub _getChildNodes {
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
76 my ($this) = @_;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
77
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
78 $this->{$childNodes} = new IMPL::Object::List() unless $this->{$childNodes};
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
79 return $this->{$childNodes};
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
80 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
81
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
82 sub removeNode {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
83 my ($this,$node) = @_;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
84
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
85 if ($this == $node->{$parentNode}) {
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
86 $this->childNodes->RemoveItem($node);
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
87 $node->_setParent(undef);
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
88 return $node;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
89 } else {
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
90 die new IMPL::InvalidOperationException("The specified node isn't belong to this node");
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
91 }
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
92 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
93
7
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
94 sub replaceNodeAt {
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
95 my ($this,$index,$node) = @_;
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
96
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
97 my $nodeOld = $this->childNodes->[$index];
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
98
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
99 die new IMPL::InvalidOperationException("You can't insert the node to itselft") if $this == $node;
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
100
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
101 # unlink node from previous parent
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
102 $node->{$parentNode}->removeNode($node) if ($node->{$parentNode});
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
103
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
104 # replace (or set) old node
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
105 $this->childNodes->[$index] = $node;
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
106
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
107 # set new parent
7
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
108 $node->_setParent( $this );
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
109
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
110 # unlink old node if we have one
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
111 $nodeOld->_setParent(undef) if $nodeOld;
7
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
112
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
113 # return old node
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
114 return $nodeOld;
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
115 }
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
116
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
117 sub removeAt {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
118 my ($this,$pos) = @_;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
119
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
120 if ( my $node = $this->childNodes->RemoveAt($pos) ) {
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
121 $node->_setParent(undef);
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
122 return $node;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
123 } else {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
124 return undef;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
125 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
126 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
127
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
128 sub removeLast {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
129 my ($this) = @_;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
130
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
131 if ( my $node = $this->{$childNodes} ? $this->{$childNodes}->RemoveLast() : undef) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
132 $node->_setParent(undef);
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
133 return $node;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
134 } else {
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
135 return undef;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
136 }
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
137 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
138
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
139 sub removeSelected {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
140 my ($this,$query) = @_;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
141
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
142 my @newSet;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
143 my @result;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
144
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
145 if (ref $query eq 'CODE') {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
146 &$query($_) ? push @result, $_ : push @newSet, $_ foreach @{$this->childNodes};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
147 } elsif (defined $query) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
148 $_->nodeName eq $query ? push @result, $_ : push @newSet, $_ foreach @{$this->childNodes};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
149 } else {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
150 my $children = $this->childNodes;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
151 $_->_setParent(undef) foreach @$children;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
152 delete $this->{$childNodes};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
153 return wantarray ? @$children : $children;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
154 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
155
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
156 $_->_setParent(undef) foreach @result;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
157
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
158 $this->{$childNodes} = @newSet ? bless \@newSet ,'IMPL::Object::List' : undef;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
159
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
160 return wantarray ? @result : \@result;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
161 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
162
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
163 sub selectNodes {
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
164 my ($this,$query) = @_;
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
165
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
166 my @result;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
167
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
168 if (ref $query eq 'CODE') {
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
169 @result = grep &$query($_), @{$this->childNodes};
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
170 } elsif (ref $query eq 'ARRAY' ) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
171 my %keys = map (($_,1),@$query);
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
172 @result = grep $keys{$_->nodeName}, @{$this->childNodes};
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
173 } elsif (defined $query) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
174 @result = grep $_->nodeName eq $query, @{$this->childNodes};
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
175 } else {
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
176 if (wantarray) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
177 return @{$this->childNodes};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
178 } else {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
179 @result = $this->childNodes;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
180 return \@result;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
181 }
14
65a7bb156fb7 Дом модель и схема
Sergey
parents: 11
diff changeset
182 }
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
183
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
184 return wantarray ? @result : \@result;
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
185 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
186
7
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
187 sub firstChild {
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
188 @_ >=2 ? $_[0]->replaceNodeAt(0,$_[1]) : $_[0]->childNodes->[0];
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
189 }
94d47b388442 Улучшены тесты
Sergey
parents: 6
diff changeset
190
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
191 sub _getIsComplex {
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
192 $_[0]->childNodes->Count ? 1 : 0;
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
193 }
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
194
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
195 sub _getRootNode {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
196 $_[0]->{$rootNode} || $_[0];
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
197 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
198
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
199 sub _updateRootRefs {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
200 my ($this) = @_;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
201
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
202 if ( my $newRoot = $this->{$parentNode} ? $this->{$parentNode}->rootNode : undef) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
203 if ($this->{$rootNode} ? $this->{$rootNode} != $newRoot : 1 ) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
204 $this->{$rootNode} = $newRoot;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
205 weaken($this->{$rootNode});
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
206 if ($this->{$childNodes}) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
207 $_->_updateRootRefs foreach @{$this->{$childNodes}};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
208 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
209 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
210 } elsif($this->{$rootNode}) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
211 delete $this->{$rootNode};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
212 if ($this->{$childNodes}) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
213 $_->_updateRootRefs foreach @{$this->{$childNodes}};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
214 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
215 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
216 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
217
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
218 sub _setParent {
11
75980091813b DOM и навигация
Sergey
parents: 7
diff changeset
219 my ($this,$node) = @_;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
220
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
221
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
222 if (($node || 0) != ($this->{$parentNode} || 0)) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
223 if ($node) {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
224 $this->{$parentNode} = $node;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
225 # prevent from creating cyclicreferences
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
226 weaken($this->{$parentNode});
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
227 } else {
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
228 delete $this->{$parentNode};
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
229 }
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
230 $this->_updateRootRefs;
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
231 }
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
232 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
233
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
234 sub text {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
235 my ($this) = @_;
4
e59f44f75f20 DOM - в разработке
Sergey
parents: 1
diff changeset
236
18
818c74b038ae DOM Schema + tests
Sergey
parents: 16
diff changeset
237 join '', $this->nodeValue || '', map $_->nodeValue || '', @{$this->childNodes};
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
238 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
239
21
fafe56cfcd69 temp commit
Sergey
parents: 18
diff changeset
240 sub nodeProperty {
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
241 my $this = shift;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
242 my $name = shift;
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
243
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
244 if (@_) {
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
245 # set
6
e2cd73ccc5bd DOM In development
Sergey
parents: 4
diff changeset
246 return $this->{$_propertyMap}{$name} = shift;
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
247 } else {
6
e2cd73ccc5bd DOM In development
Sergey
parents: 4
diff changeset
248 return $this->{$_propertyMap}{$name};
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
249 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
250 }
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
251
24
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
252 sub qname {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
253 $_[0]->{$nodeName};
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
254 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
255
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
256 sub path {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
257 my ($this) = @_;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
258
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
259 if ($this->parentNode) {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
260 return $this->parentNode->path.'.'.$this->qname;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
261 } else {
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
262 return $this->qname;
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
263 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
264 }
7f00786f8210 Первая рабочая реазизация схемы и навигаторов
Sergey
parents: 21
diff changeset
265
0
03e58a454b20 Создан репозитарий
Sergey
parents:
diff changeset
266 1;