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;