Pangloss::User - a user in Pangloss.
use Pangloss::User; my $user = new Pangloss::User(); $user->id( $id ) ->name( $full_name ) ->privileges( Pangloss::User::Privileges->new ) ->creator( $user ) ->notes( $text ) ->date( time ) ->validate; # catch Pangloss::User::Errors do { ... } if $user->is_admin; do { ... } if $user->is_translator; do { ... } if $user->is_proofreader; # etc...
This class represents a user in Pangloss. A new user always has an empty set of privileges.
This object inherits its interface from Pangloss::StoredObject and OpenFrame::WebApp::User.
set/get user id (ie: login name).
set/get user full name.
set/get user Pangloss::User::Privileges.
test privileges to see if user is an admin.
test privileges to see if user can translate/proofread one or more Pangloss::Languages.
test privileges to see if user can add concepts/categories.
test privileges to see if user can translate/proofread the Pangloss::Language.
test privileges to see if user is not an admin.
test privileges to see if user cannot translate/proofread any Pangloss::Languages.
test privileges to see if user cannot add concepts/categories.
test privileges to see if user cannot translate/proofread the given Pangloss::Language.
Steve Purkis <spurkis@quiup.com>
Pangloss, Pangloss::User::Error, Pangloss::User::Privileges, Pangloss::Users, OpenFrame::WebApp::User
To install Pangloss, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Pangloss
CPAN shell
perl -MCPAN -e shell install Pangloss
For more information on module installation, please visit the detailed CPAN module installation guide.