--- a/lib/IMPL/Config/Hierarchy.pm	Mon Sep 21 19:54:10 2015 +0300
+++ b/lib/IMPL/Config/Hierarchy.pm	Thu Sep 24 12:19:30 2015 +0300
@@ -50,16 +50,19 @@
 	my $cache = $this->{$_cache}{$role};
 
 	unless ($cache) {
-		$cache = {};
+		$cache = { $role, 0 };
 
-		my @roles = ($role);
-
+		my @roles = [$role, 0];
+		
 		while (my $r = shift @roles ) {
-			next if $cache->{$r};
-			
-			$cache->{$r} = 1;
-			if(my $parents = $this->{$roles}{$r}) {
-				push @roles, @$parents;
+			my ($name, $level) = @$r;
+			 
+			$cache->{$name} = $level;
+			if(my $parents = $this->{$roles}{$name}) {
+				foreach my $p (@$parents) {
+					next if $cache{$p};
+					push @roles, [$p, $cache{$p} = $level + 1]; 
+				}
 			}
 		}
 		$this->{$_cache}{$role} = $cache;