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);