annotate Lib/IMPL/Web/Security/User.pm @ 308:47a09a8dc23a

sync
author sergey
date Thu, 18 Apr 2013 20:06:05 +0400
parents 6d8092d8ce1b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
82
3a4205e7b663 minor changes
wizard
parents:
diff changeset
1 package IMPL::Web::Security::User;
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
2 use strict;
82
3a4205e7b663 minor changes
wizard
parents:
diff changeset
3
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
4 use IMPL::Const qw(:prop);
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
5 use IMPL::declare {
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
6 require => {
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
7 Exception => 'IMPL::Exception',
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
8 NotImplementedException => '-IMPL::NotImplementedException'
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
9 },
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
10 base => [
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
11 'IMPL::Security::AbstractPrincipal' => undef
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
12 ]
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
13 };
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
14
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
15 push @{__PACKAGE__->abstractProps}, roles => PROP_RW | PROP_LIST;
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
16
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
17 sub GetSecData {
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
18 die NotImplementedException->new();
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
19 }
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
20
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
21 sub SetSecData {
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
22 die NotImplementedException->new();
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 166
diff changeset
23 }
82
3a4205e7b663 minor changes
wizard
parents:
diff changeset
24
3a4205e7b663 minor changes
wizard
parents:
diff changeset
25 1;