Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/SimpleNode.pm	Fri Sep 11 16:30:39 2009 +0400
+++ b/Lib/IMPL/DOM/Schema/SimpleNode.pm	Tue Sep 22 17:17:38 2009 +0400
@@ -4,7 +4,9 @@
 
 use base qw(IMPL::DOM::Schema::Node);
 
-__PACKAGE__->PassThroughArgs;
+our %CTOR = (
+    'IMPL::DOM::Schema::Node' => sub {my %args = @_; $args{nodeName} ||= 'SimpleNode'; %args}
+);  
 
 sub Validate {
     my ($this,$node) = @_;