Mercurial > pub > Impl
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