Mercurial > pub > Impl

comparison Lib/IMPL/Web/HttpResponse.pm @ 245:7c517134c42f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Unsupported media type Web exception corrected resourceLocation setting in the resource Implemented localizable resources for text messages fixed TT view scopings, INIT block in controls now sets globals correctly.
author sergey
date Mon, 29 Oct 2012 03:15:22 +0400
parents 23daf2fae33a
children 32aceba4ee6d
comparison
equal deleted inserted replaced
244:a02b110da931 245:7c517134c42f
1 use strict; 1 use strict;
2 package IMPL::Web::HttpResponse; 2 package IMPL::Web::HttpResponse;
3 3
4 use CGI(); 4 use CGI();
5 use IMPL::lang qw(:declare); 5 use IMPL::lang qw(:declare :hash);
6 use IMPL::declare { 6 use IMPL::declare {
7 require => { 7 require => {
8 Exception => 'IMPL::Exception', 8 Exception => 'IMPL::Exception',
9 ArgumentException => '-IMPL::InvalidArgumentException' 9 ArgumentException => '-IMPL::InvalidArgumentException'
10 }, 10 },
86 location => $args{location} 86 location => $args{location}
87 } 87 }
88 ); 88 );
89 } 89 }
90 90
91 sub NoContent {
92 my ($self,%args) = @_;
93
94 return $self->new(
95 status => $args{status} || '204 No Content'
96 );
97 }
98
91 1; 99 1;
92 100
93 __END__ 101 __END__
94 102
95 =pod 103 =pod