Mercurial > pub > Impl
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;