view release on metacpan or  search on metacpan

lib/Software/Packager/Object/Aix.pm  view on Meta::CPAN

sub user
{
	my $self = shift;
	my $value = shift;

	if ($value)
	{
		# if we only have digits then get the name.
		if ($value =~ /^\d+$/) 
		{
			$value = getpwuid($value);
		}
		$self->{'USER'} = $value;
	}
	else
	{
		unless (scalar $self->{'USER'})
		{
			$self->{'USER'} = getpwuid($<);
		}
		return $self->{'USER'};
	}
}

################################################################################
# Function:	group()

=head2 B<group()>