diff Lib/IMPL/DOM/Schema/ComplexNode.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/ComplexNode.pm	Fri Sep 11 16:30:39 2009 +0400
+++ b/Lib/IMPL/DOM/Schema/ComplexNode.pm	Tue Sep 22 17:17:38 2009 +0400
@@ -12,7 +12,9 @@
     }
 }
 
-__PACKAGE__->PassThroughArgs;
+our %CTOR = (
+    'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'ComplexNode'; %args }
+);
 
 sub _getContent {
     $_[0]->firstChild;