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 }