Mercurial > pub > Impl

comparison Lib/IMPL/declare.pm @ 252:34a3f8668b58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed IMPL::require IMPL::declare
author sergey
date Mon, 19 Nov 2012 01:28:58 +0400
parents 9f394b27dccf
children 32aceba4ee6d
comparison
equal deleted inserted replaced
251:9f394b27dccf 252:34a3f8668b58
23 23
24 my $caller = caller; 24 my $caller = caller;
25 25
26 my $aliases = $args->{require} || {}; 26 my $aliases = $args->{require} || {};
27 27
28 $IMPL::require::PENDING{$caller} = 1;
28 _trace("declare $caller"); 29 _trace("declare $caller");
29 $IMPL::require::level++; 30 $IMPL::require::level++;
30 31
31 while ( my ( $alias, $class ) = each %$aliases ) { 32 while ( my ( $alias, $class ) = each %$aliases ) {
32 _trace("$alias => $class"); 33 _trace("$alias => $class");
104 $propInfo->Implement(); 105 $propInfo->Implement();
105 } 106 }
106 } 107 }
107 108
108 $IMPL::require::level--; 109 $IMPL::require::level--;
110 delete $IMPL::require::PENDING{$caller};
109 } 111 }
110 112
111 1; 113 1;
112 114
113 __END__ 115 __END__