Mercurial > pub > Impl
annotate lib/IMPL/Web/NotAllowedException.pm @ 417:3ed0c58e9da3 ref20150831
working on di container, tests
author | cin |
---|---|
date | Mon, 02 Nov 2015 01:56:53 +0300 |
parents | c6e90e02dd17 |
children |
rev | line source |
---|---|
407 | 1 package IMPL::Web::NotAllowedException; |
2 use strict; | |
3 | |
4 use IMPL::Const qw(:prop); | |
5 use IMPL::declare { | |
6 base => [ | |
7 'IMPL::Web::Exception' => '@_' | |
8 ] | |
9 }; | |
10 | |
11 use IMPL::Resources::Strings { | |
12 message => "The requested method isn't allowed" | |
13 }; | |
14 | |
15 sub CTOR { | |
16 my $this = shift; | |
17 my %args = @_; | |
18 | |
19 $this->headers({ | |
20 allow => $args{allow} | |
21 }); | |
22 } | |
23 | |
24 sub status { | |
25 "405 Method Not Allowed" | |
26 } | |
27 | |
28 1; | |
29 | |
30 __END__ |