Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/SwitchNode.pm @ 152:1e7f03414b65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM: schema improvements DOM: saving to XML::Writer feature
author wizard
date Thu, 23 Sep 2010 03:58:43 +0400
parents a4b0a819bbda
children 76515373dac0
comparison
equal deleted inserted replaced
151:e36ffd8c29db 152:1e7f03414b65
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Schema::AnyNode); 5 use base qw(IMPL::DOM::Schema::AnyNode);
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 require IMPL::DOM::Schema::ValidationError; 7 require IMPL::DOM::Schema::ValidationError;
8 use IMPL::DOM::Property qw(_dom);
8 9
9 our %CTOR = ( 10 our %CTOR = (
10 'IMPL::DOM::Schema::AnyNode' => sub { 11 'IMPL::DOM::Schema::AnyNode' => sub {
11 my %args = @_; 12 my %args = @_;
12 13
15 %args; 16 %args;
16 } 17 }
17 ); 18 );
18 19
19 BEGIN { 20 BEGIN {
20 public property messageNoMatch => prop_all; 21 public _dom property messageNoMatch => prop_all;
21 } 22 }
22 23
23 sub CTOR { 24 sub CTOR {
24 my ($this,%args) = @_; 25 my ($this,%args) = @_;
25 26