annotate Lib/IMPL/Web/Security/User.pm @ 370:cbf4febf0930

ObjectMeta, Tests, migrating to the new metadata model.
author sergey
date Tue, 10 Dec 2013 03:02:01 +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;