view Lib/IMPL/Security/Principal.pm @ 50:521c9c1a3ea1

:q
author wizard@linux-odin.local
date Sat, 27 Feb 2010 16:28:45 +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;