Help language development. Donate to The Perl Foundation
Object helper for Object::Permission using unix groups.
use Object::Permission::Group; # $*AUTH-USER is derived from $*USER # Or: Use Object::Permission::Group; # Set $*AUTH-USER to one for a specified user $*AUTH-USER = Object::Permission::Group.new(user => 'wibble');
This provides a simple implementation of
Object::Permission::User to be used with
which derives the permissions for the
$*AUTH-USER from the users
unix group membership.
$*AUTH-USER is initialised based on the value of
$*USER (i.e. the effective user,) but it can be set manually with
the permissions of an arbitrary user (as in the second example above.)
Assuming you have a working Rakudo installation you should be able to install this with zef :
# From the source directory zef install . # Remote installation zef install Object::Permission::Group
Suggestions/patches are welcomed via github at:
This is free software.
Please see the LICENCE file in the distribution
© Jonathan Stowe 2015, 2016, 2017, 2019, 2020