comparison Lib/IMPL/DOM/Schema/NodeSet.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
53 } 53 }
54 } else { 54 } else {
55 push @errors, new IMPL::DOM::Schema::ValidationError ( 55 push @errors, new IMPL::DOM::Schema::ValidationError (
56 Source => $this, 56 Source => $this,
57 Node => $child, 57 Node => $child,
58 Schema => $info->{Schema},
59 Message => $this->messageUnexpected 58 Message => $this->messageUnexpected
60 ) 59 )
61 } 60 }
62 } 61 }
63 62
64 foreach my $info (values %nodes) { 63 foreach my $info (values %nodes) {
65 push @errors, new IMPL::DOM::Schema::ValidationError ( 64 push @errors, new IMPL::DOM::Schema::ValidationError (
66 Source => $this, 65 Source => $this,
67 Schema => $info->{Schema}, 66 Schema => $info->{Schema},
68 Node => $node,
69 Message => $this->messageMin 67 Message => $this->messageMin
70 ) if $info->{Min} > $info->{Seen}; 68 ) if $info->{Min} > $info->{Seen};
71 } 69 }
72 70
73 return @errors; 71 return @errors;