annotate Lib/IMPL/Web/UnauthorizedException.pm @ 323:b56b1ec33b59

minor changes to support JSON in transformation from a query to an object
author sergey
date Thu, 23 May 2013 18:40:26 +0400
parents f48a1a9f4fa2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
241
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
1 package IMPL::Web::UnauthorizedException;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
2 use strict;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
3
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
4 use IMPL::declare {
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
5 base => {
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
6 'IMPL::Web::Exception' => '@_'
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
7 }
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
8 };
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
9
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
10 sub status {
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
11 "401 Unauthorized"
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
12 }
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
13
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
14 1;
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
15
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
16 __END__
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
17
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
18 =pod
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
19
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
20 =head1 NAME
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
21
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
22 C<IMPL::Web::UnauthorizedException> - запрос требует идентификации пользователя.
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
23
f48a1a9f4fa2 +Added ViewResult to allow implementation of the view environment.
sergey
parents:
diff changeset
24 =cut