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

redirection support while fetching child resources
author cin
date Wed, 14 May 2014 17:27:32 +0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Web/Application/HttpResponseResource.pm	Wed May 14 17:27:32 2014 +0400
@@ -0,0 +1,32 @@
+package IMPL::Web::Application::HttpResponseResource;
+use strict;
+
+use IMPL::Const qw(:prop);
+use IMPL::declare {
+	require => {
+		HttpResponse => 'IMPL::Web::HttpResponse'
+	},
+	base => [
+		'IMPL::Object' => undef,
+		'IMPL::Web::Application::ResourceInterface' => undef
+	],
+	props => [
+		response => PROP_RW
+	]
+};
+
+sub CTOR {
+	my ($this,%args) = @_;
+	
+	$this->response($args{response} || HttpResponse->NoContent);
+}
+
+sub FetchChildResource {
+	return shift;
+}
+
+sub InvokeHttpVerb {
+	return shift->response;
+}
+
+1;
\ No newline at end of file