Mercurial > pub > Impl
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 |
| rev | line source |
|---|---|
| 7 | 1 package IMPL::DOM::Schema::SimpleNode; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 | |
| 5 use base qw(IMPL::DOM::Schema::Item); | |
| 6 | |
| 7 __PACKAGE__->PassThroughArgs; | |
| 8 | |
| 8 | 9 sub Validate { |
| 10 my ($this,$node) = @_; | |
| 11 | |
| 12 map $_->Validate($node), @{$this->childNodes}; | |
| 13 } | |
| 14 | |
| 7 | 15 1; |
| 16 | |
| 17 __END__ | |
| 18 | |
| 19 =pod | |
| 20 | |
| 21 =head1 DESCRIPTION | |
| 22 | |
| 23 . | |
| 24 . | |
| 25 | |
| 26 | |
| 27 =cut |