Mercurial > pub > Impl

comparison Lib/IMPL/Web/NotAllowedException.pm @ 229:47f77e6409f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
heavily reworked the resource model of the web application: *some ResourcesContraact functionality moved to Resource +Added CustomResource *Corrected action handlers
author sergey
date Sat, 29 Sep 2012 02:34:47 +0400
parents
children 6d8092d8ce1b
comparison
equal deleted inserted replaced
228:431db7034a88 229:47f77e6409f7
1 package IMPL::Web::NotAllowedException;
2 use strict;
3
4 use IMPL::lang qw(:constants);
5 use IMPL::declare {
6 base => [
7 'IMPL::Web::Exception' => sub {
8 my %args = @_;
9 $args{Message};
10 }
11 ]
12 };
13
14 sub CTOR {
15 my %args = @_;
16
17 $this->headers({
18 allow => $args{allow}
19 });
20 }
21
22 sub status {
23 "405 Method Not Allowed"
24 }
25
26 1;
27
28 __END__