Mercurial > pub > Impl

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
400
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
1 package IMPL::Web::Application::HttpResponseResource;
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
2 use strict;
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
3
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
4 use IMPL::Const qw(:prop);
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
5 use IMPL::declare {
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
6 require => {
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
7 HttpResponse => 'IMPL::Web::HttpResponse'
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
8 },
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
9 base => [
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
10 'IMPL::Object' => undef,
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
11 'IMPL::Web::Application::ResourceInterface' => undef
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
12 ],
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
13 props => [
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
14 response => PROP_RW
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
15 ]
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
16 };
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
17
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
18 sub CTOR {
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
19 my ($this,%args) = @_;
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
20
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
21 $this->response($args{response} || HttpResponse->NoContent);
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
22 }
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
23
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
24 sub FetchChildResource {
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
25 return shift;
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
26 }
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
27
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
28 sub InvokeHttpVerb {
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
29 return shift->response;
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
30 }
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
31
ef37ec102dab redirection support while fetching child resources
cin
parents:
diff changeset
32 1;