NAME

VERSION

SYNOPSIS

    $creds = Ubic::Credentials->new(user => "mmcleric", group => ["ppb"]);
    $creds = Ubic::Credentials->new(); # current credentials
    $creds = Ubic::Credentials->new(service => $service); # credentials from the given service

    $creds->set_effective; # change effective credentials only, enables tainted mode
    $creds->reset_effective; # back to normality

    $creds->eq(Ubic::Credentials->new); # check if set() call is required to apply the credentials
    $creds->set; # apply all credentials; there is no way back

METHODS

new()

new(service => $service)

new(user => $user, group => $group)

Constructor.

It constructs credentials with current user and group if no parameters are specified, takes user and group from given service if service parameter is specified or uses any user and group which you pass directly to it.

set_effective()

Set credentials user and group as effective user and group.

reset_effective()

Restore effective user and group to their original values.

eq($other_creds)

Compare current creds with other creds object.

Returns true value if credentials are equivalent.

set()

Set credentials as effective and real group and user permanently.

as_string()

Returns human-readable string representation.

AUTHOR

COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.