Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/Node.pm @ 100:df6b4f054957

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema in progress Added simple mailer
author wizard
date Thu, 06 May 2010 00:54:17 +0400
parents 16ada169ca75
children c289ed9662ca
comparison
equal deleted inserted replaced
99:6dd659f6f66c 100:df6b4f054957
10 BEGIN { 10 BEGIN {
11 public _direct property minOccur => prop_all; 11 public _direct property minOccur => prop_all;
12 public _direct property maxOccur => prop_all; 12 public _direct property maxOccur => prop_all;
13 public _direct property type => prop_all; 13 public _direct property type => prop_all;
14 public _direct property name => prop_all; 14 public _direct property name => prop_all;
15 public _direct property display => prop_all;
16 public _direct property display_no => prop_all;
17 public _direct property display_blame => prop_all;
15 } 18 }
16 19
17 our %CTOR = ( 20 our %CTOR = (
18 'IMPL::DOM::Node' => sub {my %args = @_; $args{nodeName} ||= 'Node'; %args} 21 'IMPL::DOM::Node' => sub {my %args = @_; $args{nodeName} ||= 'Node'; %args}
19 ); 22 );
23 26
24 $this->{$minOccur} = defined $args{minOccur} ? $args{minOccur} : 1; 27 $this->{$minOccur} = defined $args{minOccur} ? $args{minOccur} : 1;
25 $this->{$maxOccur} = defined $args{maxOccur} ? $args{maxOccur} : 1; 28 $this->{$maxOccur} = defined $args{maxOccur} ? $args{maxOccur} : 1;
26 $this->{$type} = $args{type}; 29 $this->{$type} = $args{type};
27 $this->{$name} = $args{name} or die new IMPL::InvalidArgumentException('Argument is required','name'); 30 $this->{$name} = $args{name} or die new IMPL::InvalidArgumentException('Argument is required','name');
31 $this->{$display} = $args{display};
32 $this->{$display_no} = $args{display_no};
33 $this->{$display_blame} = $args{display_blame};
28 } 34 }
29 35
30 sub Validate { 36 sub Validate {
31 my ($this,$node) = @_; 37 my ($this,$node) = @_;
32 38