diff 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
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleNode.pm	Mon Aug 24 01:05:34 2009 +0400
+++ b/Lib/IMPL/DOM/Schema/SimpleNode.pm	Tue Aug 25 17:36:37 2009 +0400
@@ -6,6 +6,12 @@
 
 __PACKAGE__->PassThroughArgs;
 
+sub Validate {
+    my ($this,$node) = @_;
+    
+    map $_->Validate($node), @{$this->childNodes};    
+}
+
 1;
 
 __END__