annotate Lib/IMPL/DOM/Schema/SimpleNode.pm @ 41:c442eb67fa22

parser in progress
author Sergey
date Mon, 21 Dec 2009 17:40:09 +0300
parents 267460284fb3
children 16ada169ca75
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
20
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
7 our %CTOR = (
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
8 'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args}
267460284fb3 DOM Schema
Sergey
parents: 19
diff changeset
9 );
7
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
10
8
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
11 sub Validate {
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
12 my ($this,$node) = @_;
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
13
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
14 map $_->Validate($node), @{$this->childNodes};
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
15 }
fffb153be599 DOM Schema
Sergey
parents: 7
diff changeset
16
7
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
17 1;
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
18
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
19 __END__
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
20
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
21 =pod
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
22
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
23 =head1 DESCRIPTION
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
24
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
25 .
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
26 .
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
27
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
28
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
29 =cut