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

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
line wrap: on
line diff
--- a/Lib/IMPL/declare.pm	Thu Apr 19 02:10:02 2012 +0400
+++ b/Lib/IMPL/declare.pm	Fri Apr 20 16:06:36 2012 +0400
@@ -17,10 +17,10 @@
 	my $aliases = $args->{require} || {};
 	
 	while( my ($alias, $class) = each %$aliases ) {
-		_require($class);
+		my $c = _require($class);
         
         *{"${caller}::$alias"} = set_prototype(sub {
-            $class
+            $c
         }, '');
     }