--- a/Lib/IMPL/Security/Role.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Security/Role.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -5,32 +5,32 @@
 use IMPL::Class::Property;
 
 BEGIN {
-	public property roleName => prop_get | owner_set;
-	public property parentRoles => prop_get | owner_set | prop_list;
+    public property roleName => prop_get | owner_set;
+    public property parentRoles => prop_get | owner_set | prop_list;
 }
 
 sub CTOR {
-	my ($this,$name,$parentRoles) = @_;
-	
-	$this->roleName($name) if $name;
-	$this->parentRoles($parentRoles) if $parentRoles;
+    my ($this,$name,$parentRoles) = @_;
+    
+    $this->roleName($name) if $name;
+    $this->parentRoles($parentRoles) if $parentRoles;
 }
 
 sub Satisfy {
-	my ($this,@roles) = @_;	
-	
-	return 1 unless $this->_FilterRoles( @roles );
-	return 0;
+    my ($this,@roles) = @_;    
+    
+    return 1 unless $this->_FilterRoles( @roles );
+    return 0;
 }
 
 sub _FilterRoles {
-	my ($this,@roles) = @_;
-	
-	@roles = grep not (ref $_ ? $this == $_ : $this->roleName eq $_), @roles;
-	
-	@roles = $_->_FilterRoles(@roles) or return foreach $this->parentRoles ;
-	
-	return @roles;
+    my ($this,@roles) = @_;
+    
+    @roles = grep not (ref $_ ? $this == $_ : $this->roleName eq $_), @roles;
+    
+    @roles = $_->_FilterRoles(@roles) or return foreach $this->parentRoles ;
+    
+    return @roles;
 }