Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/ValidationError.pm @ 102:cf3b6ef2be22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema beta version
author wizard
date Fri, 07 May 2010 08:05:23 +0400
parents df6b4f054957
children 196bf443b5e1
comparison
equal deleted inserted replaced
101:d8dc6cad3f55 102:cf3b6ef2be22
9 9
10 BEGIN { 10 BEGIN {
11 public _direct property Node => prop_get; 11 public _direct property Node => prop_get;
12 public _direct property Schema => prop_get; 12 public _direct property Schema => prop_get;
13 public _direct property Source => prop_get; 13 public _direct property Source => prop_get;
14 public _direct property Parent => prop_get;
14 public _direct property Message => prop_get; 15 public _direct property Message => prop_get;
15 } 16 }
16 17
17 sub CTOR { 18 sub CTOR {
18 my ($this,%args) = @_; 19 my ($this,%args) = @_;
19 20
20 $this->{$Node} = $args{Node}; 21 $this->{$Node} = $args{Node};
21 $this->{$Schema} = $args{Schema} if $args{Schema}; 22 $this->{$Schema} = $args{Schema} if $args{Schema};
22 $this->{$Source} = $args{Source} if $args{Source}; 23 $this->{$Source} = $args{Source} if $args{Source};
24 $this->{$Parent} = $args{Parent} if $args{Parent};
23 $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message}; 25 $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message};
24 } 26 }
25 27
26 1; 28 1;