comparison Lib/IMPL/DOM/Schema/SimpleNode.pm @ 8:fffb153be599

DOM Schema
author Sergey
date Tue, 25 Aug 2009 17:36:37 +0400
parents 94d47b388442
children 1ca530e5c9c5
comparison
equal deleted inserted replaced
7:94d47b388442 8:fffb153be599
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Schema::Item); 5 use base qw(IMPL::DOM::Schema::Item);
6 6
7 __PACKAGE__->PassThroughArgs; 7 __PACKAGE__->PassThroughArgs;
8
9 sub Validate {
10 my ($this,$node) = @_;
11
12 map $_->Validate($node), @{$this->childNodes};
13 }
8 14
9 1; 15 1;
10 16
11 __END__ 17 __END__
12 18