|
49
|
1 package IMPL::DOM::Schema::ValidationError;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use base qw(IMPL::Object);
|
|
|
6 use IMPL::Class::Property;
|
|
|
7 use IMPL::Class::Property::Direct;
|
|
|
8 use IMPL::Resources::Format qw(FormatMessage);
|
|
|
9
|
|
|
10 BEGIN {
|
|
|
11 public _direct property Node => prop_get;
|
|
|
12 public _direct property Schema => prop_get;
|
|
|
13 public _direct property Source => prop_get;
|
|
102
|
14 public _direct property Parent => prop_get;
|
|
49
|
15 public _direct property Message => prop_get;
|
|
|
16 }
|
|
|
17
|
|
|
18 sub CTOR {
|
|
|
19 my ($this,%args) = @_;
|
|
|
20
|
|
100
|
21 $this->{$Node} = $args{Node};
|
|
49
|
22 $this->{$Schema} = $args{Schema} if $args{Schema};
|
|
|
23 $this->{$Source} = $args{Source} if $args{Source};
|
|
102
|
24 $this->{$Parent} = $args{Parent} if $args{Parent};
|
|
49
|
25 $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message};
|
|
|
26 }
|
|
|
27
|
|
|
28 1;
|
