Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/Property.pm @ 238:b8c724f6de36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM model refactoring TT view refactoring, controls are no longer derived from DOM nodes bugfixes
author sergey
date Tue, 16 Oct 2012 01:33:06 +0400
parents 2904da230022
children 0f59b2de72af
comparison
equal deleted inserted replaced
237:61db68166c37 238:b8c724f6de36
19 my %args = @_; 19 my %args = @_;
20 20
21 $args{maxOccur} = 1; 21 $args{maxOccur} = 1;
22 $args{minOccur} = delete $args{optional} ? 0 : 1; 22 $args{minOccur} = delete $args{optional} ? 0 : 1;
23 $args{nodeName} ||= 'Property'; 23 $args{nodeName} ||= 'Property';
24 $args{messageInflateError} ||= "Failed to inflate a property '%Schema.name%' of a node '%Node.path%': %Error.Message%"; 24 $args{messageInflateError} ||= "Failed to inflate a property '%schema.name%' of a node '%node.path%': %error.message%";
25 25
26 return %args; 26 return %args;
27 } 27 }
28 ); 28 );
29 29
30 sub CTOR { 30 sub CTOR {
31 my ($this,%args) = @_; 31 my ($this,%args) = @_;
32 32
33 $this->messageRequired($args{messageRequired} || 'A property %Schema.name% is required in the %Node.qname%'); 33 $this->messageRequired($args{messageRequired} || 'A property %schema.name% is required in the %node.qname%');
34 } 34 }
35 35
36 sub Validate { 36 sub Validate {
37 my ($this,$node,$ctx) = @_; 37 my ($this,$node,$ctx) = @_;
38 38