Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working on IMPL::Config::Bag
author cin
date Fri, 02 Oct 2015 06:56:24 +0300
parents af8d359ee4cc
children 3d24b10dd0d5
comparison
equal deleted inserted replaced
413:af8d359ee4cc 414:ec6f2d389d1e
48 return [] unless $role; 48 return [] unless $role;
49 49
50 my $cache = $this->{$_cache}{$role}; 50 my $cache = $this->{$_cache}{$role};
51 51
52 unless ($cache) { 52 unless ($cache) {
53 $cache = { $role, 0 }; 53 $cache = { $role, 1 };
54 54
55 my @roles = [$role, 0]; 55 my @roles = [$role, 1];
56 56
57 while (my $r = shift @roles ) { 57 while (my $r = shift @roles ) {
58 my ($name, $level) = @$r; 58 my ($name, $level) = @$r;
59 59
60 $cache->{$name} = $level; 60 $cache->{$name} = $level;