--- a/Lib/IMPL/DOM/Document.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/IMPL/DOM/Document.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,51 +1,51 @@
-package IMPL::DOM::Document;
-use strict;
-use warnings;
-
-use base qw(IMPL::DOM::Node);
-
-__PACKAGE__->PassThroughArgs;
-
-sub document {
-    return $_[0];
-}
-
-sub Create {
-    my ($this,$nodeName,$class,$refProps) = @_;
-    
-    $refProps ||= {};
-    
-    delete $refProps->{nodeName};
-    
-    return $class->new(
-        nodeName => $nodeName,
-        document => $this,
-        %$refProps
-    );
-}
-
-{
-    my $empty;
-    sub Empty() {
-        return $empty ? $empty : $empty = __PACKAGE__->new(nodeName => 'Empty');
-    }
-}
-
-1;
-__END__
-
-=pod
-
-=head1 DESCRIPTION
-
-=head1 METHODS
-
-=over
-
-=item C<<$doc->Create>>
-
-Создает узел определеннго типа с определенным именем и свойствами.
-
-=back
-
-=cut
\ No newline at end of file
+package IMPL::DOM::Document;
+use strict;
+use warnings;
+
+use base qw(IMPL::DOM::Node);
+
+__PACKAGE__->PassThroughArgs;
+
+sub document {
+    return $_[0];
+}
+
+sub Create {
+    my ($this,$nodeName,$class,$refProps) = @_;
+    
+    $refProps ||= {};
+    
+    delete $refProps->{nodeName};
+    
+    return $class->new(
+        nodeName => $nodeName,
+        document => $this,
+        %$refProps
+    );
+}
+
+{
+    my $empty;
+    sub Empty() {
+        return $empty ? $empty : $empty = __PACKAGE__->new(nodeName => 'Empty');
+    }
+}
+
+1;
+__END__
+
+=pod
+
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=over
+
+=item C<<$doc->Create>>
+
+Создает узел определеннго типа с определенным именем и свойствами.
+
+=back
+
+=cut