diff lib/IMPL/Web/Application/HttpResponseResource.pm @ 407:c6e90e02dd17 ref20150831

renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/IMPL/Web/Application/HttpResponseResource.pm	Fri Sep 04 19:40:23 2015 +0300
@@ -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