Mercurial > pub > Impl

comparison Lib/IMPL/Web/NotAllowedException.pm @ 230:6d8092d8ce1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents 47f77e6409f7
children 673581380e79
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
1 package IMPL::Web::NotAllowedException; 1 package IMPL::Web::NotAllowedException;
2 use strict; 2 use strict;
3 3
4 use IMPL::lang qw(:constants); 4 use IMPL::Const qw(:prop);
5 use IMPL::declare { 5 use IMPL::declare {
6 base => [ 6 base => [
7 'IMPL::Web::Exception' => sub { 7 'IMPL::Web::Exception' => sub {
8 my %args = @_; 8 my %args = @_;
9 $args{Message}; 9 $args{Message};
10 } 10 }
11 ] 11 ]
12 }; 12 };
13 13
14 sub CTOR { 14 sub CTOR {
15 my $this = shift;
15 my %args = @_; 16 my %args = @_;
16 17
17 $this->headers({ 18 $this->headers({
18 allow => $args{allow} 19 allow => $args{allow}
19 }); 20 });