view release on metacpan or  search on metacpan

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

	my @stats_pctcpu;
	my @stats_pctmem;

	my @td;
	foreach my $proc ( @{$procs} ) {
		my @new_line;

		#
		# handle username column
		#
		my $user = getpwuid( $proc->{uid} );
		if ( !defined($user) ) {
			$user = $proc->{uid};
		}
		$user = color( $self->nextColor ) . $user . color('reset');
		push( @new_line, $user );

		#
		# handles the PID
		#
		push( @new_line, color( $self->nextColor ) . $proc->{pid} . color('reset') );