view Lib/IMPL/Security/Principal.pm @ 64:259cd3df6e53

Doc generation Minor fixes
author wizard
date Mon, 15 Mar 2010 17:45:13 +0300
parents 16ada169ca75
children 84aa8c395fce
line wrap: on
line source

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

use base qw(IMPL::Object);
use IMPL::Class::Property;

BEGIN {
    public property Name => prop_get;
    public property Description => prop_get;
}

my $nobody;

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

1;