Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/HttpResponseResource.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
children
comparison
equal deleted inserted replaced
399:753e981782ce 400:ef37ec102dab
1 package IMPL::Web::Application::HttpResponseResource;
2 use strict;
3
4 use IMPL::Const qw(:prop);
5 use IMPL::declare {
6 require => {
7 HttpResponse => 'IMPL::Web::HttpResponse'
8 },
9 base => [
10 'IMPL::Object' => undef,
11 'IMPL::Web::Application::ResourceInterface' => undef
12 ],
13 props => [
14 response => PROP_RW
15 ]
16 };
17
18 sub CTOR {
19 my ($this,%args) = @_;
20
21 $this->response($args{response} || HttpResponse->NoContent);
22 }
23
24 sub FetchChildResource {
25 return shift;
26 }
27
28 sub InvokeHttpVerb {
29 return shift->response;
30 }
31
32 1;