comparison lib/IMPL/require.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 c6e90e02dd17
children c27434cdd611
comparison
equal deleted inserted replaced
421:7798345304bc 422:b0481c071bea
25 25
26 while ( my ( $alias, $class ) = each %$aliases ) { 26 while ( my ( $alias, $class ) = each %$aliases ) {
27 _trace("$alias => $class"); 27 _trace("$alias => $class");
28 $level++; 28 $level++;
29 29
30 $class = _require($class); 30 my $c = _require($class);
31 31
32 *{"${caller}::$alias"} = sub () { 32 *{"${caller}::$alias"} = sub () {
33 $class; 33 $c;
34 }; 34 };
35 35
36 $level--; 36 $level--;
37 } 37 }
38 38