Mercurial > pub > Impl
comparison Lib/IMPL/Security.pm @ 172:068acfe903c3
corrected schema resolution mechanism
author | sourcer |
---|---|
date | Mon, 20 Jun 2011 23:42:44 +0400 |
parents | 4267a2ac3d46 |
children | d1676be8afcc |
comparison
equal
deleted
inserted
replaced
171:59e5fcb59d86 | 172:068acfe903c3 |
---|---|
9 our $authority = undef; | 9 our $authority = undef; |
10 | 10 |
11 sub AccessCheck { | 11 sub AccessCheck { |
12 my ($self, $object, $desiredAccess, $context) = @_; | 12 my ($self, $object, $desiredAccess, $context) = @_; |
13 | 13 |
14 $context = IMPL::Security::Context->contextCurrent; | 14 $context ||= IMPL::Security::Context->contextCurrent; |
15 | 15 |
16 $_->() or return 0 foreach @{$self->Rules}; | 16 $_->() or return 0 foreach @{$self->Rules}; |
17 | 17 |
18 return 1; | 18 return 1; |
19 } | 19 } |