Mercurial > pub > Impl

diff Lib/IMPL/Web/Application/Resource.pm @ 400:ef37ec102dab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
redirection support while fetching child resources
author cin
date Wed, 14 May 2014 17:27:32 +0400
parents 54b1dc9e808a
children
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/Resource.pm	Mon May 12 18:04:40 2014 +0400
+++ b/Lib/IMPL/Web/Application/Resource.pm	Wed May 14 17:27:32 2014 +0400
@@ -14,10 +14,11 @@
 		OpException => '-IMPL::InvalidOperationException',
 		NotFoundException => 'IMPL::Web::NotFoundException',
 		ResourceInterface => '-IMPL::Web::Application',
+		HttpResponse => 'IMPL::Web::HttpResponse',
+		HttpResponseResource => 'IMPL::Web::Application::HttpResponseResource',
 		Loader => 'IMPL::Code::Loader'
 	},
 	base => [
-		'IMPL::Object' => undef,
 		'IMPL::Web::Application::ResourceBase' => '@_'
 	],
 	props => [
@@ -110,6 +111,12 @@
 	
 	return $info
 		if (is($info,ResourceInterface));
+		
+	$info = {
+		response => $info,
+		class => HttpResponseResource
+	}
+		if is($info,HttpResponse);
 	
 	return $this->CreateChildResource($info, $childId)
 		if ref($info) eq 'HASH';