diff lib/IMPL/declare.pm @ 422:b0481c071bea ref20150831

IMPL::Config::Container tests, YAMLConfiguration now works and tested
author cin
date Sun, 20 Aug 2017 00:20:41 +0300
parents 3ed0c58e9da3
children
line wrap: on
line diff
--- a/lib/IMPL/declare.pm	Sun Jul 16 22:59:39 2017 +0300
+++ b/lib/IMPL/declare.pm	Sun Aug 20 00:20:41 2017 +0300
@@ -30,8 +30,9 @@
 	_trace("declare $caller");
 	$IMPL::require::level++;
 
+    my $tcaller = $caller;
 	*{"${caller}::SELF"} = sub () {
-		$caller;
+		$tcaller;
 	};
 
 	while ( my ( $alias, $class ) = each %$aliases ) {