diff lib/IMPL/Config/Hierarchy.pm @ 414:ec6f2d389d1e ref20150831

working on IMPL::Config::Bag
author cin
date Fri, 02 Oct 2015 06:56:24 +0300
parents af8d359ee4cc
children 3d24b10dd0d5
line wrap: on
line diff
--- a/lib/IMPL/Config/Hierarchy.pm	Thu Sep 24 12:19:30 2015 +0300
+++ b/lib/IMPL/Config/Hierarchy.pm	Fri Oct 02 06:56:24 2015 +0300
@@ -50,9 +50,9 @@
 	my $cache = $this->{$_cache}{$role};
 
 	unless ($cache) {
-		$cache = { $role, 0 };
+		$cache = { $role, 1 };
 
-		my @roles = [$role, 0];
+		my @roles = [$role, 1];
 		
 		while (my $r = shift @roles ) {
 			my ($name, $level) = @$r;