# HG changeset patch
# User wizard
# Date 1277991149 -14400
# Node ID 5a9f64890c31f190014f9627170cd010eb42de50
# Parent  c5bc900eefd3aafe868642c76975774bd0044dd6
Fixed module loading by the UriController

diff -r c5bc900eefd3 -r 5a9f64890c31 Lib/IMPL/Web/QueryHandler/UrlController.pm
--- a/Lib/IMPL/Web/QueryHandler/UrlController.pm	Thu Jul 01 04:25:07 2010 +0400
+++ b/Lib/IMPL/Web/QueryHandler/UrlController.pm	Thu Jul 01 17:32:29 2010 +0400
@@ -4,7 +4,7 @@
 
 use IMPL::Class::Property;
 use IMPL::Exception;
-use Carp;
+use Carp qw(croak);
 
 BEGIN {
 	public property namespace => prop_all;
@@ -24,8 +24,10 @@
 	
 	my $module = join '::',$namespace,@target;
 	
-	eval "require $module; 1;" unless $INC{$module};
-	carp $@ if $@;
+	eval "require $module; 1;" unless eval{ $module->can('InvokeAction'); };
+	if (my $err = $@ ) {
+		die new IMPL::Exception("Failed to load module",$module,$err);
+	}
 	
 	if(UNIVERSAL::can($module,'InvokeAction')) {
 		$module->InvokeAction($method,$action);