annotate Lib/IMPL/DOM/Schema/SimpleNode.pm @ 18:818c74b038ae

DOM Schema + tests
author Sergey
date Thu, 10 Sep 2009 17:42:47 +0400
parents fffb153be599
children 1ca530e5c9c5
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
94d47b388442 Улучшены тесты
Sergey
parents:
diff changeset
5 use base qw(IMPL::DOM::Schema::Item);
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