view release on metacpan or  search on metacpan

lib/Prty/System.pm  view on Meta::CPAN

Liefere den Namen des Benutzers mit User-Id (UID) $uid.

=cut

# -----------------------------------------------------------------------------

sub user {
    my ($this,$uid) = @_;

    return getpwuid($uid) // do {
        $this->throw(
            q~SYS-00001: Benutzer existiert nicht~,
            Uid=>$uid,
            Error=>"$!",
        );
    };
}

# -----------------------------------------------------------------------------