Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/AnyNode.pm @ 389:5aff94ba842f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM Schema refactoring complete
author cin
date Wed, 12 Feb 2014 13:36:24 +0400
parents 2904da230022
children
comparison
equal deleted inserted replaced
388:648dfaf642e0 389:5aff94ba842f
1 package IMPL::DOM::Schema::AnyNode; 1 package IMPL::DOM::Schema::AnyNode;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use parent qw(IMPL::DOM::Schema::Node); 5 use IMPL::declare {
6 6 base => [
7 our %CTOR = ( 7 'IMPL::DOM::Schema::Node' => sub {
8 'IMPL::DOM::Schema::Node' => sub { 8 my %args = @_;
9 my %args = @_; 9 $args{nodeName} ||= 'AnyNode';
10 $args{nodeName} ||= 'AnyNode'; 10 $args{name} = '::any';
11 $args{name} = '::any'; 11
12 12 %args;
13 %args; 13 }
14 } 14 ]
15 ); 15 };
16 16
17 1; 17 1;
18 18
19 __END__ 19 __END__
20 20