diff Lib/IMPL/DOM/Schema/SimpleType.pm @ 102:cf3b6ef2be22

Schema beta version
author wizard
date Fri, 07 May 2010 08:05:23 +0400
parents 16ada169ca75
children c289ed9662ca
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleType.pm	Thu May 06 17:55:59 2010 +0400
+++ b/Lib/IMPL/DOM/Schema/SimpleType.pm	Fri May 07 08:05:23 2010 +0400
@@ -27,5 +27,9 @@
     $this->{$nativeType} = $args{nativeType};
 }
 
+sub qname {
+	$_[0]->nodeName.'[name='.$_[0]->type.']';
+}
+
 
 1;