Mercurial > pub > Impl
comparison lib/IMPL/declare.pm @ 411:ee36115f6a34 ref20150831
sync
author | cin |
---|---|
date | Mon, 21 Sep 2015 00:53:10 +0300 |
parents | c6e90e02dd17 |
children | 3ed0c58e9da3 |
comparison
equal
deleted
inserted
replaced
410:9335cf010b23 | 411:ee36115f6a34 |
---|---|
36 while ( my ( $alias, $class ) = each %$aliases ) { | 36 while ( my ( $alias, $class ) = each %$aliases ) { |
37 _trace("$alias => $class"); | 37 _trace("$alias => $class"); |
38 $IMPL::require::level++; | 38 $IMPL::require::level++; |
39 my $c = _require($class); | 39 my $c = _require($class); |
40 | 40 |
41 *{"${caller}::$alias"} = sub() { | 41 *{"${caller}::$alias"} = sub () { |
42 $c; | 42 $c; |
43 }; | 43 }; |
44 $IMPL::require::level--; | 44 $IMPL::require::level--; |
45 } | 45 } |
46 | 46 |