--- a/Lib/IMPL/SQL/Schema/Constraint.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/SQL/Schema/Constraint.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -20,7 +20,7 @@
 sub CTOR {
     my ($this,%args) = @_;
     is( $args{table}, typeof IMPL::SQL::Schema::Table ) or
-    	die new IMPL::InvalidArgumentException("table argument must be a table object");
+        die new IMPL::InvalidArgumentException("table argument must be a table object");
     $this->{$name} = $args{'name'};
     $this->{$table} = $args{'table'};
     $this->columns( [map { ResolveColumn($this->table,$_) } @{$args{'columns'}}] );
@@ -60,27 +60,27 @@
 }
 
 sub SameValue {
-	my ($this,$other) = @_;
-			
-	return 0 unless $this->columns->Count == $other->columns->Count;
-	
-	for ( my $i=0; $i < $this->columns->Count; $i++ ) {
-		return 0 unless $this->columns->[$i]->name eq $other->columns->[$i]->name;
-	}
-	
-	return 1;
+    my ($this,$other) = @_;
+            
+    return 0 unless $this->columns->Count == $other->columns->Count;
+    
+    for ( my $i=0; $i < $this->columns->Count; $i++ ) {
+        return 0 unless $this->columns->[$i]->name eq $other->columns->[$i]->name;
+    }
+    
+    return 1;
 }
 
 sub ResolveAlias {
-	my ($self,$alias) = @_;
-	
-	return is($alias, typeof IMPL::SQL::Schema::Constraint) ? $alias : $aliases{$alias};
+    my ($self,$alias) = @_;
+    
+    return is($alias, typeof IMPL::SQL::Schema::Constraint) ? $alias : $aliases{$alias};
 }
 
 sub RegisterAlias {
-	my ($self,$alias) = @_;
-	
-	$aliases{$alias} = $self->typeof;
+    my ($self,$alias) = @_;
+    
+    $aliases{$alias} = $self->typeof;
 }
 
 1;