annotate Lib/IMPL/DOM/Schema/SimpleNode.pm @ 19:1ca530e5c9c5

DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
author Sergey
date Fri, 11 Sep 2009 16:30:39 +0400
parents fffb153be599
children 267460284fb3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
1 package IMPL::DOM::Schema::SimpleNode;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
2 use strict;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
3 use warnings;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
4
19
1ca530e5c9c5 DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
Sergey
parents: 8
diff changeset
5 use base qw(IMPL::DOM::Schema::Node);
7
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
6
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
7 __PACKAGE__->PassThroughArgs;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
8
8
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
9 sub Validate {
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
10 my ($this,$node) = @_;
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
11
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
12 map $_->Validate($node), @{$this->childNodes};
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
13 }
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
14
7
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
15 1;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
16
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
17 __END__
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
18
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
19 =pod
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
20
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
21 =head1 DESCRIPTION
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
22
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
23 .
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
24 .
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
25
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
26
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
27 =cut