view release on metacpan or  search on metacpan

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

  return 1;
}

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

  $self->{USER} = $value
    if $value;
  $self->{USER} ||= [getpwuid([lstat($self->source)]->[4])]->[0];
  return $self->{USER};
}

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

	$self->{GROUP} = $value
	  if $value;