--- a/Lib/IMPL/Object/Accessor.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/Object/Accessor.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,15 +1,15 @@
-package IMPL::Object::Accessor;
-use strict;
-use base qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
-
-sub new {
-    my $class = shift;
-    my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
-    $self->callCTOR(@_);
-    return $self;
-}
-
-sub surrogate {
-    $_[0]->Class::Accessor::new;
-}
-1;
+package IMPL::Object::Accessor;
+use strict;
+use base qw(IMPL::Object::Abstract Class::Accessor IMPL::Class::Meta);
+
+sub new {
+    my $class = shift;
+    my $self = $class->Class::Accessor::new( @_ == 1 && ref $_[0] && UNIVERSAL::isa($_[0],'HASH') ? $_[0] : ());
+    $self->callCTOR(@_);
+    return $self;
+}
+
+sub surrogate {
+    $_[0]->Class::Accessor::new;
+}
+1;