Mercurial > pub > Impl

annotate Lib/IMPL/Web/NotAllowedException.pm @ 232:5c82eec23bb6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed degradations due refactoring
author sergey
date Tue, 09 Oct 2012 20:12:47 +0400
parents 6d8092d8ce1b
children 673581380e79
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
1 package IMPL::Web::NotAllowedException;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
2 use strict;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
3
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
4 use IMPL::Const qw(:prop);
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
5 use IMPL::declare {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
6 base => [
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
7 'IMPL::Web::Exception' => sub {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
8 my %args = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
9 $args{Message};
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
10 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
11 ]
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
12 };
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
13
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
14 sub CTOR {
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
15 my $this = shift;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
16 my %args = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
17
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
18 $this->headers({
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
19 allow => $args{allow}
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
20 });
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
21 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
22
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
23 sub status {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
24 "405 Method Not Allowed"
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
25 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
26
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
27 1;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
28
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents:
diff changeset
29 __END__