Permission as Object

[pdl]

Create a permission object that goes something like

$permission = $auth->permitted ( permission $user, write => $location ); # permission is optional here
return $permission if $permission->denied or $permission->permitted;

$permission->permit($reason); # stores the caller package and line just in case
$permission->deny($reason);