Mercurial > pub > Impl

comparison Lib/IMPL/Security/Principal.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 d1676be8afcc
children 16ff604298c7
comparison
equal deleted inserted replaced
229:47f77e6409f7 230:6d8092d8ce1b
1 package IMPL::Security::Principal; 1 package IMPL::Security::Principal;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use parent qw(IMPL::Object IMPL::Object::Autofill); 5 use IMPL::Const qw(:prop);
6 use IMPL::Class::Property; 6 use IMPL::require {
7 AbstractPrincipal => 'IMPL::Security::AbstractPrincipal'
8 };
9 use IMPL::declare {
10 base => [
11 'IMPL::Object' => undef,
12 'IMPL::Object::Autofill' => '@_',
13 'IMPL::Security::AbstractPrincipal' => undef
14 ],
15 props => [
16 @{AbstractPrincipal->abstractProps()}
17 ]
18 };
7 19
8 __PACKAGE__->PassThroughArgs; 20 __PACKAGE__->abstractProps([]);
9
10 BEGIN {
11 public property name => prop_get;
12 public property description => prop_all;
13 }
14 21
15 my $nobody; 22 my $nobody;
16 23
17 sub nobody { 24 sub nobody {
18 $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody; 25 $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody;