view Lib/IMPL/Security/Principal.pm @ 263:0f59b2de72af

*fixed IMPL::DOM::Schema circular module references *modified IMPL::Object::Singleton, added auto-activation *code cleanups, docs
author sergey
date Wed, 09 Jan 2013 05:17:44 +0400
parents 6d8092d8ce1b
children 16ff604298c7
line wrap: on
line source

package IMPL::Security::Principal;
use strict;
use warnings;

use IMPL::Const qw(:prop);
use IMPL::require {
    AbstractPrincipal => 'IMPL::Security::AbstractPrincipal'
};
use IMPL::declare {
    base => [
        'IMPL::Object' => undef,
        'IMPL::Object::Autofill' => '@_',
        'IMPL::Security::AbstractPrincipal' => undef
    ],
    props => [
        @{AbstractPrincipal->abstractProps()}
    ]
};

__PACKAGE__->abstractProps([]);

my $nobody;

sub nobody {
    $nobody = $_[0]->new(name => 'nobody', description => '') unless $nobody;
    return $nobody;
}

1;

__END__

=pod

=head1 NAME

C<IMPL::Security::Principal> Идентификатор пользователя

C<[Autofill]>

=head1 MEMBERS

=over

=item C<CTOR(%props)>

Создает новый объект.

=item C<[get] name>

Возвращает имя пользователя.

=item C<[get,set] description>

Возвращает описание пользователя.

=back

=cut