view release on metacpan or  search on metacpan

lib/IPC/Run3/Shell/CLIWrapper.pm  view on Meta::CPAN

	my @args;
	my $oc = $self->{opt_char}; $oc = '' unless defined $oc;
	my $vs = $self->{val_sep};
	my $u2d = $self->{under2dash};
	for my $x (@_) {
		if ( ref $x eq 'ARRAY' ) {
			if ( @$x%2 ) {
				# ... work around a Carp issue in really old Perls ...
				# uncoverable branch true
				# uncoverable condition true
				if ( $] lt '5.008' ) {
					warn "Odd number of elements in argument list";  # uncoverable statement
				} else { warnings::warnif('IPC::Run3::Shell',
					'Odd number of elements in argument list') }
			}
			for (my $i=0;$i<@$x;$i+=2) {
				my ($k,$v) = @{$x}[$i,$i+1];
				$k =~ s/_/-/g if $u2d;
				push @args, defined $v
					? ( defined $vs ? $oc.$k.$vs.$v : ($oc.$k, $v) )
					: $oc.$k;