--- a/Lib/IMPL/DOM/Schema/SimpleType.pm	Fri May 07 08:05:23 2010 +0400
+++ b/Lib/IMPL/DOM/Schema/SimpleType.pm	Fri May 07 18:17:40 2010 +0400
@@ -8,6 +8,7 @@
 
 BEGIN {
     public _direct property nativeType => prop_get;
+    public _direct property messageWrongType => prop_get;
 }
 
 our %CTOR = (
@@ -25,11 +26,55 @@
     my ($this,%args) = @_;
     
     $this->{$nativeType} = $args{nativeType};
+    $this->{$messageWrongType} = $args{messageWrongType} || "A simple node '%Node.path%' is expected to be %Schema.nativeType%"; 
+}
+
+sub Validate {
+	my ($this, $node) = @_;
+	
+	if ($this->{$nativeType}) {
+		return new IMPL::DOM::Schema::ValidationError(
+			Node => $node,
+			Source => $this,
+			Schema => $this,
+			Message => $this->messageWrongType
+		) unless $node->isa($this->{$nativeType});
+	}
+	return $this->SUPER::Validate($node);
 }
 
 sub qname {
-	$_[0]->nodeName.'[name='.$_[0]->type.']';
+	$_[0]->nodeName.'[type='.$_[0]->type.']';
 }
 
+1;
 
-1;
+__END__
+
+=pod
+
+=head1 NAME
+
+C<IMPL::DOM::Schema::SimpleType> - тип для простых узлов.
+
+=head1 DESCRIPTION
+
+Используется для описания простых узлов, которые можно отобразить в узлы
+определенного типа при построении DOM документа.
+
+=head1 MEMBERS
+
+=over
+
+=item C<nativeType>
+
+Имя класса который будет представлять узел в DOM модели.
+
+=item C<messageWrongType>
+
+Формат сообщения которое будет выдано, если узел в дом модели не будет
+соответствовать свойству C<nativeType>.
+
+=back
+
+=cut