Mercurial > pub > Impl

comparison lib/IMPL/Web/NotAllowedException.pm @ 407:c6e90e02dd17 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed Lib->lib
author cin
date Fri, 04 Sep 2015 19:40:23 +0300
parents
children
comparison
equal deleted inserted replaced
406:f23fcb19d3c1 407:c6e90e02dd17
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__