--- a/Lib/IMPL/DOM/Document.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/DOM/Document.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -14,8 +14,8 @@
     my ($this,$nodeName,$class,$refProps) = @_;
     
     if ( ref $class eq 'HASH' ) {
-    	$refProps = $class;
-    	$class = undef;
+        $refProps = $class;
+        $class = undef;
     }
     
     $class ||= typeof IMPL::DOM::Node;
@@ -32,11 +32,11 @@
 }
 
 sub save {
-	my ($this,$writer) = @_;
-	
-	$writer->xmlDecl(undef,'yes');
-	$this->SUPER::save($writer);
-	$writer->end();
+    my ($this,$writer) = @_;
+    
+    $writer->xmlDecl(undef,'yes');
+    $this->SUPER::save($writer);
+    $writer->end();
 }
 
 {
@@ -69,15 +69,15 @@
 use parent qw(IMPL::DOM::Document);
 
 sub Create {
-	my $this = shift;
-	my ($name,$class,$hashProps) = @_;
-	
-	if ($class eq 'Info') {
-		return MyInfo->new($name,$hashProps->{date},$hashProps->{description});
-	} else {
-		# leave as it is
-		return $this->SUPER::Create(@_);
-	}
+    my $this = shift;
+    my ($name,$class,$hashProps) = @_;
+    
+    if ($class eq 'Info') {
+        return MyInfo->new($name,$hashProps->{date},$hashProps->{description});
+    } else {
+        # leave as it is
+        return $this->SUPER::Create(@_);
+    }
 }
 
 =end code
@@ -93,13 +93,13 @@
 =begin code
 
 sub Create {
-	my ($this,$nodeName,$class,$hashProps) = @_;
-	
-	return $class->new (
-		nodeName => $nodeName,
-		document => $this,
-		%$hashProps
-	);
+    my ($this,$nodeName,$class,$hashProps) = @_;
+    
+    return $class->new (
+        nodeName => $nodeName,
+        document => $this,
+        %$hashProps
+    );
 }
 
 =end code