Mercurial > pub > Impl

annotate Lib/IMPL/Web/Security/User.pm @ 335:e8be9062ecf2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improved resource classes, contracts are deprecated
author cin
date Thu, 13 Jun 2013 20:13:24 +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;