Mercurial > pub > Impl

comparison Lib/IMPL/Security/Context.pm @ 94:79bf75223afe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed security related bugs
author wizard
date Thu, 29 Apr 2010 01:31:27 +0400
parents 077357224bec
children 67eb8eaec3d4
comparison
equal deleted inserted replaced
93:0667064553ef 94:79bf75223afe
61 sub current { 61 sub current {
62 my ($self) = @_; 62 my ($self) = @_;
63 63
64 $current = __PACKAGE__->nobody unless $current; 64 $current = __PACKAGE__->nobody unless $current;
65 $current; 65 $current;
66 }
67
68 sub Satisfy {
69 my ($this,@roles) = @_;
70
71 my $roleEffective = new IMPL::Security::Role ( _effective => $this->rolesAssigned );
72
73 return $roleEffective->Satisfy(@roles);
66 } 74 }
67 75
68 1; 76 1;
69 77
70 __END__ 78 __END__