comparison Lib/IMPL/DOM/Schema/NodeList.pm @ 100:df6b4f054957

Schema in progress Added simple mailer
author wizard
date Thu, 06 May 2010 00:54:17 +0400
parents 16ada169ca75
children cf3b6ef2be22
comparison
equal deleted inserted replaced
99:6dd659f6f66c 100:df6b4f054957
78 # no more children left (but may be should :) 78 # no more children left (but may be should :)
79 while ($info) { 79 while ($info) {
80 return new IMPL::DOM::Schema::ValidationError ( 80 return new IMPL::DOM::Schema::ValidationError (
81 Error => 1, 81 Error => 1,
82 Message => $this->messageNodesRequired, 82 Message => $this->messageNodesRequired,
83 Node => $node,
84 Source => $this, 83 Source => $this,
85 Schema => $info->{Schema} 84 Schema => $info->{Schema}
86 ) if $info->{Seen} < $info->{Min}; 85 ) if $info->{Seen} < $info->{Min};
87 86
88 $info = shift @nodes; 87 $info = shift @nodes;