Mercurial > pub > Impl

comparison Lib/IMPL/declare.pm @ 198:2ffe6f661605

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implemented IMPL::Web::Handler::RestController fixes in IMPL::Serialization completed IMPL::Web::Application::RestResource added IMPL::Web::Handler::JSONView added IMPL::Web::RestContract
author cin
date Fri, 20 Apr 2012 16:06:36 +0400
parents 6b1dda998839
children a8db61d0ed33
comparison
equal deleted inserted replaced
197:6b1dda998839 198:2ffe6f661605
15 my $caller = caller; 15 my $caller = caller;
16 16
17 my $aliases = $args->{require} || {}; 17 my $aliases = $args->{require} || {};
18 18
19 while( my ($alias, $class) = each %$aliases ) { 19 while( my ($alias, $class) = each %$aliases ) {
20 _require($class); 20 my $c = _require($class);
21 21
22 *{"${caller}::$alias"} = set_prototype(sub { 22 *{"${caller}::$alias"} = set_prototype(sub {
23 $class 23 $c
24 }, ''); 24 }, '');
25 } 25 }
26 26
27 my $base = $args->{base} || {}; 27 my $base = $args->{base} || {};
28 28