diff Lib/IMPL/DOM/Schema/ComplexType.pm @ 20:267460284fb3

DOM Schema
author Sergey
date Tue, 22 Sep 2009 17:17:38 +0400
parents 1ca530e5c9c5
children 16ada169ca75
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/ComplexType.pm	Fri Sep 11 16:30:39 2009 +0400
+++ b/Lib/IMPL/DOM/Schema/ComplexType.pm	Tue Sep 22 17:17:38 2009 +0400
@@ -13,9 +13,10 @@
 our %CTOR = (
     'IMPL::DOM::Schema::ComplexNode' => sub {
         my %args = @_;
-        $args{nodeName} = 'ComplexNode';
+        $args{nodeName} ||= 'ComplexType';
         $args{minOccur} = 0;
         $args{maxOccur} = 'unbounded';
+        $args{name} ||= 'ComplexType';
         %args
     }
 );