--- a/Lib/IMPL/Object/ArrayObject.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Object/ArrayObject.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,19 +1,19 @@
-package IMPL::Object::ArrayObject;
-use strict;
-use warnings;
-
-use base qw(IMPL::Object::Abstract);
-
-sub new {
-    my $class = shift;
-    my $self = bless [], ref $class || $class;
-    $self->callCTOR(@_);
-    return $self;
-}
-    
-sub surrogate {
-    return bless [], ref $_[0] || $_;
-}
-
-1;
-
+package IMPL::Object::ArrayObject;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object::Abstract);
+
+sub new {
+    my $class = shift;
+    my $self = bless [], ref $class || $class;
+    $self->callCTOR(@_);
+    return $self;
+}
+    
+sub surrogate {
+    return bless [], ref $_[0] || $_;
+}
+
+1;
+