--- a/Lib/IMPL/DOM/Schema/ValidationError.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/DOM/Schema/ValidationError.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,26 +1,26 @@
-package IMPL::DOM::Schema::ValidationError;
-use strict;
-use warnings;
-
-use base qw(IMPL::Object);
-use IMPL::Class::Property;
-use IMPL::Class::Property::Direct;
-use IMPL::Resources::Format qw(FormatMessage);
-
-BEGIN {
-    public _direct property Node => prop_get;
-    public _direct property Schema => prop_get;
-    public _direct property Source => prop_get;
-    public _direct property Message => prop_get;
-}
-
-sub CTOR {
-    my ($this,%args) = @_;
-    
-    $this->{$Node} = $args{Node} or die new IMPL::InvalidArgumentException("Node is a required parameter");
-    $this->{$Schema} = $args{Schema} if $args{Schema};
-    $this->{$Source} = $args{Source} if $args{Source};
-    $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message};
-}
-
-1;
+package IMPL::DOM::Schema::ValidationError;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object);
+use IMPL::Class::Property;
+use IMPL::Class::Property::Direct;
+use IMPL::Resources::Format qw(FormatMessage);
+
+BEGIN {
+    public _direct property Node => prop_get;
+    public _direct property Schema => prop_get;
+    public _direct property Source => prop_get;
+    public _direct property Message => prop_get;
+}
+
+sub CTOR {
+    my ($this,%args) = @_;
+    
+    $this->{$Node} = $args{Node} or die new IMPL::InvalidArgumentException("Node is a required parameter");
+    $this->{$Schema} = $args{Schema} if $args{Schema};
+    $this->{$Source} = $args{Source} if $args{Source};
+    $this->{$Message} = FormatMessage(delete $args{Message}, \%args) if $args{Message};
+}
+
+1;