view release on metacpan or  search on metacpan

lib/Proc/ProcessTable/piddler.pm  view on Meta::CPAN

} ## end sub _sizeString

#
# Renders a UID as the user it belongs to with the number after it,
# falling back to just the number for any that can't be looked up.
#
sub _userString {
	my $self = $_[0];
	my $uid  = $_[1];

	my $user = getpwuid($uid);
	if ( !defined($user) ) {
		return color( $self->{idColors}[0] ) . $uid . color('reset');
	}

	return
		  color( $self->{idColors}[0] )
		. $user
		. color( $self->{idColors}[1] ) . '('
		. color( $self->{idColors}[2] )
		. $uid