view release on metacpan or  search on metacpan

StarTeam.pm  view on Meta::CPAN

sub new {
	my( $class, $optionRef ) = @_;

	$class = ref($class) || $class;

	my( $self ) = ( ref( $optionRef ) eq 'HASH' ) ? $optionRef : {};

	my( $username ) = $^O eq 'MSWin32' ? $ENV{'USERNAME'}
	    : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
	    : $^O eq 'MacOS' ? $ENV{'USER'}
	    : eval { getpwuid($<) };	# May be missing

	my( %default ) = (
		'batchmode'		=> 0,
		'compress'		=> 0,
		'host'			=> 'localhost',
		'endpoint'		=> '1024',
		'project'		=> '',
		'password'		=> '',
		'path'			=> '',
		'recurse'		=> 0,