Mercurial > pub > Impl

annotate Lib/IMPL/Web/NotAllowedException.pm @ 251:9f394b27dccf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
require can handle recursive module references
author sergey
date Fri, 16 Nov 2012 16:44:16 +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__