Mercurial > pub > Impl
diff lib/IMPL/Config/Descriptor.pm @ 420:df591e3afd10 ref20150831
sync
author | cin |
---|---|
date | Sat, 25 Feb 2017 22:35:26 +0300 |
parents | 3d24b10dd0d5 |
children | 7798345304bc |
line wrap: on
line diff
--- a/lib/IMPL/Config/Descriptor.pm Sun Jan 29 10:30:20 2017 +0300 +++ b/lib/IMPL/Config/Descriptor.pm Sat Feb 25 22:35:26 2017 +0300 @@ -5,12 +5,14 @@ sub ACTIVATE_SINGLETON() { 1 } sub ACTIVATE_CONTAINER() { 2 } -sub ACTIVATE_CONTEXT() { 3 } -sub ACTIVATE_CALL() { 4 } +sub ACTIVATE_HIERARCHY() { 3 } +sub ACTIVATE_CONTEXT() { 4 } +sub ACTIVATE_CALL() { 5 } my %activateNames = ( singleton => ACTIVATE_SINGLETON, container => ACTIVATE_CONTAINER, + hierarchy => ACTIVATE_HIERARCHY, context => ACTIVATE_CONTEXT, call => ACTIVATE_CALL ); @@ -30,6 +32,7 @@ return grep $_ == $val, ACTIVATE_SINGLETON, ACTIVATE_CONTAINER, + ACTIVATE_HIERARCHY, ACTIVATE_CONTEXT, ACTIVATE_CALL ? $val : ACTIVATE_CALL if looks_like_number($val);