view Lib/IMPL/Security/Principal.pm @ 72:eac47fa4f262

docs
author wizard
date Fri, 26 Mar 2010 16:26:31 +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;