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

Schema in progress Added simple mailer
author wizard
date Thu, 06 May 2010 00:54:17 +0400
parents 16ada169ca75
children cf3b6ef2be22
comparison
equal deleted inserted replaced
99:6dd659f6f66c 100:df6b4f054957
15 } 15 }
16 16
17 sub CTOR { 17 sub CTOR {
18 my ($this,%args) = @_; 18 my ($this,%args) = @_;
19 19
20 $this->{$Node} = $args{Node} or die new IMPL::InvalidArgumentException("Node is a required parameter"); 20 $this->{$Node} = $args{Node};
21 $this->{$Schema} = $args{Schema} if $args{Schema}; 21 $this->{$Schema} = $args{Schema} if $args{Schema};
22 $this->{$Source} = $args{Source} if $args{Source}; 22 $this->{$Source} = $args{Source} if $args{Source};
23 $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message}; 23 $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message};
24 } 24 }
25 25